diff options
| author | Sidney Congard | 2022-06-21 11:41:09 +0200 |
|---|---|---|
| committer | Sidney Congard | 2022-06-21 11:41:09 +0200 |
| commit | 7703c4ca86a390303d0a120f8811c8fd704c5168 (patch) | |
| tree | 399145f7c842d9f59216e17b6e43964b2c4dfaa6 /src/ExtractToFStar.ml | |
| parent | 414769e0c9a1d370d3ab906b710e2e8adfe25e5e (diff) | |
concrete & symbolic evaluation work with new LLBC format
Diffstat (limited to '')
| -rw-r--r-- | src/ExtractToFStar.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/ExtractToFStar.ml b/src/ExtractToFStar.ml index b85c146b..b89579b5 100644 --- a/src/ExtractToFStar.ml +++ b/src/ExtractToFStar.ml @@ -6,7 +6,6 @@ open PureUtils open TranslateCore open PureToExtract open StringUtils -open FunIdentifier module F = Format (** A qualifier for a type definition. @@ -315,7 +314,7 @@ let mk_formatter (ctx : trans_ctx) (crate_name : string) fname ^ suffix in - let decreases_clause_name (_fid : FunDeclId.id) (fname : fun_name) : string = + let decreases_clause_name (_fid : A.FunDeclId.id) (fname : fun_name) : string = let fname = fun_name_to_snake_case fname in (* Compute the suffix *) let suffix = "_decreases" in |