From acd7d37ddb46767a3e374d8133aff80a07d75733 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Thu, 10 Oct 2024 17:30:12 -0700 Subject: [PATCH 1/9] Passing in --MLish_effect FStarC.Compiler.Effect --- pulse2rust/src/Makefile | 1 + src/extraction/Extraction.fst.config.json | 1 + src/extraction/Makefile | 1 + src/syntax_extension/Makefile | 2 +- src/syntax_extension/PulseSyntaxExtension.fst.config.json | 1 + 5 files changed, 5 insertions(+), 1 deletion(-) diff --git a/pulse2rust/src/Makefile b/pulse2rust/src/Makefile index 7eb010b1c..8b1bc14dc 100644 --- a/pulse2rust/src/Makefile +++ b/pulse2rust/src/Makefile @@ -11,6 +11,7 @@ include $(FSTAR_HOME)/src/Makefile.boot.common CACHE_DIR = $(CURDIR) OUTPUT_DIRECTORY = $(CURDIR)/ocaml/generated +FSTAR_BOOT_OPTIONS += --MLish_effect FStarC.Compiler.Effect FSTAR_C=$(RUNLIM) $(FSTAR_EXE) $(SIL) $(FSTAR_BOOT_OPTIONS) --include $(FSTAR_HOME)/src/.cache.boot --cache_checked_modules # Would be nice to add --already_cached 'Prims FStar' diff --git a/src/extraction/Extraction.fst.config.json b/src/extraction/Extraction.fst.config.json index 98af92f19..aa58f8b7d 100644 --- a/src/extraction/Extraction.fst.config.json +++ b/src/extraction/Extraction.fst.config.json @@ -4,6 +4,7 @@ "--query_cache", "--lax", "--MLish", + "--MLish_effect", "FStarC.Compiler.Effect", "--cache_dir", "${FSTAR_HOME}/src/.cache.boot" ], diff --git a/src/extraction/Makefile b/src/extraction/Makefile index ad90dfe81..8826f94f9 100644 --- a/src/extraction/Makefile +++ b/src/extraction/Makefile @@ -10,6 +10,7 @@ include $(FSTAR_HOME)/ulib/gmake/fstar.mk # and $(FSTAR) for all sub-make calls include $(FSTAR_HOME)/src/Makefile.boot.common OUTPUT_DIRECTORY = $(CURDIR)/../ocaml/plugin/generated +FSTAR_BOOT_OPTIONS += --MLish_effect FStarC.Compiler.Effect FSTAR_C=$(RUNLIM) $(FSTAR_EXE) $(SIL) $(FSTAR_BOOT_OPTIONS) EXTRACT_FILES=ExtractPulse.ml ExtractPulseC.ml diff --git a/src/syntax_extension/Makefile b/src/syntax_extension/Makefile index ed8659605..1d355018e 100644 --- a/src/syntax_extension/Makefile +++ b/src/syntax_extension/Makefile @@ -13,7 +13,7 @@ OUTPUT_DIRECTORY = $(CURDIR)/../ocaml/plugin/generated ADDITIONAL_INCLUDES=$(FSTAR_HOME)/src/.cache.boot FSTAR_OPTIONS= \ - $(OTHERFLAGS) --lax --MLish \ + $(OTHERFLAGS) --lax --MLish --MLish_effect FStarC.Compiler.Effect \ --no_location_info --warn_error -271-272-241-319-274 \ $(addprefix --include , $(addprefix $(FSTAR_HOME)/src/,$(INCLUDE_PATHS))) \ $(addprefix --include , $(ADDITIONAL_INCLUDES)) \ diff --git a/src/syntax_extension/PulseSyntaxExtension.fst.config.json b/src/syntax_extension/PulseSyntaxExtension.fst.config.json index 1890be6ca..61cc0987a 100644 --- a/src/syntax_extension/PulseSyntaxExtension.fst.config.json +++ b/src/syntax_extension/PulseSyntaxExtension.fst.config.json @@ -4,6 +4,7 @@ "--query_cache", "--lax", "--MLish", + "--MLish_effect", "FStarC.Compiler.Effect", "--cache_dir", "${FSTAR_HOME}/src/.cache.boot" ], From 0a435df9d0fa89b4d2f82b55f5307ab68dfdbfb0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Thu, 10 Oct 2024 17:32:43 -0700 Subject: [PATCH 2/9] syntax_extension: open FStarC find src/syntax_extension/ -name '*.fst*' -exec sed -i 's/^module [^=]*$/&\nopen FStarC/' {} \+ --- src/syntax_extension/PulseSyntaxExtension.ASTBuilder.fst | 1 + src/syntax_extension/PulseSyntaxExtension.Desugar.fst | 1 + src/syntax_extension/PulseSyntaxExtension.Desugar.fsti | 1 + src/syntax_extension/PulseSyntaxExtension.Env.fst | 1 + src/syntax_extension/PulseSyntaxExtension.Err.fst | 1 + src/syntax_extension/PulseSyntaxExtension.Parser.fsti | 1 + src/syntax_extension/PulseSyntaxExtension.Sugar.fst | 1 + src/syntax_extension/PulseSyntaxExtension.SyntaxWrapper.fsti | 1 + src/syntax_extension/PulseSyntaxExtension.TransformRValues.fst | 1 + src/syntax_extension/PulseSyntaxExtension.TransformRValues.fsti | 1 + 10 files changed, 10 insertions(+) diff --git a/src/syntax_extension/PulseSyntaxExtension.ASTBuilder.fst b/src/syntax_extension/PulseSyntaxExtension.ASTBuilder.fst index 9d6069d47..a8da48536 100644 --- a/src/syntax_extension/PulseSyntaxExtension.ASTBuilder.fst +++ b/src/syntax_extension/PulseSyntaxExtension.ASTBuilder.fst @@ -15,6 +15,7 @@ *) module PulseSyntaxExtension.ASTBuilder +open FStarC open FStar.Compiler.Effect open FStar.Parser.AST open FStar.Parser.AST.Util diff --git a/src/syntax_extension/PulseSyntaxExtension.Desugar.fst b/src/syntax_extension/PulseSyntaxExtension.Desugar.fst index d907edef8..2a971af0d 100644 --- a/src/syntax_extension/PulseSyntaxExtension.Desugar.fst +++ b/src/syntax_extension/PulseSyntaxExtension.Desugar.fst @@ -15,6 +15,7 @@ *) module PulseSyntaxExtension.Desugar +open FStarC open FStar.Compiler.Effect module Sugar = PulseSyntaxExtension.Sugar module SW = PulseSyntaxExtension.SyntaxWrapper diff --git a/src/syntax_extension/PulseSyntaxExtension.Desugar.fsti b/src/syntax_extension/PulseSyntaxExtension.Desugar.fsti index c8ecee5d3..82344c953 100644 --- a/src/syntax_extension/PulseSyntaxExtension.Desugar.fsti +++ b/src/syntax_extension/PulseSyntaxExtension.Desugar.fsti @@ -15,6 +15,7 @@ *) module PulseSyntaxExtension.Desugar +open FStarC open FStar.Compiler.Effect module Sugar = PulseSyntaxExtension.Sugar diff --git a/src/syntax_extension/PulseSyntaxExtension.Env.fst b/src/syntax_extension/PulseSyntaxExtension.Env.fst index 5ded2bda0..56d0de738 100644 --- a/src/syntax_extension/PulseSyntaxExtension.Env.fst +++ b/src/syntax_extension/PulseSyntaxExtension.Env.fst @@ -15,6 +15,7 @@ *) module PulseSyntaxExtension.Env +open FStarC open FStar.Compiler.Effect // module Sugar = PulseSugar module SW = PulseSyntaxExtension.SyntaxWrapper diff --git a/src/syntax_extension/PulseSyntaxExtension.Err.fst b/src/syntax_extension/PulseSyntaxExtension.Err.fst index e463d1b2f..e6a0705e3 100644 --- a/src/syntax_extension/PulseSyntaxExtension.Err.fst +++ b/src/syntax_extension/PulseSyntaxExtension.Err.fst @@ -15,6 +15,7 @@ *) module PulseSyntaxExtension.Err +open FStarC module R = FStar.Compiler.Range open FStar.Compiler.Effect open FStar.Class.HasRange diff --git a/src/syntax_extension/PulseSyntaxExtension.Parser.fsti b/src/syntax_extension/PulseSyntaxExtension.Parser.fsti index 0ae16ccad..6377bb4a0 100644 --- a/src/syntax_extension/PulseSyntaxExtension.Parser.fsti +++ b/src/syntax_extension/PulseSyntaxExtension.Parser.fsti @@ -15,6 +15,7 @@ *) module PulseSyntaxExtension.Parser +open FStarC val parse_peek_id (contents:string) (r:FStar.Compiler.Range.range) diff --git a/src/syntax_extension/PulseSyntaxExtension.Sugar.fst b/src/syntax_extension/PulseSyntaxExtension.Sugar.fst index cc6684010..768c16f3c 100644 --- a/src/syntax_extension/PulseSyntaxExtension.Sugar.fst +++ b/src/syntax_extension/PulseSyntaxExtension.Sugar.fst @@ -15,6 +15,7 @@ *) module PulseSyntaxExtension.Sugar +open FStarC open FStar.Ident module A = FStar.Parser.AST module AU = FStar.Parser.AST.Util diff --git a/src/syntax_extension/PulseSyntaxExtension.SyntaxWrapper.fsti b/src/syntax_extension/PulseSyntaxExtension.SyntaxWrapper.fsti index af94f953b..265c4f3bb 100644 --- a/src/syntax_extension/PulseSyntaxExtension.SyntaxWrapper.fsti +++ b/src/syntax_extension/PulseSyntaxExtension.SyntaxWrapper.fsti @@ -15,6 +15,7 @@ *) module PulseSyntaxExtension.SyntaxWrapper +open FStarC open FStar.Ident let range = FStar.Compiler.Range.range let var = nat diff --git a/src/syntax_extension/PulseSyntaxExtension.TransformRValues.fst b/src/syntax_extension/PulseSyntaxExtension.TransformRValues.fst index 799117013..a51be2fcc 100644 --- a/src/syntax_extension/PulseSyntaxExtension.TransformRValues.fst +++ b/src/syntax_extension/PulseSyntaxExtension.TransformRValues.fst @@ -15,6 +15,7 @@ *) module PulseSyntaxExtension.TransformRValues +open FStarC open FStar.Compiler.Effect module Sugar = PulseSyntaxExtension.Sugar module SW = PulseSyntaxExtension.SyntaxWrapper diff --git a/src/syntax_extension/PulseSyntaxExtension.TransformRValues.fsti b/src/syntax_extension/PulseSyntaxExtension.TransformRValues.fsti index 643c90d24..4b451aa92 100644 --- a/src/syntax_extension/PulseSyntaxExtension.TransformRValues.fsti +++ b/src/syntax_extension/PulseSyntaxExtension.TransformRValues.fsti @@ -15,6 +15,7 @@ *) module PulseSyntaxExtension.TransformRValues +open FStarC module Sugar = PulseSyntaxExtension.Sugar module Err = PulseSyntaxExtension.Err module PulseEnv = PulseSyntaxExtension.Env From 14d952001027b481efc695ed5dec360c947fae90 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Thu, 10 Oct 2024 17:41:17 -0700 Subject: [PATCH 3/9] FStar->FStarC, result of a script #!/bin/bash s () { # Update fstar files L=$1 R=$2 M=$3 find . \( -name '*.fst' -o -name '*.fsti' \) -exec sed -i "s/\<${L}\.${M}/${R}.${M}/g" {} \+ # Update OCaml files MM=${M//./_} find . \( -name '*.ml' -o -name '*.mly' \) -exec sed -i "s/\<${L}_${MM}/${R}_${MM}/g" {} \+ } r () { s FStar FStarC "$1" } l () { s FStarC FStar "$1" } r BaseTypes r Common r Compiler r Const r Dyn r Errors r Extraction r GenSym r Ident r Options r Parser r Pprint r Reflection_Types r Sedlexing r Syntax r ToSyntax r TypeChecker r Class l Classical # :^) l Class_Printable r Tactics_Result r Tactics_V1_Builtins r Tactics_V2_Builtins r Tactics_V1_Basic r Tactics_V2_Basic r Tactics_Types r Tactics_Native r Reflection_V1_Builtins r Reflection_V2_Builtins r Reflection_V1_Data r Reflection_V2_Data sed -i 's/FStar_Parser/FStarC_Parser/g' src/Makefile --- pulse2rust/src/Pulse2Rust.Deps.fst | 16 +- pulse2rust/src/Pulse2Rust.Deps.fsti | 14 +- pulse2rust/src/Pulse2Rust.Env.fst | 14 +- pulse2rust/src/Pulse2Rust.Env.fsti | 12 +- pulse2rust/src/Pulse2Rust.Extract.fst | 32 +- pulse2rust/src/Pulse2Rust.Extract.fsti | 10 +- pulse2rust/src/Pulse2Rust.Rust.Syntax.fst | 4 +- pulse2rust/src/Pulse2Rust.Rust.Syntax.fsti | 2 +- pulse2rust/src/Pulse2Rust.fst | 18 +- pulse2rust/src/RustBindings.fsti | 2 +- pulse2rust/src/ocaml/generated/Pulse2Rust.ml | 200 +- .../src/ocaml/generated/Pulse2Rust_Deps.ml | 364 +-- .../src/ocaml/generated/Pulse2Rust_Env.ml | 32 +- .../src/ocaml/generated/Pulse2Rust_Extract.ml | 1564 +++++------ .../ocaml/generated/Pulse2Rust_Rust_Syntax.ml | 28 +- src/Makefile | 4 +- src/extraction/ExtractPulse.fst | 30 +- src/extraction/ExtractPulse.fsti | 2 +- src/extraction/ExtractPulseC.fst | 38 +- src/extraction/ExtractPulseC.fsti | 2 +- src/ocaml/plugin/FStar_Parser_Parse.mly | 48 +- .../plugin/PulseSyntaxExtension_Parser.ml | 32 +- .../PulseSyntaxExtension_SyntaxWrapper.ml | 24 +- src/ocaml/plugin/Pulse_Extract_CompilerLib.ml | 22 +- src/ocaml/plugin/Pulse_RuntimeUtils.ml | 134 +- src/ocaml/plugin/generated/ExtractPulse.ml | 696 ++--- src/ocaml/plugin/generated/ExtractPulseC.ml | 838 +++--- .../PulseSyntaxExtension_ASTBuilder.ml | 296 +- .../generated/PulseSyntaxExtension_Desugar.ml | 826 +++--- .../generated/PulseSyntaxExtension_Env.ml | 234 +- .../generated/PulseSyntaxExtension_Err.ml | 36 +- .../generated/PulseSyntaxExtension_Sugar.ml | 552 ++-- .../PulseSyntaxExtension_TransformRValues.ml | 322 +-- src/ocaml/plugin/generated/Pulse_Checker.ml | 16 +- .../plugin/generated/Pulse_Checker_Abs.ml | 68 +- .../plugin/generated/Pulse_Checker_Admit.ml | 8 +- .../Pulse_Checker_AssertWithBinders.ml | 134 +- .../plugin/generated/Pulse_Checker_Base.ml | 92 +- .../plugin/generated/Pulse_Checker_Bind.ml | 4 +- .../plugin/generated/Pulse_Checker_Exists.ml | 2 +- .../plugin/generated/Pulse_Checker_Match.ml | 48 +- .../plugin/generated/Pulse_Checker_Prover.ml | 34 +- .../generated/Pulse_Checker_Prover_Base.ml | 4 +- .../Pulse_Checker_Prover_ElimPure.ml | 18 +- .../Pulse_Checker_Prover_IntroPure.ml | 42 +- .../Pulse_Checker_Prover_Match_Comb.ml | 58 +- .../Pulse_Checker_Prover_Match_Matchers.ml | 156 +- .../generated/Pulse_Checker_Prover_Substs.ml | 36 +- .../generated/Pulse_Checker_Prover_Util.ml | 2 +- .../plugin/generated/Pulse_Checker_Pure.ml | 290 +- .../plugin/generated/Pulse_Checker_Return.ml | 12 +- .../plugin/generated/Pulse_Checker_Rewrite.ml | 12 +- .../plugin/generated/Pulse_Checker_STApp.ml | 22 +- .../generated/Pulse_Checker_Unreachable.ml | 8 +- .../plugin/generated/Pulse_Checker_WithInv.ml | 40 +- .../generated/Pulse_Checker_WithLocal.ml | 4 +- .../generated/Pulse_Checker_WithLocalArray.ml | 4 +- src/ocaml/plugin/generated/Pulse_Config.ml | 2 +- .../plugin/generated/Pulse_Elaborate_Core.ml | 126 +- .../plugin/generated/Pulse_Elaborate_Pure.ml | 82 +- .../plugin/generated/Pulse_Extract_Main.ml | 144 +- .../plugin/generated/Pulse_Lib_Core_Typing.ml | 230 +- src/ocaml/plugin/generated/Pulse_Main.ml | 228 +- src/ocaml/plugin/generated/Pulse_PP.ml | 200 +- src/ocaml/plugin/generated/Pulse_Readback.ml | 60 +- src/ocaml/plugin/generated/Pulse_Recursion.ml | 144 +- .../plugin/generated/Pulse_Reflection_Util.ml | 2466 ++++++++--------- src/ocaml/plugin/generated/Pulse_Show.ml | 6 +- .../plugin/generated/Pulse_Soundness_Bind.ml | 104 +- .../generated/Pulse_Soundness_Common.ml | 292 +- .../plugin/generated/Pulse_Soundness_Match.ml | 2 +- .../generated/Pulse_Soundness_SLPropEquiv.ml | 46 +- .../generated/Pulse_Soundness_STEquiv.ml | 12 +- .../plugin/generated/Pulse_Syntax_Base.ml | 26 +- .../plugin/generated/Pulse_Syntax_Builder.ml | 28 +- .../plugin/generated/Pulse_Syntax_Naming.ml | 18 +- .../plugin/generated/Pulse_Syntax_Printer.ml | 124 +- .../plugin/generated/Pulse_Syntax_Pure.ml | 270 +- src/ocaml/plugin/generated/Pulse_Typing.ml | 62 +- .../generated/Pulse_Typing_Combinators.ml | 10 +- .../plugin/generated/Pulse_Typing_Env.ml | 80 +- src/ocaml/plugin/generated/Pulse_Typing_FV.ml | 2 +- .../generated/Pulse_Typing_Metatheory_Base.ml | 4 +- .../plugin/generated/Pulse_Typing_Util.ml | 16 +- src/ocaml/plugin/pulseparser.mly | 36 +- .../PulseSyntaxExtension.ASTBuilder.fst | 82 +- .../PulseSyntaxExtension.Desugar.fst | 54 +- .../PulseSyntaxExtension.Desugar.fsti | 8 +- .../PulseSyntaxExtension.Env.fst | 34 +- .../PulseSyntaxExtension.Err.fst | 12 +- .../PulseSyntaxExtension.Parser.fsti | 14 +- .../PulseSyntaxExtension.Sugar.fst | 26 +- .../PulseSyntaxExtension.SyntaxWrapper.fsti | 22 +- .../PulseSyntaxExtension.TransformRValues.fst | 30 +- 94 files changed, 6332 insertions(+), 6332 deletions(-) diff --git a/pulse2rust/src/Pulse2Rust.Deps.fst b/pulse2rust/src/Pulse2Rust.Deps.fst index 8ad09ca66..67e34419f 100644 --- a/pulse2rust/src/Pulse2Rust.Deps.fst +++ b/pulse2rust/src/Pulse2Rust.Deps.fst @@ -16,10 +16,10 @@ module Pulse2Rust.Deps -open FStar.Compiler -open FStar.Compiler.Util -open FStar.Compiler.List -open FStar.Compiler.Effect +open FStarC.Compiler +open FStarC.Compiler.Util +open FStarC.Compiler.List +open FStarC.Compiler.Effect open Pulse2Rust.Rust.Syntax open Pulse2Rust.Env @@ -27,12 +27,12 @@ open Pulse2Rust.Extract open RustBindings -open FStar.Class.Setlike +open FStarC.Class.Setlike -module S = FStar.Extraction.ML.Syntax -module EUtil = FStar.Extraction.ML.Util +module S = FStarC.Extraction.ML.Syntax +module EUtil = FStarC.Extraction.ML.Util -module UEnv = FStar.Extraction.ML.UEnv +module UEnv = FStarC.Extraction.ML.UEnv let empty_defs : reachable_defs = RBSet.empty () let singleton (p:S.mlpath) : reachable_defs = singleton (S.string_of_mlpath p) diff --git a/pulse2rust/src/Pulse2Rust.Deps.fsti b/pulse2rust/src/Pulse2Rust.Deps.fsti index 69544e2b3..5c49dc9b3 100644 --- a/pulse2rust/src/Pulse2Rust.Deps.fsti +++ b/pulse2rust/src/Pulse2Rust.Deps.fsti @@ -16,10 +16,10 @@ module Pulse2Rust.Deps -open FStar.Compiler -open FStar.Compiler.Util -open FStar.Compiler.List -open FStar.Compiler.Effect +open FStarC.Compiler +open FStarC.Compiler.Util +open FStarC.Compiler.List +open FStarC.Compiler.Effect open Pulse2Rust.Rust.Syntax open Pulse2Rust.Env @@ -27,10 +27,10 @@ open Pulse2Rust.Extract open RustBindings -module S = FStar.Extraction.ML.Syntax -module EUtil = FStar.Extraction.ML.Util +module S = FStarC.Extraction.ML.Syntax +module EUtil = FStarC.Extraction.ML.Util -module UEnv = FStar.Extraction.ML.UEnv +module UEnv = FStarC.Extraction.ML.UEnv val empty_defs : reachable_defs diff --git a/pulse2rust/src/Pulse2Rust.Env.fst b/pulse2rust/src/Pulse2Rust.Env.fst index b5cde399a..6f8c72f5e 100644 --- a/pulse2rust/src/Pulse2Rust.Env.fst +++ b/pulse2rust/src/Pulse2Rust.Env.fst @@ -16,20 +16,20 @@ module Pulse2Rust.Env -open FStar.Compiler -open FStar.Compiler.Util -open FStar.Compiler.List -open FStar.Compiler.Effect +open FStarC.Compiler +open FStarC.Compiler.Util +open FStarC.Compiler.List +open FStarC.Compiler.Effect -open FStar.Class.Setlike +open FStarC.Class.Setlike open Pulse2Rust.Rust.Syntax open RustBindings -module S = FStar.Extraction.ML.Syntax +module S = FStarC.Extraction.ML.Syntax -module UEnv = FStar.Extraction.ML.UEnv +module UEnv = FStarC.Extraction.ML.UEnv let fail (s:string) = failwith (format1 "Pulse to Rust extraction failed: %s" s) diff --git a/pulse2rust/src/Pulse2Rust.Env.fsti b/pulse2rust/src/Pulse2Rust.Env.fsti index 6c317425a..a7dcb6fac 100644 --- a/pulse2rust/src/Pulse2Rust.Env.fsti +++ b/pulse2rust/src/Pulse2Rust.Env.fsti @@ -16,16 +16,16 @@ module Pulse2Rust.Env -open FStar.Compiler -open FStar.Compiler.Util -open FStar.Compiler.List -open FStar.Compiler.Effect +open FStarC.Compiler +open FStarC.Compiler.Util +open FStarC.Compiler.List +open FStarC.Compiler.Effect open Pulse2Rust.Rust.Syntax -module S = FStar.Extraction.ML.Syntax +module S = FStarC.Extraction.ML.Syntax -module UEnv = FStar.Extraction.ML.UEnv +module UEnv = FStarC.Extraction.ML.UEnv val fail (s:string) : 'a diff --git a/pulse2rust/src/Pulse2Rust.Extract.fst b/pulse2rust/src/Pulse2Rust.Extract.fst index 2ca88e832..544078d48 100644 --- a/pulse2rust/src/Pulse2Rust.Extract.fst +++ b/pulse2rust/src/Pulse2Rust.Extract.fst @@ -16,20 +16,20 @@ module Pulse2Rust.Extract -open FStar.Compiler -open FStar.Compiler.Util -open FStar.Compiler.List -open FStar.Compiler.Effect +open FStarC.Compiler +open FStarC.Compiler.Util +open FStarC.Compiler.List +open FStarC.Compiler.Effect open Pulse2Rust.Rust.Syntax open Pulse2Rust.Env open RustBindings -module S = FStar.Extraction.ML.Syntax -module EUtil = FStar.Extraction.ML.Util +module S = FStarC.Extraction.ML.Syntax +module EUtil = FStarC.Extraction.ML.Util -module UEnv = FStar.Extraction.ML.UEnv +module UEnv = FStarC.Extraction.ML.UEnv // // 'a to A @@ -73,7 +73,7 @@ let lookup_datacon (g:env) (s:S.mlident) : option (list string & S.mlsymbol) = let ropt = find_map decls (lookup_datacon_in_module1 s) in match ropt with | None -> None - | Some tname -> Some (FStar.Compiler.Util.split k ".", tname) + | Some tname -> Some (FStarC.Compiler.Util.split k ".", tname) ) // @@ -374,16 +374,16 @@ let extract_mlconstant_to_lit (c:S.mlconstant) : lit = | S.MLC_Int (lit_int_val, swopt) -> let lit_int_signed = match swopt with - | Some (FStar.Const.Unsigned, _) -> Some false - | Some (FStar.Const.Signed, _) -> Some true + | Some (FStarC.Const.Unsigned, _) -> Some false + | Some (FStarC.Const.Signed, _) -> Some true | None -> None in let lit_int_width = match swopt with - | Some (_, FStar.Const.Int8) -> Some I8 - | Some (_, FStar.Const.Int16) -> Some I16 - | Some (_, FStar.Const.Int32) -> Some I32 - | Some (_, FStar.Const.Int64) -> Some I64 - | Some (_, FStar.Const.Sizet) -> Some I64 // TODO: FIXME + | Some (_, FStarC.Const.Int8) -> Some I8 + | Some (_, FStarC.Const.Int16) -> Some I16 + | Some (_, FStarC.Const.Int32) -> Some I32 + | Some (_, FStarC.Const.Int64) -> Some I64 + | Some (_, FStarC.Const.Sizet) -> Some I64 // TODO: FIXME | None -> None in Lit_int {lit_int_val; lit_int_signed; lit_int_width} | S.MLC_Bool b -> Lit_bool b @@ -890,7 +890,7 @@ let extract_generic_type_param_trait_bounds (attrs:list S.mlexpr) : list (list s match e.expr with | MLE_Const (MLC_String s) -> s | _ -> failwith "unexpected generic type param bounds") - |> List.map (fun bound -> FStar.Compiler.Util.split bound "::")) + |> List.map (fun bound -> FStarC.Compiler.Util.split bound "::")) |> dflt [] let extract_generic_type_params (tyvars:list S.ty_param) diff --git a/pulse2rust/src/Pulse2Rust.Extract.fsti b/pulse2rust/src/Pulse2Rust.Extract.fsti index 9ad81891d..579f082db 100644 --- a/pulse2rust/src/Pulse2Rust.Extract.fsti +++ b/pulse2rust/src/Pulse2Rust.Extract.fsti @@ -16,15 +16,15 @@ module Pulse2Rust.Extract -open FStar.Compiler -open FStar.Compiler.Util -open FStar.Compiler.List -open FStar.Compiler.Effect +open FStarC.Compiler +open FStarC.Compiler.Util +open FStarC.Compiler.List +open FStarC.Compiler.Effect open Pulse2Rust.Rust.Syntax open Pulse2Rust.Env -module S = FStar.Extraction.ML.Syntax +module S = FStarC.Extraction.ML.Syntax val extract_mlty (g:env) (t:S.mlty) : typ diff --git a/pulse2rust/src/Pulse2Rust.Rust.Syntax.fst b/pulse2rust/src/Pulse2Rust.Rust.Syntax.fst index b111686e7..ce46a886d 100644 --- a/pulse2rust/src/Pulse2Rust.Rust.Syntax.fst +++ b/pulse2rust/src/Pulse2Rust.Rust.Syntax.fst @@ -16,9 +16,9 @@ module Pulse2Rust.Rust.Syntax -open FStar.Compiler.Effect +open FStarC.Compiler.Effect -module L = FStar.Compiler.List +module L = FStarC.Compiler.List let vec_new_fn = "vec_new" let panic_fn = "panic" diff --git a/pulse2rust/src/Pulse2Rust.Rust.Syntax.fsti b/pulse2rust/src/Pulse2Rust.Rust.Syntax.fsti index 9facefd5a..51ab5ddd8 100644 --- a/pulse2rust/src/Pulse2Rust.Rust.Syntax.fsti +++ b/pulse2rust/src/Pulse2Rust.Rust.Syntax.fsti @@ -16,7 +16,7 @@ module Pulse2Rust.Rust.Syntax -open FStar.Compiler.Effect +open FStarC.Compiler.Effect type lit_int_width = | I8 diff --git a/pulse2rust/src/Pulse2Rust.fst b/pulse2rust/src/Pulse2Rust.fst index 7e4f2b612..efe883d8f 100644 --- a/pulse2rust/src/Pulse2Rust.fst +++ b/pulse2rust/src/Pulse2Rust.fst @@ -16,10 +16,10 @@ module Pulse2Rust -open FStar.Compiler -open FStar.Compiler.Util -open FStar.Compiler.List -open FStar.Compiler.Effect +open FStarC.Compiler +open FStarC.Compiler.Util +open FStarC.Compiler.List +open FStarC.Compiler.Effect open Pulse2Rust.Deps open Pulse2Rust.Rust.Syntax @@ -28,12 +28,12 @@ open Pulse2Rust.Extract open RustBindings -open FStar.Class.Setlike +open FStarC.Class.Setlike -module S = FStar.Extraction.ML.Syntax -module EUtil = FStar.Extraction.ML.Util +module S = FStarC.Extraction.ML.Syntax +module EUtil = FStarC.Extraction.ML.Util -module UEnv = FStar.Extraction.ML.UEnv +module UEnv = FStarC.Extraction.ML.UEnv let mlmodule1_name (m:S.mlmodule1) : list S.mlsymbol = let open S in @@ -182,7 +182,7 @@ let extract (files:list string) (odir:string) (libs:string) : unit = let root_module = file_to_module_name (let root_file::_ = files in root_file) in // print1 "root_module: %s\n" root_module; let reachable_defs = collect_reachable_defs d root_module in - let external_libs = FStar.Compiler.Util.split libs "," |> List.map trim_string in + let external_libs = FStarC.Compiler.Util.split libs "," |> List.map trim_string in let g = empty_env external_libs d all_modules reachable_defs in let _, all_rust_files = List.fold_left (fun (g, all_rust_files) f -> // print1 "Extracting file: %s\n" f; diff --git a/pulse2rust/src/RustBindings.fsti b/pulse2rust/src/RustBindings.fsti index 72cc1948a..2b6cc1f9b 100644 --- a/pulse2rust/src/RustBindings.fsti +++ b/pulse2rust/src/RustBindings.fsti @@ -16,7 +16,7 @@ module RustBindings -open FStar.Compiler.Effect +open FStarC.Compiler.Effect open Pulse2Rust.Rust.Syntax diff --git a/pulse2rust/src/ocaml/generated/Pulse2Rust.ml b/pulse2rust/src/ocaml/generated/Pulse2Rust.ml index bb2745ca4..033b0a052 100644 --- a/pulse2rust/src/ocaml/generated/Pulse2Rust.ml +++ b/pulse2rust/src/ocaml/generated/Pulse2Rust.ml @@ -1,24 +1,24 @@ open Prims let (mlmodule1_name : - FStar_Extraction_ML_Syntax.mlmodule1 -> - FStar_Extraction_ML_Syntax.mlsymbol Prims.list) + FStarC_Extraction_ML_Syntax.mlmodule1 -> + FStarC_Extraction_ML_Syntax.mlsymbol Prims.list) = fun m -> - match m.FStar_Extraction_ML_Syntax.mlmodule1_m with - | FStar_Extraction_ML_Syntax.MLM_Ty l -> - FStar_Compiler_List.map - (fun t -> t.FStar_Extraction_ML_Syntax.tydecl_name) l - | FStar_Extraction_ML_Syntax.MLM_Let (uu___, lbs) -> - FStar_Compiler_List.map - (fun lb -> lb.FStar_Extraction_ML_Syntax.mllb_name) lbs - | FStar_Extraction_ML_Syntax.MLM_Exn (s, uu___) -> [s] - | FStar_Extraction_ML_Syntax.MLM_Top uu___ -> [] - | FStar_Extraction_ML_Syntax.MLM_Loc uu___ -> [] + match m.FStarC_Extraction_ML_Syntax.mlmodule1_m with + | FStarC_Extraction_ML_Syntax.MLM_Ty l -> + FStarC_Compiler_List.map + (fun t -> t.FStarC_Extraction_ML_Syntax.tydecl_name) l + | FStarC_Extraction_ML_Syntax.MLM_Let (uu___, lbs) -> + FStarC_Compiler_List.map + (fun lb -> lb.FStarC_Extraction_ML_Syntax.mllb_name) lbs + | FStarC_Extraction_ML_Syntax.MLM_Exn (s, uu___) -> [s] + | FStarC_Extraction_ML_Syntax.MLM_Top uu___ -> [] + | FStarC_Extraction_ML_Syntax.MLM_Loc uu___ -> [] let (extract_one : Pulse2Rust_Env.env -> Prims.string -> - FStar_Extraction_ML_UEnv.binding Prims.list -> - FStar_Extraction_ML_Syntax.mlmodule -> + FStarC_Extraction_ML_UEnv.binding Prims.list -> + FStarC_Extraction_ML_Syntax.mlmodule -> (Prims.string * Pulse2Rust_Env.env)) = fun g -> @@ -26,7 +26,7 @@ let (extract_one : fun gamma -> fun decls -> let uu___ = - FStar_Compiler_List.fold_left + FStarC_Compiler_List.fold_left (fun uu___1 -> fun d -> match uu___1 with @@ -39,54 +39,54 @@ let (extract_one : if uu___2 then (items, g1) else - (match d.FStar_Extraction_ML_Syntax.mlmodule1_m with - | FStar_Extraction_ML_Syntax.MLM_Let - (FStar_Extraction_ML_Syntax.NonRec, + (match d.FStarC_Extraction_ML_Syntax.mlmodule1_m with + | FStarC_Extraction_ML_Syntax.MLM_Let + (FStarC_Extraction_ML_Syntax.NonRec, { - FStar_Extraction_ML_Syntax.mllb_name = + FStarC_Extraction_ML_Syntax.mllb_name = mllb_name; - FStar_Extraction_ML_Syntax.mllb_tysc = + FStarC_Extraction_ML_Syntax.mllb_tysc = uu___4; - FStar_Extraction_ML_Syntax.mllb_add_unit = + FStarC_Extraction_ML_Syntax.mllb_add_unit = uu___5; - FStar_Extraction_ML_Syntax.mllb_def = uu___6; - FStar_Extraction_ML_Syntax.mllb_attrs = + FStarC_Extraction_ML_Syntax.mllb_def = uu___6; + FStarC_Extraction_ML_Syntax.mllb_attrs = uu___7; - FStar_Extraction_ML_Syntax.mllb_meta = + FStarC_Extraction_ML_Syntax.mllb_meta = uu___8; - FStar_Extraction_ML_Syntax.print_typ = + FStarC_Extraction_ML_Syntax.print_typ = uu___9;_}::[]) when - (FStar_Compiler_Util.starts_with mllb_name + (FStarC_Compiler_Util.starts_with mllb_name "uu___is_") || - (FStar_Compiler_Util.starts_with mllb_name + (FStarC_Compiler_Util.starts_with mllb_name "__proj__") -> (items, g1) - | FStar_Extraction_ML_Syntax.MLM_Let lb -> + | FStarC_Extraction_ML_Syntax.MLM_Let lb -> let uu___4 = Pulse2Rust_Extract.extract_top_level_lb g1 lb in (match uu___4 with | (f, g2) -> - ((FStar_Compiler_List.op_At items [f]), + ((FStarC_Compiler_List.op_At items [f]), g2)) - | FStar_Extraction_ML_Syntax.MLM_Loc uu___4 -> + | FStarC_Extraction_ML_Syntax.MLM_Loc uu___4 -> (items, g1) - | FStar_Extraction_ML_Syntax.MLM_Ty td -> + | FStarC_Extraction_ML_Syntax.MLM_Ty td -> let uu___4 = Pulse2Rust_Extract.extract_mltydecl g1 - d.FStar_Extraction_ML_Syntax.mlmodule1_attrs + d.FStarC_Extraction_ML_Syntax.mlmodule1_attrs td in (match uu___4 with | (d_items, g2) -> - ((FStar_Compiler_List.op_At items d_items), + ((FStarC_Compiler_List.op_At items d_items), g2)) | uu___4 -> let uu___5 = let uu___6 = - FStar_Extraction_ML_Syntax.mlmodule1_to_string + FStarC_Extraction_ML_Syntax.mlmodule1_to_string d in - FStar_Compiler_Util.format1 + FStarC_Compiler_Util.format1 "top level decl %s" uu___6 in Pulse2Rust_Env.fail_nyi uu___5)) ([], g) decls in match uu___ with @@ -96,50 +96,50 @@ let (extract_one : let (file_to_module_name : Prims.string -> Prims.string) = fun f -> let suffix = ".ast" in - let s = FStar_Compiler_Util.basename f in + let s = FStarC_Compiler_Util.basename f in let s1 = - FStar_Compiler_String.substring s Prims.int_zero - ((FStar_Compiler_String.length s) - - (FStar_Compiler_String.length suffix)) in - FStar_Compiler_Util.replace_chars s1 95 "." + FStarC_Compiler_String.substring s Prims.int_zero + ((FStarC_Compiler_String.length s) - + (FStarC_Compiler_String.length suffix)) in + FStarC_Compiler_Util.replace_chars s1 95 "." let (read_all_ast_files : Prims.string Prims.list -> Pulse2Rust_Env.dict) = fun files -> - let d = FStar_Compiler_Util.smap_create (Prims.of_int (100)) in - FStar_Compiler_List.iter + let d = FStarC_Compiler_Util.smap_create (Prims.of_int (100)) in + FStarC_Compiler_List.iter (fun f -> let contents = - let uu___1 = FStar_Compiler_Util.load_value_from_file f in + let uu___1 = FStarC_Compiler_Util.load_value_from_file f in match uu___1 with | FStar_Pervasives_Native.Some r -> r | FStar_Pervasives_Native.None -> let uu___2 = - FStar_Compiler_Util.format1 "Could not load file %s" f in - FStar_Compiler_Effect.failwith uu___2 in + FStarC_Compiler_Util.format1 "Could not load file %s" f in + FStarC_Compiler_Effect.failwith uu___2 in let uu___1 = file_to_module_name f in - FStar_Compiler_Util.smap_add d uu___1 contents) files; + FStarC_Compiler_Util.smap_add d uu___1 contents) files; d let (build_decls_dict : Pulse2Rust_Env.dict -> - FStar_Extraction_ML_Syntax.mlmodule1 FStar_Compiler_Util.smap) + FStarC_Extraction_ML_Syntax.mlmodule1 FStarC_Compiler_Util.smap) = fun d -> - let dd = FStar_Compiler_Util.smap_create (Prims.of_int (100)) in - FStar_Compiler_Util.smap_iter d + let dd = FStarC_Compiler_Util.smap_create (Prims.of_int (100)) in + FStarC_Compiler_Util.smap_iter d (fun module_nm -> fun uu___1 -> match uu___1 with | (uu___2, uu___3, decls) -> - FStar_Compiler_List.iter + FStarC_Compiler_List.iter (fun decl -> let uu___4 = mlmodule1_name decl in - FStar_Compiler_List.iter + FStarC_Compiler_List.iter (fun decl_nm -> - FStar_Compiler_Util.smap_add dd + FStarC_Compiler_Util.smap_add dd (Prims.strcat module_nm (Prims.strcat "." decl_nm)) decl) uu___4) decls); dd let rec (collect_reachable_defs_aux : - FStar_Extraction_ML_Syntax.mlmodule1 FStar_Compiler_Util.smap -> + FStarC_Extraction_ML_Syntax.mlmodule1 FStarC_Compiler_Util.smap -> Pulse2Rust_Env.reachable_defs -> Pulse2Rust_Env.reachable_defs -> Pulse2Rust_Env.reachable_defs) = @@ -147,73 +147,73 @@ let rec (collect_reachable_defs_aux : fun worklist -> fun reachable_defs -> let uu___ = - FStar_Class_Setlike.is_empty () + FStarC_Class_Setlike.is_empty () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset FStar_Class_Ord.ord_string)) + (FStarC_Compiler_RBSet.setlike_rbset FStarC_Class_Ord.ord_string)) (Obj.magic worklist) in if uu___ then reachable_defs else (let uu___2 = - FStar_Class_Setlike.elems () + FStarC_Class_Setlike.elems () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic worklist) in + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic worklist) in match uu___2 with | hd::uu___3 -> let worklist1 = Obj.magic - (FStar_Class_Setlike.remove () + (FStarC_Class_Setlike.remove () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) hd + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) hd (Obj.magic worklist)) in let reachable_defs1 = Obj.magic - (FStar_Class_Setlike.add () + (FStarC_Class_Setlike.add () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) hd + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) hd (Obj.magic reachable_defs)) in let worklist2 = - let hd_decl = FStar_Compiler_Util.smap_try_find dd hd in + let hd_decl = FStarC_Compiler_Util.smap_try_find dd hd in match hd_decl with | FStar_Pervasives_Native.None -> worklist1 | FStar_Pervasives_Native.Some hd_decl1 -> let hd_reachable_defs = Pulse2Rust_Deps.reachable_defs_mlmodule1 hd_decl1 in let uu___4 = - FStar_Class_Setlike.elems () + FStarC_Class_Setlike.elems () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic hd_reachable_defs) in - FStar_Compiler_List.fold_left + FStarC_Compiler_List.fold_left (fun uu___6 -> fun uu___5 -> (fun worklist3 -> fun def -> let uu___5 = - (FStar_Class_Setlike.mem () + (FStarC_Class_Setlike.mem () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) def + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) def (Obj.magic reachable_defs1)) || - (FStar_Class_Setlike.mem () + (FStarC_Class_Setlike.mem () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) def (Obj.magic worklist3)) in if uu___5 then Obj.magic (Obj.repr worklist3) else Obj.magic (Obj.repr - (FStar_Class_Setlike.add () + (FStarC_Class_Setlike.add () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) def (Obj.magic worklist3)))) uu___6 uu___5) worklist1 uu___4 in collect_reachable_defs_aux dd worklist2 reachable_defs1) @@ -224,35 +224,35 @@ let (collect_reachable_defs : let dd = build_decls_dict d in let root_decls = let uu___ = - let uu___1 = FStar_Compiler_Util.smap_try_find d root_module in - FStar_Compiler_Util.must uu___1 in + let uu___1 = FStarC_Compiler_Util.smap_try_find d root_module in + FStarC_Compiler_Util.must uu___1 in match uu___ with | (uu___1, uu___2, decls) -> decls in let worklist = - FStar_Compiler_List.fold_left + FStarC_Compiler_List.fold_left (fun uu___1 -> fun uu___ -> (fun worklist1 -> fun decl -> let uu___ = let uu___1 = mlmodule1_name decl in - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun s -> Prims.strcat root_module (Prims.strcat "." s)) uu___1 in Obj.magic - (FStar_Class_Setlike.addn () + (FStarC_Class_Setlike.addn () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) uu___ + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) uu___ (Obj.magic worklist1))) uu___1 uu___) Pulse2Rust_Deps.empty_defs root_decls in collect_reachable_defs_aux dd worklist Pulse2Rust_Deps.empty_defs let (rust_file_name : Prims.string -> Prims.string) = fun mname -> let s = - FStar_Compiler_String.lowercase - (FStar_Compiler_Util.replace_char mname 46 95) in - FStar_Compiler_Util.strcat s ".rs" + FStarC_Compiler_String.lowercase + (FStarC_Compiler_Util.replace_char mname 46 95) in + FStarC_Compiler_Util.strcat s ".rs" let (header : Prims.string) = "////\n////\n//// This file is generated by the Pulse2Rust tool\n////\n////\n" let (extract : @@ -268,19 +268,19 @@ let (extract : match uu___ with | root_file::uu___1 -> root_file) in let reachable_defs = collect_reachable_defs d root_module in let external_libs = - FStar_Compiler_List.map FStar_Compiler_Util.trim_string - (FStar_Compiler_Util.split libs ",") in + FStarC_Compiler_List.map FStarC_Compiler_Util.trim_string + (FStarC_Compiler_Util.split libs ",") in let g = Pulse2Rust_Env.empty_env external_libs d all_modules reachable_defs in let uu___ = - FStar_Compiler_List.fold_left + FStarC_Compiler_List.fold_left (fun uu___1 -> fun f -> match uu___1 with | (g1, all_rust_files) -> let uu___2 = - let uu___3 = FStar_Compiler_Util.smap_try_find d f in - FStar_Compiler_Util.must uu___3 in + let uu___3 = FStarC_Compiler_Util.smap_try_find d f in + FStarC_Compiler_Util.must uu___3 in (match uu___2 with | (uu___3, bs, ds) -> let uu___4 = extract_one g1 f bs ds in @@ -288,18 +288,18 @@ let (extract : | (s, g2) -> let rust_fname = let uu___5 = rust_file_name f in - FStar_Compiler_Util.concat_dir_filename odir + FStarC_Compiler_Util.concat_dir_filename odir uu___5 in let rust_f = - FStar_Compiler_Util.open_file_for_writing + FStarC_Compiler_Util.open_file_for_writing rust_fname in - (FStar_Compiler_Util.append_to_file rust_f + (FStarC_Compiler_Util.append_to_file rust_f header; - FStar_Compiler_Util.append_to_file rust_f s; - FStar_Compiler_Util.close_out_channel rust_f; + FStarC_Compiler_Util.append_to_file rust_f s; + FStarC_Compiler_Util.close_out_channel rust_f; (g2, (rust_fname :: all_rust_files)))))) (g, []) all_modules in match uu___ with | (uu___1, all_rust_files) -> - FStar_Compiler_Util.print1 "\n\nExtracted: %s\n\n" - (FStar_Compiler_String.concat " " all_rust_files) \ No newline at end of file + FStarC_Compiler_Util.print1 "\n\nExtracted: %s\n\n" + (FStarC_Compiler_String.concat " " all_rust_files) \ No newline at end of file diff --git a/pulse2rust/src/ocaml/generated/Pulse2Rust_Deps.ml b/pulse2rust/src/ocaml/generated/Pulse2Rust_Deps.ml index 3a4ddb68d..4c11fd9d1 100644 --- a/pulse2rust/src/ocaml/generated/Pulse2Rust_Deps.ml +++ b/pulse2rust/src/ocaml/generated/Pulse2Rust_Deps.ml @@ -1,18 +1,18 @@ open Prims let (empty_defs : Pulse2Rust_Env.reachable_defs) = Obj.magic - (FStar_Class_Setlike.empty () + (FStarC_Class_Setlike.empty () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset FStar_Class_Ord.ord_string)) ()) + (FStarC_Compiler_RBSet.setlike_rbset FStarC_Class_Ord.ord_string)) ()) let (singleton : - FStar_Extraction_ML_Syntax.mlpath -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mlpath -> Pulse2Rust_Env.reachable_defs) = fun uu___ -> (fun p -> - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in Obj.magic - (FStar_Class_Setlike.singleton () + (FStarC_Class_Setlike.singleton () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset FStar_Class_Ord.ord_string)) + (FStarC_Compiler_RBSet.setlike_rbset FStarC_Class_Ord.ord_string)) uu___)) uu___ let reachable_defs_list : 'a . @@ -23,21 +23,21 @@ let reachable_defs_list : fun l -> let uu___ = Obj.magic - (FStar_Class_Setlike.empty () + (FStarC_Class_Setlike.empty () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) ()) in - FStar_Compiler_List.fold_left + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) ()) in + FStarC_Compiler_List.fold_left (fun uu___2 -> fun uu___1 -> (fun defs -> fun x -> let uu___1 = f x in Obj.magic - (FStar_Class_Setlike.union () + (FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic defs) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic defs) (Obj.magic uu___1))) uu___2 uu___1) uu___ l let reachable_defs_option : 'a . @@ -50,155 +50,155 @@ let reachable_defs_option : | FStar_Pervasives_Native.None -> empty_defs | FStar_Pervasives_Native.Some x -> f x let rec (reachable_defs_mlty : - FStar_Extraction_ML_Syntax.mlty -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mlty -> Pulse2Rust_Env.reachable_defs) = fun uu___ -> (fun t -> match t with - | FStar_Extraction_ML_Syntax.MLTY_Var uu___ -> + | FStarC_Extraction_ML_Syntax.MLTY_Var uu___ -> Obj.magic (Obj.repr empty_defs) - | FStar_Extraction_ML_Syntax.MLTY_Fun (t1, uu___, t2) -> + | FStarC_Extraction_ML_Syntax.MLTY_Fun (t1, uu___, t2) -> Obj.magic (Obj.repr (let uu___1 = reachable_defs_mlty t1 in let uu___2 = reachable_defs_mlty t2 in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___1) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___1) (Obj.magic uu___2))) - | FStar_Extraction_ML_Syntax.MLTY_Named (tps, p) -> + | FStarC_Extraction_ML_Syntax.MLTY_Named (tps, p) -> Obj.magic (Obj.repr (let uu___ = reachable_defs_list reachable_defs_mlty tps in let uu___1 = singleton p in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) - | FStar_Extraction_ML_Syntax.MLTY_Tuple ts -> + | FStarC_Extraction_ML_Syntax.MLTY_Tuple ts -> Obj.magic (Obj.repr (reachable_defs_list reachable_defs_mlty ts)) - | FStar_Extraction_ML_Syntax.MLTY_Top -> + | FStarC_Extraction_ML_Syntax.MLTY_Top -> Obj.magic (Obj.repr empty_defs) - | FStar_Extraction_ML_Syntax.MLTY_Erased -> + | FStarC_Extraction_ML_Syntax.MLTY_Erased -> Obj.magic (Obj.repr empty_defs)) uu___ let (reachable_defs_mltyscheme : - FStar_Extraction_ML_Syntax.mltyscheme -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mltyscheme -> Pulse2Rust_Env.reachable_defs) = fun uu___ -> match uu___ with | (uu___1, t) -> reachable_defs_mlty t let rec (reachable_defs_mlpattern : - FStar_Extraction_ML_Syntax.mlpattern -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mlpattern -> Pulse2Rust_Env.reachable_defs) = fun uu___ -> (fun p -> match p with - | FStar_Extraction_ML_Syntax.MLP_Wild -> + | FStarC_Extraction_ML_Syntax.MLP_Wild -> Obj.magic (Obj.repr empty_defs) - | FStar_Extraction_ML_Syntax.MLP_Const uu___ -> + | FStarC_Extraction_ML_Syntax.MLP_Const uu___ -> Obj.magic (Obj.repr empty_defs) - | FStar_Extraction_ML_Syntax.MLP_Var uu___ -> + | FStarC_Extraction_ML_Syntax.MLP_Var uu___ -> Obj.magic (Obj.repr empty_defs) - | FStar_Extraction_ML_Syntax.MLP_CTor (c, ps) -> + | FStarC_Extraction_ML_Syntax.MLP_CTor (c, ps) -> Obj.magic (Obj.repr (let uu___ = singleton c in let uu___1 = reachable_defs_list reachable_defs_mlpattern ps in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) - | FStar_Extraction_ML_Syntax.MLP_Branch ps -> + | FStarC_Extraction_ML_Syntax.MLP_Branch ps -> Obj.magic (Obj.repr (reachable_defs_list reachable_defs_mlpattern ps)) - | FStar_Extraction_ML_Syntax.MLP_Record (syms, fs) -> + | FStarC_Extraction_ML_Syntax.MLP_Record (syms, fs) -> Obj.magic (Obj.repr (let uu___ = Obj.magic - (FStar_Class_Setlike.singleton () + (FStarC_Class_Setlike.singleton () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) - (FStar_Compiler_String.concat "." syms)) in + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) + (FStarC_Compiler_String.concat "." syms)) in let uu___1 = reachable_defs_list (fun uu___2 -> match uu___2 with | (uu___3, p1) -> reachable_defs_mlpattern p1) fs in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) - | FStar_Extraction_ML_Syntax.MLP_Tuple ps -> + | FStarC_Extraction_ML_Syntax.MLP_Tuple ps -> Obj.magic (Obj.repr (reachable_defs_list reachable_defs_mlpattern ps))) uu___ let rec (reachable_defs_expr' : - FStar_Extraction_ML_Syntax.mlexpr' -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mlexpr' -> Pulse2Rust_Env.reachable_defs) = fun uu___ -> (fun e -> match e with - | FStar_Extraction_ML_Syntax.MLE_Const uu___ -> + | FStarC_Extraction_ML_Syntax.MLE_Const uu___ -> Obj.magic (Obj.repr empty_defs) - | FStar_Extraction_ML_Syntax.MLE_Var uu___ -> + | FStarC_Extraction_ML_Syntax.MLE_Var uu___ -> Obj.magic (Obj.repr empty_defs) - | FStar_Extraction_ML_Syntax.MLE_Name p -> + | FStarC_Extraction_ML_Syntax.MLE_Name p -> Obj.magic (Obj.repr (singleton p)) - | FStar_Extraction_ML_Syntax.MLE_Let (lb, e1) -> + | FStarC_Extraction_ML_Syntax.MLE_Let (lb, e1) -> Obj.magic (Obj.repr (let uu___ = reachable_defs_mlletbinding lb in let uu___1 = reachable_defs_expr e1 in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) - | FStar_Extraction_ML_Syntax.MLE_App (e1, es) -> + | FStarC_Extraction_ML_Syntax.MLE_App (e1, es) -> Obj.magic (Obj.repr (let uu___ = reachable_defs_expr e1 in let uu___1 = reachable_defs_list reachable_defs_expr es in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) - | FStar_Extraction_ML_Syntax.MLE_TApp (e1, ts) -> + | FStarC_Extraction_ML_Syntax.MLE_TApp (e1, ts) -> Obj.magic (Obj.repr (let uu___ = reachable_defs_expr e1 in let uu___1 = reachable_defs_list reachable_defs_mlty ts in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) - | FStar_Extraction_ML_Syntax.MLE_Fun (args, e1) -> + | FStarC_Extraction_ML_Syntax.MLE_Fun (args, e1) -> Obj.magic (Obj.repr (let uu___ = reachable_defs_list (fun b -> reachable_defs_mlty - b.FStar_Extraction_ML_Syntax.mlbinder_ty) args in + b.FStarC_Extraction_ML_Syntax.mlbinder_ty) args in let uu___1 = reachable_defs_expr e1 in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) - | FStar_Extraction_ML_Syntax.MLE_Match (e1, bs) -> + | FStarC_Extraction_ML_Syntax.MLE_Match (e1, bs) -> Obj.magic (Obj.repr (let uu___ = reachable_defs_expr e1 in let uu___1 = reachable_defs_list reachable_defs_mlbranch bs in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) - | FStar_Extraction_ML_Syntax.MLE_Coerce (e1, t1, t2) -> + | FStarC_Extraction_ML_Syntax.MLE_Coerce (e1, t1, t2) -> Obj.magic (Obj.repr (let uu___ = reachable_defs_expr e1 in @@ -206,54 +206,54 @@ let rec (reachable_defs_expr' : let uu___2 = reachable_defs_mlty t1 in let uu___3 = reachable_defs_mlty t2 in Obj.magic - (FStar_Class_Setlike.union () + (FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___2) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___2) (Obj.magic uu___3)) in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) - | FStar_Extraction_ML_Syntax.MLE_CTor (p, es) -> + | FStarC_Extraction_ML_Syntax.MLE_CTor (p, es) -> Obj.magic (Obj.repr (let uu___ = singleton p in let uu___1 = reachable_defs_list reachable_defs_expr es in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) - | FStar_Extraction_ML_Syntax.MLE_Seq es -> + | FStarC_Extraction_ML_Syntax.MLE_Seq es -> Obj.magic (Obj.repr (reachable_defs_list reachable_defs_expr es)) - | FStar_Extraction_ML_Syntax.MLE_Tuple es -> + | FStarC_Extraction_ML_Syntax.MLE_Tuple es -> Obj.magic (Obj.repr (reachable_defs_list reachable_defs_expr es)) - | FStar_Extraction_ML_Syntax.MLE_Record (p, n, fs) -> + | FStarC_Extraction_ML_Syntax.MLE_Record (p, n, fs) -> Obj.magic (Obj.repr (let uu___ = Obj.magic - (FStar_Class_Setlike.singleton () + (FStarC_Class_Setlike.singleton () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) - (FStar_Compiler_String.concat "." - (FStar_Compiler_List.op_At p [n]))) in + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) + (FStarC_Compiler_String.concat "." + (FStarC_Compiler_List.op_At p [n]))) in let uu___1 = reachable_defs_list (fun uu___2 -> match uu___2 with | (uu___3, e1) -> reachable_defs_expr e1) fs in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) - | FStar_Extraction_ML_Syntax.MLE_Proj (e1, uu___) -> + | FStarC_Extraction_ML_Syntax.MLE_Proj (e1, uu___) -> Obj.magic (Obj.repr (reachable_defs_expr e1)) - | FStar_Extraction_ML_Syntax.MLE_If (e1, e2, e3_opt) -> + | FStarC_Extraction_ML_Syntax.MLE_If (e1, e2, e3_opt) -> Obj.magic (Obj.repr (let uu___ = reachable_defs_expr e1 in @@ -262,49 +262,49 @@ let rec (reachable_defs_expr' : let uu___3 = reachable_defs_option reachable_defs_expr e3_opt in Obj.magic - (FStar_Class_Setlike.union () + (FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___2) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___2) (Obj.magic uu___3)) in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) - | FStar_Extraction_ML_Syntax.MLE_Raise (p, es) -> + | FStarC_Extraction_ML_Syntax.MLE_Raise (p, es) -> Obj.magic (Obj.repr (let uu___ = singleton p in let uu___1 = reachable_defs_list reachable_defs_expr es in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) - | FStar_Extraction_ML_Syntax.MLE_Try (e1, bs) -> + | FStarC_Extraction_ML_Syntax.MLE_Try (e1, bs) -> Obj.magic (Obj.repr (let uu___ = reachable_defs_expr e1 in let uu___1 = reachable_defs_list reachable_defs_mlbranch bs in - FStar_Class_Setlike.union () + FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1)))) uu___ and (reachable_defs_expr : - FStar_Extraction_ML_Syntax.mlexpr -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mlexpr -> Pulse2Rust_Env.reachable_defs) = fun uu___ -> (fun e -> - let uu___ = reachable_defs_expr' e.FStar_Extraction_ML_Syntax.expr in - let uu___1 = reachable_defs_mlty e.FStar_Extraction_ML_Syntax.mlty in + let uu___ = reachable_defs_expr' e.FStarC_Extraction_ML_Syntax.expr in + let uu___1 = reachable_defs_mlty e.FStarC_Extraction_ML_Syntax.mlty in Obj.magic - (FStar_Class_Setlike.union () + (FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset FStar_Class_Ord.ord_string)) + (FStarC_Compiler_RBSet.setlike_rbset FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) uu___ and (reachable_defs_mlbranch : - FStar_Extraction_ML_Syntax.mlbranch -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mlbranch -> Pulse2Rust_Env.reachable_defs) = fun uu___ -> (fun uu___ -> match uu___ with @@ -314,46 +314,46 @@ and (reachable_defs_mlbranch : let uu___3 = reachable_defs_option reachable_defs_expr wopt in let uu___4 = reachable_defs_expr e in Obj.magic - (FStar_Class_Setlike.union () + (FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___3) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___3) (Obj.magic uu___4)) in Obj.magic - (FStar_Class_Setlike.union () + (FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) (Obj.magic uu___1) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___1) (Obj.magic uu___2))) uu___ and (reachable_defs_mllb : - FStar_Extraction_ML_Syntax.mllb -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mllb -> Pulse2Rust_Env.reachable_defs) = fun uu___ -> (fun lb -> let uu___ = reachable_defs_option reachable_defs_mltyscheme - lb.FStar_Extraction_ML_Syntax.mllb_tysc in + lb.FStarC_Extraction_ML_Syntax.mllb_tysc in let uu___1 = - reachable_defs_expr lb.FStar_Extraction_ML_Syntax.mllb_def in + reachable_defs_expr lb.FStarC_Extraction_ML_Syntax.mllb_def in Obj.magic - (FStar_Class_Setlike.union () + (FStarC_Class_Setlike.union () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset FStar_Class_Ord.ord_string)) + (FStarC_Compiler_RBSet.setlike_rbset FStarC_Class_Ord.ord_string)) (Obj.magic uu___) (Obj.magic uu___1))) uu___ and (reachable_defs_mlletbinding : - FStar_Extraction_ML_Syntax.mlletbinding -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mlletbinding -> Pulse2Rust_Env.reachable_defs) = fun uu___ -> match uu___ with | (uu___1, lbs) -> reachable_defs_list reachable_defs_mllb lbs let (reachable_defs_mltybody : - FStar_Extraction_ML_Syntax.mltybody -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mltybody -> Pulse2Rust_Env.reachable_defs) = fun t -> match t with - | FStar_Extraction_ML_Syntax.MLTD_Abbrev t1 -> reachable_defs_mlty t1 - | FStar_Extraction_ML_Syntax.MLTD_Record fs -> + | FStarC_Extraction_ML_Syntax.MLTD_Abbrev t1 -> reachable_defs_mlty t1 + | FStarC_Extraction_ML_Syntax.MLTD_Record fs -> reachable_defs_list (fun uu___ -> match uu___ with | (uu___1, t1) -> reachable_defs_mlty t1) fs - | FStar_Extraction_ML_Syntax.MLTD_DType cts -> + | FStarC_Extraction_ML_Syntax.MLTD_DType cts -> reachable_defs_list (fun uu___ -> match uu___ with @@ -363,64 +363,64 @@ let (reachable_defs_mltybody : match uu___2 with | (uu___3, t1) -> reachable_defs_mlty t1) dts) cts let (reachable_defs_one_mltydecl : - FStar_Extraction_ML_Syntax.one_mltydecl -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.one_mltydecl -> Pulse2Rust_Env.reachable_defs) = fun t -> reachable_defs_option reachable_defs_mltybody - t.FStar_Extraction_ML_Syntax.tydecl_defn + t.FStarC_Extraction_ML_Syntax.tydecl_defn let (reachable_defs_mltydecl : - FStar_Extraction_ML_Syntax.mltydecl -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mltydecl -> Pulse2Rust_Env.reachable_defs) = fun t -> reachable_defs_list reachable_defs_one_mltydecl t let (reachable_defs_mlmodule1 : - FStar_Extraction_ML_Syntax.mlmodule1 -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mlmodule1 -> Pulse2Rust_Env.reachable_defs) = fun m -> let defs = - match m.FStar_Extraction_ML_Syntax.mlmodule1_m with - | FStar_Extraction_ML_Syntax.MLM_Ty t -> reachable_defs_mltydecl t - | FStar_Extraction_ML_Syntax.MLM_Let lb -> + match m.FStarC_Extraction_ML_Syntax.mlmodule1_m with + | FStarC_Extraction_ML_Syntax.MLM_Ty t -> reachable_defs_mltydecl t + | FStarC_Extraction_ML_Syntax.MLM_Let lb -> reachable_defs_mlletbinding lb - | FStar_Extraction_ML_Syntax.MLM_Exn (uu___, args) -> + | FStarC_Extraction_ML_Syntax.MLM_Exn (uu___, args) -> reachable_defs_list (fun uu___1 -> match uu___1 with | (uu___2, t) -> reachable_defs_mlty t) args - | FStar_Extraction_ML_Syntax.MLM_Top e -> reachable_defs_expr e - | FStar_Extraction_ML_Syntax.MLM_Loc uu___ -> empty_defs in + | FStarC_Extraction_ML_Syntax.MLM_Top e -> reachable_defs_expr e + | FStarC_Extraction_ML_Syntax.MLM_Loc uu___ -> empty_defs in defs let (reachable_defs_decls : - FStar_Extraction_ML_Syntax.mlmodule -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mlmodule -> Pulse2Rust_Env.reachable_defs) = fun decls -> reachable_defs_list reachable_defs_mlmodule1 decls let (decl_reachable : Pulse2Rust_Env.reachable_defs -> - Prims.string -> FStar_Extraction_ML_Syntax.mlmodule1 -> Prims.bool) + Prims.string -> FStarC_Extraction_ML_Syntax.mlmodule1 -> Prims.bool) = fun reachable_defs -> fun mname -> fun d -> - match d.FStar_Extraction_ML_Syntax.mlmodule1_m with - | FStar_Extraction_ML_Syntax.MLM_Ty t -> - FStar_Compiler_List.existsb + match d.FStarC_Extraction_ML_Syntax.mlmodule1_m with + | FStarC_Extraction_ML_Syntax.MLM_Ty t -> + FStarC_Compiler_List.existsb (fun ty_decl -> - FStar_Class_Setlike.mem () + FStarC_Class_Setlike.mem () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Prims.strcat mname (Prims.strcat "." - ty_decl.FStar_Extraction_ML_Syntax.tydecl_name)) + ty_decl.FStarC_Extraction_ML_Syntax.tydecl_name)) (Obj.magic reachable_defs)) t - | FStar_Extraction_ML_Syntax.MLM_Let (uu___, lbs) -> - FStar_Compiler_List.existsb + | FStarC_Extraction_ML_Syntax.MLM_Let (uu___, lbs) -> + FStarC_Compiler_List.existsb (fun lb -> - FStar_Class_Setlike.mem () + FStarC_Class_Setlike.mem () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset - FStar_Class_Ord.ord_string)) + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Prims.strcat mname (Prims.strcat "." - lb.FStar_Extraction_ML_Syntax.mllb_name)) + lb.FStarC_Extraction_ML_Syntax.mllb_name)) (Obj.magic reachable_defs)) lbs - | FStar_Extraction_ML_Syntax.MLM_Exn (p, uu___) -> false - | FStar_Extraction_ML_Syntax.MLM_Top uu___ -> false - | FStar_Extraction_ML_Syntax.MLM_Loc uu___ -> false + | FStarC_Extraction_ML_Syntax.MLM_Exn (p, uu___) -> false + | FStarC_Extraction_ML_Syntax.MLM_Top uu___ -> false + | FStarC_Extraction_ML_Syntax.MLM_Loc uu___ -> false let rec (topsort : Pulse2Rust_Env.dict -> Prims.string Prims.list -> @@ -434,30 +434,30 @@ let rec (topsort : let grey1 = root :: grey in let deps = let uu___ = - let uu___1 = FStar_Compiler_Util.smap_try_find d root in - FStar_Compiler_Util.must uu___1 in + let uu___1 = FStarC_Compiler_Util.smap_try_find d root in + FStarC_Compiler_Util.must uu___1 in match uu___ with | (deps1, uu___1, uu___2) -> deps1 in let deps1 = - FStar_Compiler_List.filter + FStarC_Compiler_List.filter (fun f -> - (let uu___ = FStar_Compiler_Util.smap_keys d in - FStar_Compiler_List.mem f uu___) && + (let uu___ = FStarC_Compiler_Util.smap_keys d in + FStarC_Compiler_List.mem f uu___) && (Prims.op_Negation (f = root))) deps in (let uu___1 = - FStar_Compiler_List.existsb - (fun d1 -> FStar_Compiler_List.mem d1 grey1) deps1 in + FStarC_Compiler_List.existsb + (fun d1 -> FStarC_Compiler_List.mem d1 grey1) deps1 in if uu___1 then let uu___2 = - FStar_Compiler_Util.format1 "cyclic dependency: %s" root in - FStar_Compiler_Effect.failwith uu___2 + FStarC_Compiler_Util.format1 "cyclic dependency: %s" root in + FStarC_Compiler_Effect.failwith uu___2 else ()); (let deps2 = - FStar_Compiler_List.filter - (fun f -> Prims.op_Negation (FStar_Compiler_List.mem f black)) + FStarC_Compiler_List.filter + (fun f -> Prims.op_Negation (FStarC_Compiler_List.mem f black)) deps1 in let uu___1 = - FStar_Compiler_List.fold_left + FStarC_Compiler_List.fold_left (fun uu___2 -> fun dep -> match uu___2 with @@ -466,10 +466,10 @@ let rec (topsort : match uu___1 with | (grey2, black1) -> let uu___2 = - FStar_Compiler_List.filter + FStarC_Compiler_List.filter (fun g -> Prims.op_Negation (g = root)) grey2 in (uu___2, - (if FStar_Compiler_List.mem root black1 + (if FStarC_Compiler_List.mem root black1 then black1 else root :: black1))) let rec (topsort_all : @@ -478,27 +478,27 @@ let rec (topsort_all : fun d -> fun black -> let uu___ = - let uu___1 = FStar_Compiler_Util.smap_keys d in - FStar_Compiler_List.for_all - (fun f -> FStar_Compiler_List.contains f black) uu___1 in + let uu___1 = FStarC_Compiler_Util.smap_keys d in + FStarC_Compiler_List.for_all + (fun f -> FStarC_Compiler_List.contains f black) uu___1 in if uu___ then black else (let rem = - let uu___2 = FStar_Compiler_Util.smap_keys d in - FStar_Compiler_List.filter + let uu___2 = FStarC_Compiler_Util.smap_keys d in + FStarC_Compiler_List.filter (fun f -> - Prims.op_Negation (FStar_Compiler_List.contains f black)) + Prims.op_Negation (FStarC_Compiler_List.contains f black)) uu___2 in let root = - FStar_Compiler_List.nth rem - ((FStar_Compiler_List.length rem) - Prims.int_one) in + FStarC_Compiler_List.nth rem + ((FStarC_Compiler_List.length rem) - Prims.int_one) in let uu___2 = topsort d [] black root in match uu___2 with | (grey, black1) -> - (if (FStar_Compiler_List.length grey) <> Prims.int_zero + (if (FStarC_Compiler_List.length grey) <> Prims.int_zero then - FStar_Compiler_Effect.failwith + FStarC_Compiler_Effect.failwith "topsort_all: not all files are reachable" else (); topsort_all d black1)) \ No newline at end of file diff --git a/pulse2rust/src/ocaml/generated/Pulse2Rust_Env.ml b/pulse2rust/src/ocaml/generated/Pulse2Rust_Env.ml index 15a8ddd8c..1bc96ad24 100644 --- a/pulse2rust/src/ocaml/generated/Pulse2Rust_Env.ml +++ b/pulse2rust/src/ocaml/generated/Pulse2Rust_Env.ml @@ -2,30 +2,30 @@ open Prims let fail : 'a . Prims.string -> 'a = fun s -> let uu___ = - FStar_Compiler_Util.format1 "Pulse to Rust extraction failed: %s" s in - FStar_Compiler_Effect.failwith uu___ + FStarC_Compiler_Util.format1 "Pulse to Rust extraction failed: %s" s in + FStarC_Compiler_Effect.failwith uu___ let fail_nyi : 'a . Prims.string -> 'a = fun s -> let uu___ = - FStar_Compiler_Util.format1 + FStarC_Compiler_Util.format1 "Pulse to Rust extraction failed: no support yet for %s" s in - FStar_Compiler_Effect.failwith uu___ + FStarC_Compiler_Effect.failwith uu___ type var = Prims.string type binding = (var * Pulse2Rust_Rust_Syntax.typ * Prims.bool) -type reachable_defs = Prims.string FStar_Compiler_RBSet.t +type reachable_defs = Prims.string FStarC_Compiler_RBSet.t let (reachable_defs_to_string : reachable_defs -> Prims.string) = fun d -> let uu___ = let uu___1 = - FStar_Class_Setlike.elems () + FStarC_Class_Setlike.elems () (Obj.magic - (FStar_Compiler_RBSet.setlike_rbset FStar_Class_Ord.ord_string)) + (FStarC_Compiler_RBSet.setlike_rbset FStarC_Class_Ord.ord_string)) (Obj.magic d) in - FStar_Compiler_String.concat ";" uu___1 in - FStar_Compiler_Util.format1 "[%s]" uu___ + FStarC_Compiler_String.concat ";" uu___1 in + FStarC_Compiler_Util.format1 "[%s]" uu___ type dict = - (Prims.string Prims.list * FStar_Extraction_ML_UEnv.binding Prims.list * - FStar_Extraction_ML_Syntax.mlmodule) FStar_Compiler_Util.smap + (Prims.string Prims.list * FStarC_Extraction_ML_UEnv.binding Prims.list * + FStarC_Extraction_ML_Syntax.mlmodule) FStarC_Compiler_Util.smap type env = { external_libs: Prims.string Prims.list ; @@ -97,9 +97,9 @@ let (lookup_global_fn : fun g -> fun s -> let uu___ = - FStar_Compiler_List.tryFind + FStarC_Compiler_List.tryFind (fun uu___1 -> match uu___1 with | (f, uu___2) -> f = s) g.fns in - FStar_Compiler_Util.map_option + FStarC_Compiler_Util.map_option (fun uu___1 -> match uu___1 with | (uu___2, t) -> t) uu___ let (lookup_local : env -> @@ -110,10 +110,10 @@ let (lookup_local : fun g -> fun s -> let uu___ = - FStar_Compiler_List.tryFind + FStarC_Compiler_List.tryFind (fun uu___1 -> match uu___1 with | (x, uu___2, uu___3) -> x = s) g.gamma in - FStar_Compiler_Util.map_option + FStarC_Compiler_Util.map_option (fun uu___1 -> match uu___1 with | (uu___2, t, b) -> (t, b)) uu___ let (push_fn : env -> Prims.string -> Pulse2Rust_Rust_Syntax.fn_signature -> env) = @@ -159,4 +159,4 @@ let (push_local : reachable_defs = (g.reachable_defs) } let (is_external_lib : env -> Prims.string -> Prims.bool) = - fun g -> fun s -> FStar_Compiler_List.contains s g.external_libs \ No newline at end of file + fun g -> fun s -> FStarC_Compiler_List.contains s g.external_libs \ No newline at end of file diff --git a/pulse2rust/src/ocaml/generated/Pulse2Rust_Extract.ml b/pulse2rust/src/ocaml/generated/Pulse2Rust_Extract.ml index 3a8a53f53..77c1b7a66 100644 --- a/pulse2rust/src/ocaml/generated/Pulse2Rust_Extract.ml +++ b/pulse2rust/src/ocaml/generated/Pulse2Rust_Extract.ml @@ -2,70 +2,70 @@ open Prims let (tyvar_of : Prims.string -> Prims.string) = fun s -> let uu___ = - FStar_Compiler_String.substring s Prims.int_one - ((FStar_Compiler_String.length s) - Prims.int_one) in - FStar_Compiler_String.uppercase uu___ + FStarC_Compiler_String.substring s Prims.int_one + ((FStarC_Compiler_String.length s) - Prims.int_one) in + FStarC_Compiler_String.uppercase uu___ let (varname : Prims.string -> Prims.string) = - fun s -> FStar_Compiler_Util.replace_char s 39 95 + fun s -> FStarC_Compiler_Util.replace_char s 39 95 let (enum_or_struct_name : Prims.string -> Prims.string) = fun s -> s let (is_internal_name : Prims.string -> Prims.bool) = fun s -> - (((((FStar_Compiler_Util.starts_with s "uu___") || (s = "_fret")) || + (((((FStarC_Compiler_Util.starts_with s "uu___") || (s = "_fret")) || (s = "_bind_c")) || (s = "_while_c")) || (s = "_while_b")) || (s = "_if_br") let (lookup_datacon_in_module1 : - FStar_Extraction_ML_Syntax.mlident -> - FStar_Extraction_ML_Syntax.mlmodule1 -> - FStar_Extraction_ML_Syntax.mlsymbol FStar_Pervasives_Native.option) + FStarC_Extraction_ML_Syntax.mlident -> + FStarC_Extraction_ML_Syntax.mlmodule1 -> + FStarC_Extraction_ML_Syntax.mlsymbol FStar_Pervasives_Native.option) = fun s -> fun m -> - match m.FStar_Extraction_ML_Syntax.mlmodule1_m with - | FStar_Extraction_ML_Syntax.MLM_Ty l -> - FStar_Compiler_Util.find_map l + match m.FStarC_Extraction_ML_Syntax.mlmodule1_m with + | FStarC_Extraction_ML_Syntax.MLM_Ty l -> + FStarC_Compiler_Util.find_map l (fun t -> - match t.FStar_Extraction_ML_Syntax.tydecl_defn with + match t.FStarC_Extraction_ML_Syntax.tydecl_defn with | FStar_Pervasives_Native.Some - (FStar_Extraction_ML_Syntax.MLTD_DType l1) -> - FStar_Compiler_Util.find_map l1 + (FStarC_Extraction_ML_Syntax.MLTD_DType l1) -> + FStarC_Compiler_Util.find_map l1 (fun uu___ -> match uu___ with | (consname, uu___1) -> if consname = s then FStar_Pervasives_Native.Some - (t.FStar_Extraction_ML_Syntax.tydecl_name) + (t.FStarC_Extraction_ML_Syntax.tydecl_name) else FStar_Pervasives_Native.None) | uu___ -> FStar_Pervasives_Native.None) | uu___ -> FStar_Pervasives_Native.None let (lookup_datacon : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlident -> - (Prims.string Prims.list * FStar_Extraction_ML_Syntax.mlsymbol) + FStarC_Extraction_ML_Syntax.mlident -> + (Prims.string Prims.list * FStarC_Extraction_ML_Syntax.mlsymbol) FStar_Pervasives_Native.option) = fun g -> fun s -> - let d_keys = FStar_Compiler_Util.smap_keys g.Pulse2Rust_Env.d in - FStar_Compiler_Util.find_map d_keys + let d_keys = FStarC_Compiler_Util.smap_keys g.Pulse2Rust_Env.d in + FStarC_Compiler_Util.find_map d_keys (fun k -> let uu___ = let uu___1 = - FStar_Compiler_Util.smap_try_find g.Pulse2Rust_Env.d k in - FStar_Compiler_Util.must uu___1 in + FStarC_Compiler_Util.smap_try_find g.Pulse2Rust_Env.d k in + FStarC_Compiler_Util.must uu___1 in match uu___ with | (uu___1, uu___2, decls) -> let ropt = - FStar_Compiler_Util.find_map decls + FStarC_Compiler_Util.find_map decls (lookup_datacon_in_module1 s) in (match ropt with | FStar_Pervasives_Native.None -> FStar_Pervasives_Native.None | FStar_Pervasives_Native.Some tname -> FStar_Pervasives_Native.Some - ((FStar_Compiler_Util.split k "."), tname))) + ((FStarC_Compiler_Util.split k "."), tname))) let (type_of : Pulse2Rust_Env.env -> Pulse2Rust_Rust_Syntax.expr -> Prims.bool) = fun g -> @@ -80,79 +80,79 @@ let (type_of : | FStar_Pervasives_Native.Some (_t, b) -> b | FStar_Pervasives_Native.None -> let uu___2 = - FStar_Compiler_Util.format1 "lookup in env for %s" + FStarC_Compiler_Util.format1 "lookup in env for %s" path_segment_name in Pulse2Rust_Env.fail uu___2) | uu___ -> false let rec (uncurry_arrow : - FStar_Extraction_ML_Syntax.mlty -> - (FStar_Extraction_ML_Syntax.mlty Prims.list * - FStar_Extraction_ML_Syntax.mlty)) + FStarC_Extraction_ML_Syntax.mlty -> + (FStarC_Extraction_ML_Syntax.mlty Prims.list * + FStarC_Extraction_ML_Syntax.mlty)) = fun t -> match t with - | FStar_Extraction_ML_Syntax.MLTY_Fun (t1, uu___, t2) -> + | FStarC_Extraction_ML_Syntax.MLTY_Fun (t1, uu___, t2) -> let uu___1 = uncurry_arrow t2 in (match uu___1 with | (arg_ts, ret_t) -> ((t1 :: arg_ts), ret_t)) | uu___ -> ([], t) let (arg_ts_and_ret_t : - FStar_Extraction_ML_Syntax.mltyscheme -> - (FStar_Extraction_ML_Syntax.ty_param Prims.list * - FStar_Extraction_ML_Syntax.mlty Prims.list * - FStar_Extraction_ML_Syntax.mlty)) + FStarC_Extraction_ML_Syntax.mltyscheme -> + (FStarC_Extraction_ML_Syntax.ty_param Prims.list * + FStarC_Extraction_ML_Syntax.mlty Prims.list * + FStarC_Extraction_ML_Syntax.mlty)) = fun t -> let uu___ = t in match uu___ with | (tvars, t1) -> (match t1 with - | FStar_Extraction_ML_Syntax.MLTY_Fun - (uu___1, FStar_Extraction_ML_Syntax.E_PURE, uu___2) -> + | FStarC_Extraction_ML_Syntax.MLTY_Fun + (uu___1, FStarC_Extraction_ML_Syntax.E_PURE, uu___2) -> let uu___3 = uncurry_arrow t1 in (match uu___3 with | (arg_ts, ret_t) -> (tvars, arg_ts, ret_t)) - | FStar_Extraction_ML_Syntax.MLTY_Fun - (uu___1, FStar_Extraction_ML_Syntax.E_IMPURE, uu___2) -> + | FStarC_Extraction_ML_Syntax.MLTY_Fun + (uu___1, FStarC_Extraction_ML_Syntax.E_IMPURE, uu___2) -> let uu___3 = uncurry_arrow t1 in (match uu___3 with | (arg_ts, ret_t) -> (tvars, arg_ts, ret_t)) | uu___1 -> let uu___2 = - let uu___3 = FStar_Extraction_ML_Syntax.mlty_to_string t1 in - FStar_Compiler_Util.format1 "top level arg_ts and ret_t %s" + let uu___3 = FStarC_Extraction_ML_Syntax.mlty_to_string t1 in + FStarC_Compiler_Util.format1 "top level arg_ts and ret_t %s" uu___3 in Pulse2Rust_Env.fail_nyi uu___2) let (should_extract_mlpath_with_symbol : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlsymbol Prims.list -> Prims.bool) + FStarC_Extraction_ML_Syntax.mlsymbol Prims.list -> Prims.bool) = fun g -> fun path -> - let p = FStar_Compiler_String.concat "." path in + let p = FStarC_Compiler_String.concat "." path in let b = (((p = "Prims") || (p = "Pulse.Lib.Pervasives")) || (p = "FStar.Pervasives.Native")) || (p = "FStar.Pervasives") in Prims.op_Negation b let (rust_mod_name : - FStar_Extraction_ML_Syntax.mlsymbol Prims.list -> Prims.string) = + FStarC_Extraction_ML_Syntax.mlsymbol Prims.list -> Prims.string) = fun path -> - let uu___ = FStar_Compiler_List.map FStar_Compiler_String.lowercase path in - FStar_Compiler_String.concat "_" uu___ + let uu___ = FStarC_Compiler_List.map FStarC_Compiler_String.lowercase path in + FStarC_Compiler_String.concat "_" uu___ let (extract_path_for_symbol : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlsymbol Prims.list -> Prims.string Prims.list) + FStarC_Extraction_ML_Syntax.mlsymbol Prims.list -> Prims.string Prims.list) = fun g -> fun path -> let prefix = let uu___ = Pulse2Rust_Env.is_external_lib g - (FStar_Compiler_String.concat "." path) in + (FStarC_Compiler_String.concat "." path) in if uu___ then "crate" else "super" in let uu___ = let uu___1 = rust_mod_name path in [uu___1] in prefix :: uu___ let rec (extract_mlty : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlty -> Pulse2Rust_Rust_Syntax.typ) + FStarC_Extraction_ML_Syntax.mlty -> Pulse2Rust_Rust_Syntax.typ) = fun g -> fun t -> @@ -162,111 +162,111 @@ let rec (extract_mlty : Pulse2Rust_Rust_Syntax.mk_slice_typ uu___1 in Pulse2Rust_Rust_Syntax.mk_ref_typ is_mut uu___ in match t with - | FStar_Extraction_ML_Syntax.MLTY_Var s -> + | FStarC_Extraction_ML_Syntax.MLTY_Var s -> let uu___ = tyvar_of s in Pulse2Rust_Rust_Syntax.mk_scalar_typ uu___ - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "FStar.Char.char" -> Pulse2Rust_Rust_Syntax.mk_scalar_typ "char" - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "FStar.UInt8.t" -> Pulse2Rust_Rust_Syntax.mk_scalar_typ "u8" - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "FStar.UInt16.t" -> Pulse2Rust_Rust_Syntax.mk_scalar_typ "u16" - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "FStar.UInt32.t" -> Pulse2Rust_Rust_Syntax.mk_scalar_typ "u32" - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "FStar.Int32.t" -> Pulse2Rust_Rust_Syntax.mk_scalar_typ "i32" - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "FStar.UInt64.t" -> Pulse2Rust_Rust_Syntax.mk_scalar_typ "u64" - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Prims.string" -> Pulse2Rust_Rust_Syntax.mk_scalar_typ "String" - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - (((let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + (((let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "FStar.Int64.t") || - (let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Prims.int")) || - (let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Prims.nat")) || - (let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Prims.pos") -> Pulse2Rust_Rust_Syntax.mk_scalar_typ "i64" - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "FStar.SizeT.t" -> Pulse2Rust_Rust_Syntax.mk_scalar_typ "usize" - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Prims.bool" -> Pulse2Rust_Rust_Syntax.mk_scalar_typ "bool" - | FStar_Extraction_ML_Syntax.MLTY_Named (l, p) when - ((let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named (l, p) when + ((let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "FStar.Pervasives.Native.tuple2") || - (let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "FStar.Pervasives.Native.tuple3")) || - (let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Prims.dtuple2") -> - let uu___ = FStar_Compiler_List.map (extract_mlty g) l in + let uu___ = FStarC_Compiler_List.map (extract_mlty g) l in Pulse2Rust_Rust_Syntax.mk_tuple_typ uu___ - | FStar_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Pulse.Lib.Reference.ref" -> let is_mut = true in let uu___ = extract_mlty g arg in Pulse2Rust_Rust_Syntax.mk_ref_typ is_mut uu___ - | FStar_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Pulse.Lib.Box.box" -> let uu___ = extract_mlty g arg in Pulse2Rust_Rust_Syntax.mk_box_typ uu___ - | FStar_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Pulse.Lib.Array.Core.array" -> let is_mut = true in mk_slice is_mut arg - | FStar_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Pulse.Lib.Slice.slice" -> let is_mut = true in mk_slice is_mut arg - | FStar_Extraction_ML_Syntax.MLTY_Named (arg::uu___::[], p) when - let uu___1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named (arg::uu___::[], p) when + let uu___1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___1 = "Pulse.Lib.Array.Core.larray" -> let is_mut = true in mk_slice is_mut arg - | FStar_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Pulse.Lib.Vec.vec" -> let uu___ = extract_mlty g arg in Pulse2Rust_Rust_Syntax.mk_vec_typ uu___ - | FStar_Extraction_ML_Syntax.MLTY_Named (arg::uu___, p) when - (let uu___1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named (arg::uu___, p) when + (let uu___1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___1 = "Pulse.Lib.Mutex.mutex") || - (let uu___1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___1 = "Pulse.Lib.MutexToken.mutex") -> let uu___1 = extract_mlty g arg in Pulse2Rust_Rust_Syntax.mk_mutex_typ uu___1 - | FStar_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "FStar.Pervasives.Native.option" -> let uu___ = extract_mlty g arg in Pulse2Rust_Rust_Syntax.mk_option_typ uu___ - | FStar_Extraction_ML_Syntax.MLTY_Erased -> + | FStarC_Extraction_ML_Syntax.MLTY_Erased -> Pulse2Rust_Rust_Syntax.Typ_unit - | FStar_Extraction_ML_Syntax.MLTY_Named (args, p) -> + | FStarC_Extraction_ML_Syntax.MLTY_Named (args, p) -> let path = let uu___ = should_extract_mlpath_with_symbol g @@ -274,26 +274,26 @@ let rec (extract_mlty : if uu___ then extract_path_for_symbol g (FStar_Pervasives_Native.fst p) else [] in - let uu___ = FStar_Compiler_List.map (extract_mlty g) args in + let uu___ = FStarC_Compiler_List.map (extract_mlty g) args in Pulse2Rust_Rust_Syntax.mk_named_typ path (FStar_Pervasives_Native.snd p) uu___ - | FStar_Extraction_ML_Syntax.MLTY_Fun uu___ -> + | FStarC_Extraction_ML_Syntax.MLTY_Fun uu___ -> let uu___1 = arg_ts_and_ret_t ([], t) in (match uu___1 with | (uu___2, arg_ts, ret_t) -> - let uu___3 = FStar_Compiler_List.map (extract_mlty g) arg_ts in + let uu___3 = FStarC_Compiler_List.map (extract_mlty g) arg_ts in let uu___4 = extract_mlty g ret_t in Pulse2Rust_Rust_Syntax.mk_fn_typ uu___3 uu___4) - | FStar_Extraction_ML_Syntax.MLTY_Top -> + | FStarC_Extraction_ML_Syntax.MLTY_Top -> Pulse2Rust_Rust_Syntax.Typ_infer | uu___ -> let uu___1 = - let uu___2 = FStar_Extraction_ML_Syntax.mlty_to_string t in - FStar_Compiler_Util.format1 "mlty %s" uu___2 in + let uu___2 = FStarC_Extraction_ML_Syntax.mlty_to_string t in + FStarC_Compiler_Util.format1 "mlty %s" uu___2 in Pulse2Rust_Env.fail_nyi uu___1 let (extract_mltyopt : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlty FStar_Pervasives_Native.option -> + FStarC_Extraction_ML_Syntax.mlty FStar_Pervasives_Native.option -> Pulse2Rust_Rust_Syntax.typ) = fun g -> @@ -302,20 +302,20 @@ let (extract_mltyopt : | FStar_Pervasives_Native.None -> Pulse2Rust_Rust_Syntax.Typ_infer | FStar_Pervasives_Native.Some t1 -> extract_mlty g t1 let (arg_has_mut_attribute : - FStar_Extraction_ML_Syntax.mlexpr Prims.list -> Prims.bool) = + FStarC_Extraction_ML_Syntax.mlexpr Prims.list -> Prims.bool) = fun attrs -> - FStar_Compiler_List.existsb + FStarC_Compiler_List.existsb (fun attr -> - match attr.FStar_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_CTor (p, uu___) when - let uu___1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + match attr.FStarC_Extraction_ML_Syntax.expr with + | FStarC_Extraction_ML_Syntax.MLE_CTor (p, uu___) when + let uu___1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___1 = "Pulse.Lib.Pervasives.Rust_mut_binder" -> true | uu___ -> false) attrs let (extract_top_level_fn_arg : Pulse2Rust_Env.env -> Prims.string -> - FStar_Extraction_ML_Syntax.mlexpr Prims.list -> - FStar_Extraction_ML_Syntax.mlty -> Pulse2Rust_Rust_Syntax.fn_arg) + FStarC_Extraction_ML_Syntax.mlexpr Prims.list -> + FStarC_Extraction_ML_Syntax.mlty -> Pulse2Rust_Rust_Syntax.fn_arg) = fun g -> fun arg_name -> @@ -344,9 +344,9 @@ let (extract_top_level_sig : Prims.string -> Pulse2Rust_Rust_Syntax.generic_type_param Prims.list -> Prims.string Prims.list -> - FStar_Extraction_ML_Syntax.mlexpr Prims.list Prims.list -> - FStar_Extraction_ML_Syntax.mlty Prims.list -> - FStar_Extraction_ML_Syntax.mlty + FStarC_Extraction_ML_Syntax.mlexpr Prims.list Prims.list -> + FStarC_Extraction_ML_Syntax.mlty Prims.list -> + FStarC_Extraction_ML_Syntax.mlty FStar_Pervasives_Native.option -> (Pulse2Rust_Rust_Syntax.fn_signature * Pulse2Rust_Env.env)) = @@ -359,16 +359,16 @@ let (extract_top_level_sig : fun arg_ts -> fun ret_t -> let fn_args = - let uu___ = FStar_Compiler_List.map varname arg_names in - FStar_Compiler_List.map3 (extract_top_level_fn_arg g) + let uu___ = FStarC_Compiler_List.map varname arg_names in + FStarC_Compiler_List.map3 (extract_top_level_fn_arg g) uu___ arg_attrs arg_ts in let fn_ret_t = extract_mltyopt g ret_t in let uu___ = Pulse2Rust_Rust_Syntax.mk_fn_signature fn_const fn_name generic_type_params fn_args fn_ret_t in let uu___1 = - let uu___2 = FStar_Compiler_List.zip arg_names fn_args in - FStar_Compiler_List.fold_left + let uu___2 = FStarC_Compiler_List.zip arg_names fn_args in + FStarC_Compiler_List.fold_left (fun g1 -> fun uu___3 -> match uu___3 with @@ -504,28 +504,28 @@ let (is_binop : Pulse2Rust_Rust_Syntax.BitAnd else FStar_Pervasives_Native.None let (extract_mlconstant_to_lit : - FStar_Extraction_ML_Syntax.mlconstant -> Pulse2Rust_Rust_Syntax.lit) = + FStarC_Extraction_ML_Syntax.mlconstant -> Pulse2Rust_Rust_Syntax.lit) = fun c -> match c with - | FStar_Extraction_ML_Syntax.MLC_Int (lit_int_val, swopt) -> + | FStarC_Extraction_ML_Syntax.MLC_Int (lit_int_val, swopt) -> let lit_int_signed = match swopt with - | FStar_Pervasives_Native.Some (FStar_Const.Unsigned, uu___) -> + | FStar_Pervasives_Native.Some (FStarC_Const.Unsigned, uu___) -> FStar_Pervasives_Native.Some false - | FStar_Pervasives_Native.Some (FStar_Const.Signed, uu___) -> + | FStar_Pervasives_Native.Some (FStarC_Const.Signed, uu___) -> FStar_Pervasives_Native.Some true | FStar_Pervasives_Native.None -> FStar_Pervasives_Native.None in let lit_int_width = match swopt with - | FStar_Pervasives_Native.Some (uu___, FStar_Const.Int8) -> + | FStar_Pervasives_Native.Some (uu___, FStarC_Const.Int8) -> FStar_Pervasives_Native.Some Pulse2Rust_Rust_Syntax.I8 - | FStar_Pervasives_Native.Some (uu___, FStar_Const.Int16) -> + | FStar_Pervasives_Native.Some (uu___, FStarC_Const.Int16) -> FStar_Pervasives_Native.Some Pulse2Rust_Rust_Syntax.I16 - | FStar_Pervasives_Native.Some (uu___, FStar_Const.Int32) -> + | FStar_Pervasives_Native.Some (uu___, FStarC_Const.Int32) -> FStar_Pervasives_Native.Some Pulse2Rust_Rust_Syntax.I32 - | FStar_Pervasives_Native.Some (uu___, FStar_Const.Int64) -> + | FStar_Pervasives_Native.Some (uu___, FStarC_Const.Int64) -> FStar_Pervasives_Native.Some Pulse2Rust_Rust_Syntax.I64 - | FStar_Pervasives_Native.Some (uu___, FStar_Const.Sizet) -> + | FStar_Pervasives_Native.Some (uu___, FStarC_Const.Sizet) -> FStar_Pervasives_Native.Some Pulse2Rust_Rust_Syntax.I64 | FStar_Pervasives_Native.None -> FStar_Pervasives_Native.None in Pulse2Rust_Rust_Syntax.Lit_int @@ -534,31 +534,31 @@ let (extract_mlconstant_to_lit : Pulse2Rust_Rust_Syntax.lit_int_signed = lit_int_signed; Pulse2Rust_Rust_Syntax.lit_int_width = lit_int_width } - | FStar_Extraction_ML_Syntax.MLC_Bool b -> + | FStarC_Extraction_ML_Syntax.MLC_Bool b -> Pulse2Rust_Rust_Syntax.Lit_bool b - | FStar_Extraction_ML_Syntax.MLC_String s -> + | FStarC_Extraction_ML_Syntax.MLC_String s -> Pulse2Rust_Rust_Syntax.Lit_string s | uu___ -> let uu___1 = - let uu___2 = FStar_Extraction_ML_Syntax.mlconstant_to_string c in - FStar_Compiler_Util.format1 "mlconstant_to_lit %s" uu___2 in + let uu___2 = FStarC_Extraction_ML_Syntax.mlconstant_to_string c in + FStarC_Compiler_Util.format1 "mlconstant_to_lit %s" uu___2 in Pulse2Rust_Env.fail_nyi uu___1 let rec (extract_mlpattern_to_pat : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlpattern -> + FStarC_Extraction_ML_Syntax.mlpattern -> (Pulse2Rust_Env.env * Pulse2Rust_Rust_Syntax.pat)) = fun g -> fun p -> match p with - | FStar_Extraction_ML_Syntax.MLP_Wild -> + | FStarC_Extraction_ML_Syntax.MLP_Wild -> (g, Pulse2Rust_Rust_Syntax.Pat_wild) - | FStar_Extraction_ML_Syntax.MLP_Const c -> + | FStarC_Extraction_ML_Syntax.MLP_Const c -> let uu___ = let uu___1 = extract_mlconstant_to_lit c in Pulse2Rust_Rust_Syntax.Pat_lit uu___1 in (g, uu___) - | FStar_Extraction_ML_Syntax.MLP_Var x -> + | FStarC_Extraction_ML_Syntax.MLP_Var x -> let uu___ = Pulse2Rust_Env.push_local g x Pulse2Rust_Rust_Syntax.Typ_infer false in @@ -570,28 +570,28 @@ let rec (extract_mlpattern_to_pat : (let uu___4 = varname x in Pulse2Rust_Rust_Syntax.mk_pat_ident uu___4) in (uu___, uu___1) - | FStar_Extraction_ML_Syntax.MLP_CTor (p1, ps) when + | FStarC_Extraction_ML_Syntax.MLP_CTor (p1, ps) when (((FStar_Pervasives_Native.snd p1) = "Mktuple2") || ((FStar_Pervasives_Native.snd p1) = "Mktuple3")) || ((FStar_Pervasives_Native.snd p1) = "Mkdtuple2") -> let uu___ = - FStar_Compiler_List.fold_left_map extract_mlpattern_to_pat g ps in + FStarC_Compiler_List.fold_left_map extract_mlpattern_to_pat g ps in (match uu___ with | (g1, ps1) -> let uu___1 = Pulse2Rust_Rust_Syntax.mk_pat_tuple ps1 in (g1, uu___1)) - | FStar_Extraction_ML_Syntax.MLP_CTor (p1, ps) when + | FStarC_Extraction_ML_Syntax.MLP_CTor (p1, ps) when (FStar_Pervasives_Native.snd p1) = "SlicePair" -> let uu___ = - FStar_Compiler_List.fold_left_map extract_mlpattern_to_pat g ps in + FStarC_Compiler_List.fold_left_map extract_mlpattern_to_pat g ps in (match uu___ with | (g1, ps1) -> let uu___1 = Pulse2Rust_Rust_Syntax.mk_pat_tuple ps1 in (g1, uu___1)) - | FStar_Extraction_ML_Syntax.MLP_CTor (p1, ps) -> + | FStarC_Extraction_ML_Syntax.MLP_CTor (p1, ps) -> let uu___ = - FStar_Compiler_List.fold_left_map extract_mlpattern_to_pat g ps in + FStarC_Compiler_List.fold_left_map extract_mlpattern_to_pat g ps in (match uu___ with | (g1, ps1) -> let path = @@ -603,92 +603,92 @@ let rec (extract_mlpattern_to_pat : if uu___1 then let uu___2 = extract_path_for_symbol g1 l in - FStar_Compiler_List.append uu___2 [t] + FStarC_Compiler_List.append uu___2 [t] else [] | FStar_Pervasives_Native.None -> [] in let uu___1 = Pulse2Rust_Rust_Syntax.mk_pat_ts path (FStar_Pervasives_Native.snd p1) ps1 in (g1, uu___1)) - | FStar_Extraction_ML_Syntax.MLP_Record (p1, fs) -> + | FStarC_Extraction_ML_Syntax.MLP_Record (p1, fs) -> let uu___ = let uu___1 = - FStar_Compiler_List.map FStar_Pervasives_Native.snd fs in - FStar_Compiler_List.fold_left_map extract_mlpattern_to_pat g + FStarC_Compiler_List.map FStar_Pervasives_Native.snd fs in + FStarC_Compiler_List.fold_left_map extract_mlpattern_to_pat g uu___1 in (match uu___ with | (g1, ps) -> let uu___1 = - let uu___2 = FStar_Compiler_List.last p1 in + let uu___2 = FStarC_Compiler_List.last p1 in let uu___3 = let uu___4 = - FStar_Compiler_List.map FStar_Pervasives_Native.fst fs in - FStar_Compiler_List.zip uu___4 ps in + FStarC_Compiler_List.map FStar_Pervasives_Native.fst fs in + FStarC_Compiler_List.zip uu___4 ps in Pulse2Rust_Rust_Syntax.mk_pat_struct uu___2 uu___3 in (g1, uu___1)) - | FStar_Extraction_ML_Syntax.MLP_Tuple ps -> + | FStarC_Extraction_ML_Syntax.MLP_Tuple ps -> let uu___ = - FStar_Compiler_List.fold_left_map extract_mlpattern_to_pat g ps in + FStarC_Compiler_List.fold_left_map extract_mlpattern_to_pat g ps in (match uu___ with | (g1, ps1) -> let uu___1 = Pulse2Rust_Rust_Syntax.mk_pat_tuple ps1 in (g1, uu___1)) | uu___ -> let uu___1 = - let uu___2 = FStar_Extraction_ML_Syntax.mlpattern_to_string p in - FStar_Compiler_Util.format1 "mlpattern_to_pat %s" uu___2 in + let uu___2 = FStarC_Extraction_ML_Syntax.mlpattern_to_string p in + FStarC_Compiler_Util.format1 "mlpattern_to_pat %s" uu___2 in Pulse2Rust_Env.fail_nyi uu___1 let rec (lb_init_and_def : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mllb -> + FStarC_Extraction_ML_Syntax.mllb -> (Prims.bool * Pulse2Rust_Rust_Syntax.typ * Pulse2Rust_Rust_Syntax.expr)) = fun g -> fun lb -> - match (((lb.FStar_Extraction_ML_Syntax.mllb_def).FStar_Extraction_ML_Syntax.expr), - (lb.FStar_Extraction_ML_Syntax.mllb_tysc)) + match (((lb.FStarC_Extraction_ML_Syntax.mllb_def).FStarC_Extraction_ML_Syntax.expr), + (lb.FStarC_Extraction_ML_Syntax.mllb_tysc)) with - | (FStar_Extraction_ML_Syntax.MLE_App + | (FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name pe; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name pe; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, init::[]), FStar_Pervasives_Native.Some - ([], FStar_Extraction_ML_Syntax.MLTY_Named (ty::[], pt))) when - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath pe in + ([], FStarC_Extraction_ML_Syntax.MLTY_Named (ty::[], pt))) when + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath pe in uu___5 = "Pulse.Lib.Reference.alloc") && - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath pt in + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath pt in uu___5 = "Pulse.Lib.Reference.ref") -> let is_mut = true in let uu___5 = extract_mlty g ty in let uu___6 = extract_mlexpr g init in (is_mut, uu___5, uu___6) - | (FStar_Extraction_ML_Syntax.MLE_App + | (FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name pe; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name pe; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, init::len::[]), FStar_Pervasives_Native.Some - ([], FStar_Extraction_ML_Syntax.MLTY_Named (ty::[], pt))) when - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath pe in + ([], FStarC_Extraction_ML_Syntax.MLTY_Named (ty::[], pt))) when + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath pe in uu___5 = "Pulse.Lib.Array.Core.alloc") && - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath pt in + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath pt in uu___5 = "Pulse.Lib.Array.Core.array") -> let init1 = extract_mlexpr g init in @@ -697,8 +697,8 @@ let rec (lb_init_and_def : let uu___5 = let uu___6 = let uu___7 = - FStar_Compiler_Util.must - lb.FStar_Extraction_ML_Syntax.mllb_tysc in + FStarC_Compiler_Util.must + lb.FStarC_Extraction_ML_Syntax.mllb_tysc in FStar_Pervasives_Native.snd uu___7 in extract_mlty g uu___6 in let uu___6 = @@ -707,166 +707,166 @@ let rec (lb_init_and_def : (is_mut, uu___5, uu___6) | uu___ -> let is_mut = - match (lb.FStar_Extraction_ML_Syntax.mllb_def).FStar_Extraction_ML_Syntax.expr + match (lb.FStarC_Extraction_ML_Syntax.mllb_def).FStarC_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3::[]); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6) -> - (((let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (((let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Vec.alloc") || (let uu___7 = - FStar_Extraction_ML_Syntax.string_of_mlpath p in + FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Box.alloc")) || (let uu___7 = - FStar_Extraction_ML_Syntax.string_of_mlpath p in + FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Mutex.lock")) || - (let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.MutexToken.lock") | uu___1 -> false in let uu___1 = let uu___2 = let uu___3 = - FStar_Compiler_Util.must - lb.FStar_Extraction_ML_Syntax.mllb_tysc in + FStarC_Compiler_Util.must + lb.FStarC_Extraction_ML_Syntax.mllb_tysc in FStar_Pervasives_Native.snd uu___3 in extract_mlty g uu___2 in let uu___2 = - extract_mlexpr g lb.FStar_Extraction_ML_Syntax.mllb_def in + extract_mlexpr g lb.FStarC_Extraction_ML_Syntax.mllb_def in (is_mut, uu___1, uu___2) and (extract_mlexpr : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlexpr -> Pulse2Rust_Rust_Syntax.expr) + FStarC_Extraction_ML_Syntax.mlexpr -> Pulse2Rust_Rust_Syntax.expr) = fun g -> fun e -> - match e.FStar_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_Const - (FStar_Extraction_ML_Syntax.MLC_Unit) -> + match e.FStarC_Extraction_ML_Syntax.expr with + | FStarC_Extraction_ML_Syntax.MLE_Const + (FStarC_Extraction_ML_Syntax.MLC_Unit) -> Pulse2Rust_Rust_Syntax.Expr_lit Pulse2Rust_Rust_Syntax.Lit_unit - | FStar_Extraction_ML_Syntax.MLE_Const c -> + | FStarC_Extraction_ML_Syntax.MLE_Const c -> let elit = let uu___ = extract_mlconstant_to_lit c in Pulse2Rust_Rust_Syntax.Expr_lit uu___ in (match c with - | FStar_Extraction_ML_Syntax.MLC_String uu___ -> + | FStarC_Extraction_ML_Syntax.MLC_String uu___ -> Pulse2Rust_Rust_Syntax.mk_method_call elit "to_string" [] | uu___ -> elit) - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, e1::[]) when - let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.SizeT.uint_to_t" -> extract_mlexpr g e1 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, e1::[]) when - let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.SizeT.uint16_to_sizet" -> let uu___2 = extract_mlexpr g e1 in let uu___3 = Pulse2Rust_Rust_Syntax.mk_scalar_typ "usize" in Pulse2Rust_Rust_Syntax.mk_cast uu___2 uu___3 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, e1::[]) when - ((let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + ((let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.Int.Cast.uint16_to_uint8") || - (let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.Int.Cast.uint32_to_uint8")) || - (let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.Int.Cast.uint64_to_uint8") -> let uu___2 = extract_mlexpr g e1 in let uu___3 = Pulse2Rust_Rust_Syntax.mk_scalar_typ "u8" in Pulse2Rust_Rust_Syntax.mk_cast uu___2 uu___3 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, e1::[]) when - ((let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + ((let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.Int.Cast.uint8_to_uint16") || - (let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.Int.Cast.uint32_to_uint16")) || - (let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.Int.Cast.uint64_to_uint16") -> let uu___2 = extract_mlexpr g e1 in let uu___3 = Pulse2Rust_Rust_Syntax.mk_scalar_typ "u16" in Pulse2Rust_Rust_Syntax.mk_cast uu___2 uu___3 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, e1::[]) when - ((let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + ((let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.Int.Cast.uint8_to_uint32") || - (let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.Int.Cast.uint16_to_uint32")) || - (let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.Int.Cast.uint64_to_uint32") -> let uu___2 = extract_mlexpr g e1 in let uu___3 = Pulse2Rust_Rust_Syntax.mk_scalar_typ "u32" in Pulse2Rust_Rust_Syntax.mk_cast uu___2 uu___3 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, e1::[]) when - ((let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + ((let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.Int.Cast.uint8_to_uint64") || - (let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.Int.Cast.uint16_to_uint64")) || - (let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "FStar.Int.Cast.uint32_to_uint64") -> let uu___2 = extract_mlexpr g e1 in let uu___3 = Pulse2Rust_Rust_Syntax.mk_scalar_typ "u64" in Pulse2Rust_Rust_Syntax.mk_cast uu___2 uu___3 - | FStar_Extraction_ML_Syntax.MLE_Var x -> + | FStarC_Extraction_ML_Syntax.MLE_Var x -> let uu___ = varname x in Pulse2Rust_Rust_Syntax.mk_expr_path_singl uu___ - | FStar_Extraction_ML_Syntax.MLE_Name p -> + | FStarC_Extraction_ML_Syntax.MLE_Name p -> let uu___ = should_extract_mlpath_with_symbol g (FStar_Pervasives_Native.fst p) in @@ -875,277 +875,277 @@ and (extract_mlexpr : let uu___1 = let uu___2 = extract_path_for_symbol g (FStar_Pervasives_Native.fst p) in - FStar_Compiler_List.append uu___2 + FStarC_Compiler_List.append uu___2 [FStar_Pervasives_Native.snd p] in Pulse2Rust_Rust_Syntax.mk_expr_path uu___1 else Pulse2Rust_Rust_Syntax.mk_expr_path_singl (FStar_Pervasives_Native.snd p) - | FStar_Extraction_ML_Syntax.MLE_Let uu___ -> + | FStarC_Extraction_ML_Syntax.MLE_Let uu___ -> let uu___1 = extract_mlexpr_to_stmts g e in Pulse2Rust_Rust_Syntax.mk_block_expr uu___1 - | FStar_Extraction_ML_Syntax.MLE_Seq uu___ -> + | FStarC_Extraction_ML_Syntax.MLE_Seq uu___ -> let uu___1 = extract_mlexpr_to_stmts g e in Pulse2Rust_Rust_Syntax.mk_block_expr uu___1 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::[]) when - (((let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (((let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Pervasives.tfst") || - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "FStar.Pervasives.Native.__proj__Mktuple2__item___1")) || - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "FStar.Pervasives.Native.fst")) || - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "FStar.Pervasives.dfst") -> let e2 = extract_mlexpr g e1 in Pulse2Rust_Rust_Syntax.mk_expr_field_unnamed e2 Prims.int_zero - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::[]) when - (((let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (((let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Pervasives.tsnd") || - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "FStar.Pervasives.Native.__proj__Mktuple2__item___2")) || - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "FStar.Pervasives.Native.snd")) || - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "FStar.Pervasives.dsnd") -> let e2 = extract_mlexpr g e1 in Pulse2Rust_Rust_Syntax.mk_expr_field_unnamed e2 Prims.int_one - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::[]) when - let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Pervasives.tthd" -> let e2 = extract_mlexpr g e1 in Pulse2Rust_Rust_Syntax.mk_expr_field_unnamed e2 (Prims.of_int (2)) - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::e2::uu___5::[]) when - (((let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (((let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Reference.op_Colon_Equals") || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Box.op_Colon_Equals")) || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Mutex.op_Colon_Equals")) || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.MutexToken.op_Colon_Equals") -> let e11 = extract_mlexpr g e1 in let e21 = extract_mlexpr g e2 in let b = type_of g e11 in let is_mutex_guard = - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Mutex.op_Colon_Equals") || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.MutexToken.op_Colon_Equals") in if is_mutex_guard || (Prims.op_Negation b) then Pulse2Rust_Rust_Syntax.mk_ref_assign e11 e21 else Pulse2Rust_Rust_Syntax.mk_assign e11 e21 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::uu___5::uu___6::[]) when - (((let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (((let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Reference.op_Bang") || - (let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Box.op_Bang")) || - (let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Mutex.op_Bang")) || - (let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.MutexToken.op_Bang") -> let e2 = extract_mlexpr g e1 in let b = type_of g e2 in let is_mutex_guard = - (let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Mutex.op_Bang") || - (let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.MutexToken.op_Bang") in if is_mutex_guard || (Prims.op_Negation b) then Pulse2Rust_Rust_Syntax.mk_ref_read e2 else e2 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::e2::uu___5::[]) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Pervasives.ref_apply" -> let uu___6 = extract_mlexpr g e1 in let uu___7 = let uu___8 = extract_mlexpr g e2 in [uu___8] in Pulse2Rust_Rust_Syntax.mk_call uu___6 uu___7 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::[]) when - let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Box.box_to_ref" -> let e2 = extract_mlexpr g e1 in let is_mut = true in Pulse2Rust_Rust_Syntax.mk_reference_expr is_mut e2 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::[]) when - let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Box.alloc" -> let e2 = extract_mlexpr g e1 in let uu___5 = Pulse2Rust_Rust_Syntax.mk_expr_path ["std"; "boxed"; "Box"; "new"] in Pulse2Rust_Rust_Syntax.mk_call uu___5 [e2] - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::i::uu___5) when - ((((let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + ((((let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Array.Core.op_Array_Access") || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Array.Core.pts_to_range_index")) || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Slice.op_Array_Access")) || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Vec.op_Array_Access")) || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Vec.read_ref") -> let uu___6 = extract_mlexpr g e1 in let uu___7 = extract_mlexpr g i in Pulse2Rust_Rust_Syntax.mk_expr_index uu___6 uu___7 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::e2::e3::uu___5) when - ((((let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + ((((let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Array.Core.op_Array_Assignment") || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Array.Core.pts_to_range_upd")) || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Slice.op_Array_Assignment")) || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Vec.op_Array_Assignment")) || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Vec.write_ref") -> let e11 = extract_mlexpr g e1 in @@ -1153,23 +1153,23 @@ and (extract_mlexpr : let e31 = extract_mlexpr g e3 in let uu___6 = Pulse2Rust_Rust_Syntax.mk_expr_index e11 e21 in Pulse2Rust_Rust_Syntax.mk_assign uu___6 e31 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, a::[]); - FStar_Extraction_ML_Syntax.mlty = uu___2; - FStar_Extraction_ML_Syntax.loc = uu___3;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___2; + FStarC_Extraction_ML_Syntax.loc = uu___3;_}, e_v::e_i::e_x::uu___4) when - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Vec.replace_i") || - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Vec.replace_i_ref") -> let e_v1 = extract_mlexpr g e_v in @@ -1181,133 +1181,133 @@ and (extract_mlexpr : let uu___7 = Pulse2Rust_Rust_Syntax.mk_expr_index e_v1 e_i1 in Pulse2Rust_Rust_Syntax.mk_reference_expr is_mut uu___7 in Pulse2Rust_Rust_Syntax.mk_mem_replace uu___5 uu___6 e_x1 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, a::[]); - FStar_Extraction_ML_Syntax.mlty = uu___2; - FStar_Extraction_ML_Syntax.loc = uu___3;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___2; + FStarC_Extraction_ML_Syntax.loc = uu___3;_}, e_r::e_x::uu___4) when - let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Reference.replace" -> let uu___5 = extract_mlty g a in let uu___6 = extract_mlexpr g e_r in let uu___7 = extract_mlexpr g e_x in Pulse2Rust_Rust_Syntax.mk_mem_replace uu___5 uu___6 uu___7 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::uu___5) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Slice.from_array" -> extract_mlexpr g e1 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::uu___5::i::uu___6) when - let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Slice.split" -> let uu___7 = extract_mlexpr g e1 in let uu___8 = let uu___9 = extract_mlexpr g i in [uu___9] in Pulse2Rust_Rust_Syntax.mk_method_call uu___7 "split_at_mut" uu___8 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, a::uu___5::b::uu___6) when - let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Slice.copy" -> let uu___7 = extract_mlexpr g a in let uu___8 = let uu___9 = extract_mlexpr g b in [uu___9] in Pulse2Rust_Rust_Syntax.mk_method_call uu___7 "copy_from_slice" uu___8 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, a::[]) when - let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Slice.len" -> let uu___5 = extract_mlexpr g a in Pulse2Rust_Rust_Syntax.mk_method_call uu___5 "len" [] - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::[]) when - let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Vec.vec_to_array" -> let e2 = extract_mlexpr g e1 in let is_mut = true in Pulse2Rust_Rust_Syntax.mk_reference_expr is_mut e2 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::e2::[]) when - let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Vec.alloc" -> let e11 = extract_mlexpr g e1 in let e21 = extract_mlexpr g e2 in @@ -1315,170 +1315,170 @@ and (extract_mlexpr : Pulse2Rust_Rust_Syntax.mk_expr_path_singl Pulse2Rust_Rust_Syntax.vec_new_fn in Pulse2Rust_Rust_Syntax.mk_call uu___5 [e11; e21] - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::e2::[]) when - let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Array.Core.alloc" -> let uu___5 = - let uu___6 = FStar_Extraction_ML_Syntax.mlexpr_to_string e in - FStar_Compiler_Util.format1 "mlexpr %s" uu___6 in + let uu___6 = FStarC_Extraction_ML_Syntax.mlexpr_to_string e in + FStarC_Compiler_Util.format1 "mlexpr %s" uu___6 in Pulse2Rust_Env.fail_nyi uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::uu___5::[]) when - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Vec.free") || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Box.free") -> let e2 = extract_mlexpr g e1 in let uu___6 = Pulse2Rust_Rust_Syntax.mk_expr_path_singl "drop" in Pulse2Rust_Rust_Syntax.mk_call uu___6 [e2] - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, uu___5::e1::uu___6) when - (let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Mutex.new_mutex") || - (let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.MutexToken.new_mutex") -> let e2 = extract_mlexpr g e1 in Pulse2Rust_Rust_Syntax.mk_new_mutex e2 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, uu___5::uu___6::e1::uu___7) when - (let uu___8 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___8 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___8 = "Pulse.Lib.Mutex.lock") || - (let uu___8 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___8 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___8 = "Pulse.Lib.MutexToken.lock") -> let e2 = extract_mlexpr g e1 in Pulse2Rust_Rust_Syntax.mk_lock_mutex e2 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, uu___5::e1::uu___6) when - (let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Mutex.lock") || - (let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.MutexToken.lock") -> let e2 = extract_mlexpr g e1 in Pulse2Rust_Rust_Syntax.mk_lock_mutex e2 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, uu___5::uu___6::uu___7::e1::uu___8) when - (let uu___9 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___9 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___9 = "Pulse.Lib.Mutex.unlock") || - (let uu___9 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___9 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___9 = "Pulse.Lib.MutexToken.unlock") -> let e2 = extract_mlexpr g e1 in Pulse2Rust_Rust_Syntax.mk_unlock_mutex e2 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, uu___5::uu___6::e1::uu___7) when - (let uu___8 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___8 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___8 = "Pulse.Lib.Mutex.unlock") || - (let uu___8 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___8 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___8 = "Pulse.Lib.MutexToken.unlock") -> let e2 = extract_mlexpr g e1 in Pulse2Rust_Rust_Syntax.mk_unlock_mutex e2 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, a::[]); - FStar_Extraction_ML_Syntax.mlty = uu___2; - FStar_Extraction_ML_Syntax.loc = uu___3;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___2; + FStarC_Extraction_ML_Syntax.loc = uu___3;_}, e_mg::e_x::uu___4) when - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Mutex.replace") || - (let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.MutexToken.replace") -> let is_mut = true in @@ -1488,47 +1488,47 @@ and (extract_mlexpr : Pulse2Rust_Rust_Syntax.mk_reference_expr is_mut uu___7 in let uu___7 = extract_mlexpr g e_x in Pulse2Rust_Rust_Syntax.mk_mem_replace uu___5 uu___6 uu___7 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::e2::[]) when - let uu___5 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___5 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___5 = "Pulse.Lib.Array.Core.free" -> let uu___5 = - let uu___6 = FStar_Extraction_ML_Syntax.mlexpr_to_string e in - FStar_Compiler_Util.format1 "mlexpr %s" uu___6 in + let uu___6 = FStarC_Extraction_ML_Syntax.mlexpr_to_string e in + FStarC_Compiler_Util.format1 "mlexpr %s" uu___6 in Pulse2Rust_Env.fail_nyi uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, { - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Fun (uu___2, cond); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}::{ - FStar_Extraction_ML_Syntax.expr + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Fun (uu___2, cond); + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}::{ + FStarC_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Fun + FStarC_Extraction_ML_Syntax.MLE_Fun (uu___5, body); - FStar_Extraction_ML_Syntax.mlty + FStarC_Extraction_ML_Syntax.mlty = uu___6; - FStar_Extraction_ML_Syntax.loc + FStarC_Extraction_ML_Syntax.loc = uu___7;_}::[]) when - let uu___8 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___8 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___8 = "Pulse.Lib.Dv.while_" -> let expr_while_cond = extract_mlexpr g cond in let expr_while_body = extract_mlexpr_to_stmts g body in @@ -1537,151 +1537,151 @@ and (extract_mlexpr : Pulse2Rust_Rust_Syntax.expr_while_cond = expr_while_cond; Pulse2Rust_Rust_Syntax.expr_while_body = expr_while_body } - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, uu___5::e1::uu___6) when - let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "DPE.run_stt" -> extract_mlexpr g e1 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, uu___5) when - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "failwith") || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Dv.unreachable") -> let uu___6 = Pulse2Rust_Rust_Syntax.mk_expr_path_singl Pulse2Rust_Rust_Syntax.panic_fn in Pulse2Rust_Rust_Syntax.mk_call uu___6 [] - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2) when - (let uu___3 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___3 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___3 = "failwith") || - (let uu___3 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___3 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___3 = "Pulse.Lib.Dv.unreachable") -> let uu___3 = Pulse2Rust_Rust_Syntax.mk_expr_path_singl Pulse2Rust_Rust_Syntax.panic_fn in Pulse2Rust_Rust_Syntax.mk_call uu___3 [] - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, e1::e2::[]) when let uu___2 = - let uu___3 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___3 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in is_binop uu___3 in FStar_Pervasives_Native.uu___is_Some uu___2 -> let e11 = extract_mlexpr g e1 in let op = let uu___2 = - let uu___3 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___3 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in is_binop uu___3 in - FStar_Compiler_Util.must uu___2 in + FStarC_Compiler_Util.must uu___2 in let e21 = extract_mlexpr g e2 in Pulse2Rust_Rust_Syntax.mk_binop e11 op e21 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, e1::e2::[]) when let uu___5 = - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in is_binop uu___6 in FStar_Pervasives_Native.uu___is_Some uu___5 -> let e11 = extract_mlexpr g e1 in let op = let uu___5 = - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in is_binop uu___6 in - FStar_Compiler_Util.must uu___5 in + FStarC_Compiler_Util.must uu___5 in let e21 = extract_mlexpr g e2 in Pulse2Rust_Rust_Syntax.mk_binop e11 op e21 - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, e1::e2::[]) when let uu___2 = - let uu___3 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___3 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in is_binop uu___3 in FStar_Pervasives_Native.uu___is_Some uu___2 -> let e11 = extract_mlexpr g e1 in let op = let uu___2 = - let uu___3 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___3 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in is_binop uu___3 in - FStar_Compiler_Util.must uu___2 in + FStarC_Compiler_Util.must uu___2 in let e21 = extract_mlexpr g e2 in Pulse2Rust_Rust_Syntax.mk_binop e11 op e21 - | FStar_Extraction_ML_Syntax.MLE_App (head, args) -> + | FStarC_Extraction_ML_Syntax.MLE_App (head, args) -> let head1 = extract_mlexpr g head in - let args1 = FStar_Compiler_List.map (extract_mlexpr g) args in + let args1 = FStarC_Compiler_List.map (extract_mlexpr g) args in Pulse2Rust_Rust_Syntax.mk_call head1 args1 - | FStar_Extraction_ML_Syntax.MLE_CTor (p, e1::e2::uu___) when + | FStarC_Extraction_ML_Syntax.MLE_CTor (p, e1::e2::uu___) when (FStar_Pervasives_Native.snd p) = "Mkdtuple2" -> let uu___1 = let uu___2 = extract_mlexpr g e1 in let uu___3 = let uu___4 = extract_mlexpr g e2 in [uu___4] in uu___2 :: uu___3 in Pulse2Rust_Rust_Syntax.mk_expr_tuple uu___1 - | FStar_Extraction_ML_Syntax.MLE_CTor (p, args) -> + | FStarC_Extraction_ML_Syntax.MLE_CTor (p, args) -> let is_native = - (let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "FStar.Pervasives.Native.Some") || - (let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "FStar.Pervasives.Native.None") in let ty_name = - match e.FStar_Extraction_ML_Syntax.mlty with - | FStar_Extraction_ML_Syntax.MLTY_Named (uu___, p1) -> + match e.FStarC_Extraction_ML_Syntax.mlty with + | FStarC_Extraction_ML_Syntax.MLTY_Named (uu___, p1) -> enum_or_struct_name (FStar_Pervasives_Native.snd p1) | uu___ -> - FStar_Compiler_Effect.failwith "S.MLE_CTor: unexpected type" in + FStarC_Compiler_Effect.failwith "S.MLE_CTor: unexpected type" in let dexpr = if is_native then @@ -1697,20 +1697,20 @@ and (extract_mlexpr : extract_path_for_symbol g (FStar_Pervasives_Native.fst p) else [] in Pulse2Rust_Rust_Syntax.mk_expr_path - (FStar_Compiler_List.append path + (FStarC_Compiler_List.append path [ty_name; FStar_Pervasives_Native.snd p])) in - if (FStar_Compiler_List.length args) = Prims.int_zero + if (FStarC_Compiler_List.length args) = Prims.int_zero then dexpr else - (let uu___1 = FStar_Compiler_List.map (extract_mlexpr g) args in + (let uu___1 = FStarC_Compiler_List.map (extract_mlexpr g) args in Pulse2Rust_Rust_Syntax.mk_call dexpr uu___1) - | FStar_Extraction_ML_Syntax.MLE_TApp (head, uu___) -> + | FStarC_Extraction_ML_Syntax.MLE_TApp (head, uu___) -> extract_mlexpr g head - | FStar_Extraction_ML_Syntax.MLE_If (cond, if_then, if_else_opt) -> + | FStarC_Extraction_ML_Syntax.MLE_If (cond, if_then, if_else_opt) -> let cond1 = extract_mlexpr g cond in let then_ = extract_mlexpr_to_stmts g if_then in let else_ = - FStar_Compiler_Util.map_option (extract_mlexpr g) if_else_opt in + FStarC_Compiler_Util.map_option (extract_mlexpr g) if_else_opt in let else_1 = match else_ with | FStar_Pervasives_Native.None -> else_ @@ -1724,88 +1724,88 @@ and (extract_mlexpr : [Pulse2Rust_Rust_Syntax.Stmt_expr else_2] in FStar_Pervasives_Native.Some uu___ in Pulse2Rust_Rust_Syntax.mk_if cond1 then_ else_1 - | FStar_Extraction_ML_Syntax.MLE_Match (e1, branches) -> + | FStarC_Extraction_ML_Syntax.MLE_Match (e1, branches) -> let e2 = extract_mlexpr g e1 in let uu___ = - FStar_Compiler_List.map (extract_mlbranch_to_arm g) branches in + FStarC_Compiler_List.map (extract_mlbranch_to_arm g) branches in Pulse2Rust_Rust_Syntax.mk_match e2 uu___ - | FStar_Extraction_ML_Syntax.MLE_Coerce (e1, uu___, uu___1) -> + | FStarC_Extraction_ML_Syntax.MLE_Coerce (e1, uu___, uu___1) -> extract_mlexpr g e1 - | FStar_Extraction_ML_Syntax.MLE_Record (p, nm, fields) -> + | FStarC_Extraction_ML_Syntax.MLE_Record (p, nm, fields) -> let path = let uu___ = should_extract_mlpath_with_symbol g p in if uu___ then extract_path_for_symbol g p else [] in let uu___ = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___1 -> match uu___1 with | (f, e1) -> let uu___2 = extract_mlexpr g e1 in (f, uu___2)) fields in Pulse2Rust_Rust_Syntax.mk_expr_struct - (FStar_Compiler_List.append path [nm]) uu___ - | FStar_Extraction_ML_Syntax.MLE_Proj (e1, p) -> + (FStarC_Compiler_List.append path [nm]) uu___ + | FStarC_Extraction_ML_Syntax.MLE_Proj (e1, p) -> let uu___ = extract_mlexpr g e1 in Pulse2Rust_Rust_Syntax.mk_expr_field uu___ (FStar_Pervasives_Native.snd p) - | FStar_Extraction_ML_Syntax.MLE_Tuple l -> - let uu___ = FStar_Compiler_List.map (extract_mlexpr g) l in + | FStarC_Extraction_ML_Syntax.MLE_Tuple l -> + let uu___ = FStarC_Compiler_List.map (extract_mlexpr g) l in Pulse2Rust_Rust_Syntax.mk_expr_tuple uu___ | uu___ -> let uu___1 = - let uu___2 = FStar_Extraction_ML_Syntax.mlexpr_to_string e in - FStar_Compiler_Util.format1 "mlexpr %s" uu___2 in + let uu___2 = FStarC_Extraction_ML_Syntax.mlexpr_to_string e in + FStarC_Compiler_Util.format1 "mlexpr %s" uu___2 in Pulse2Rust_Env.fail_nyi uu___1 and (extract_mlexpr_to_stmts : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlexpr -> + FStarC_Extraction_ML_Syntax.mlexpr -> Pulse2Rust_Rust_Syntax.stmt Prims.list) = fun g -> fun e -> - match e.FStar_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_Const - (FStar_Extraction_ML_Syntax.MLC_Unit) -> [] - | FStar_Extraction_ML_Syntax.MLE_Let + match e.FStarC_Extraction_ML_Syntax.expr with + | FStarC_Extraction_ML_Syntax.MLE_Const + (FStarC_Extraction_ML_Syntax.MLC_Unit) -> [] + | FStarC_Extraction_ML_Syntax.MLE_Let ((uu___, - { FStar_Extraction_ML_Syntax.mllb_name = uu___1; - FStar_Extraction_ML_Syntax.mllb_tysc = uu___2; - FStar_Extraction_ML_Syntax.mllb_add_unit = uu___3; - FStar_Extraction_ML_Syntax.mllb_def = + { FStarC_Extraction_ML_Syntax.mllb_name = uu___1; + FStarC_Extraction_ML_Syntax.mllb_tysc = uu___2; + FStarC_Extraction_ML_Syntax.mllb_add_unit = uu___3; + FStarC_Extraction_ML_Syntax.mllb_def = { - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Const - (FStar_Extraction_ML_Syntax.MLC_Unit); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}; - FStar_Extraction_ML_Syntax.mllb_attrs = uu___6; - FStar_Extraction_ML_Syntax.mllb_meta = uu___7; - FStar_Extraction_ML_Syntax.print_typ = uu___8;_}::[]), + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Const + (FStarC_Extraction_ML_Syntax.MLC_Unit); + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}; + FStarC_Extraction_ML_Syntax.mllb_attrs = uu___6; + FStarC_Extraction_ML_Syntax.mllb_meta = uu___7; + FStarC_Extraction_ML_Syntax.print_typ = uu___8;_}::[]), e1) -> extract_mlexpr_to_stmts g e1 - | FStar_Extraction_ML_Syntax.MLE_Let - ((FStar_Extraction_ML_Syntax.NonRec, lb::[]), e1) -> + | FStarC_Extraction_ML_Syntax.MLE_Let + ((FStarC_Extraction_ML_Syntax.NonRec, lb::[]), e1) -> let uu___ = lb_init_and_def g lb in (match uu___ with | (is_mut, ty, init) -> let topt = FStar_Pervasives_Native.None in let s = let uu___1 = - match lb.FStar_Extraction_ML_Syntax.mllb_tysc with + match lb.FStarC_Extraction_ML_Syntax.mllb_tysc with | FStar_Pervasives_Native.Some - (uu___2, FStar_Extraction_ML_Syntax.MLTY_Erased) -> + (uu___2, FStarC_Extraction_ML_Syntax.MLTY_Erased) -> FStar_Pervasives_Native.None | uu___2 -> let uu___3 = - varname lb.FStar_Extraction_ML_Syntax.mllb_name in + varname lb.FStarC_Extraction_ML_Syntax.mllb_name in FStar_Pervasives_Native.Some uu___3 in Pulse2Rust_Rust_Syntax.mk_local_stmt uu___1 topt is_mut init in let uu___1 = let uu___2 = Pulse2Rust_Env.push_local g - lb.FStar_Extraction_ML_Syntax.mllb_name ty is_mut in + lb.FStarC_Extraction_ML_Syntax.mllb_name ty is_mut in extract_mlexpr_to_stmts uu___2 e1 in s :: uu___1) - | FStar_Extraction_ML_Syntax.MLE_Seq es -> + | FStarC_Extraction_ML_Syntax.MLE_Seq es -> let rec fixup_nonterminal_exprs uu___ = match uu___ with | [] -> [] @@ -1828,23 +1828,23 @@ and (extract_mlexpr_to_stmts : | e1::es1 -> let uu___1 = extract_mlexpr_to_stmts g e1 in let uu___2 = aux es1 in - FStar_Compiler_List.op_At uu___1 uu___2 in + FStarC_Compiler_List.op_At uu___1 uu___2 in let uu___ = aux es in fixup_nonterminal_exprs uu___ - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, uu___2); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, uu___5) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "failwith" -> let uu___6 = let uu___7 = @@ -1861,7 +1861,7 @@ and (extract_mlexpr_to_stmts : [uu___1] and (extract_mlbranch_to_arm : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlbranch -> Pulse2Rust_Rust_Syntax.arm) + FStarC_Extraction_ML_Syntax.mlbranch -> Pulse2Rust_Rust_Syntax.arm) = fun g -> fun uu___ -> @@ -1870,8 +1870,8 @@ and (extract_mlbranch_to_arm : (match pat_guard with | FStar_Pervasives_Native.Some e -> let uu___1 = - let uu___2 = FStar_Extraction_ML_Syntax.mlexpr_to_string e in - FStar_Compiler_Util.format1 + let uu___2 = FStarC_Extraction_ML_Syntax.mlexpr_to_string e in + FStarC_Compiler_Util.format1 "mlbranch_to_arm with pat guard %s" uu___2 in Pulse2Rust_Env.fail_nyi uu___1 | FStar_Pervasives_Native.None -> @@ -1881,62 +1881,62 @@ and (extract_mlbranch_to_arm : let arm_body = extract_mlexpr g1 body in Pulse2Rust_Rust_Syntax.mk_arm pat1 arm_body)) let (has_rust_const_fn_attribute : - FStar_Extraction_ML_Syntax.mllb -> Prims.bool) = + FStarC_Extraction_ML_Syntax.mllb -> Prims.bool) = fun lb -> - FStar_Compiler_List.existsb + FStarC_Compiler_List.existsb (fun attr -> - match attr.FStar_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_CTor (p, uu___) when - let uu___1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + match attr.FStarC_Extraction_ML_Syntax.expr with + | FStarC_Extraction_ML_Syntax.MLE_CTor (p, uu___) when + let uu___1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___1 = "Pulse.Lib.Pervasives.Rust_const_fn" -> true - | uu___ -> false) lb.FStar_Extraction_ML_Syntax.mllb_attrs + | uu___ -> false) lb.FStarC_Extraction_ML_Syntax.mllb_attrs let (extract_generic_type_param_trait_bounds : - FStar_Extraction_ML_Syntax.mlexpr Prims.list -> + FStarC_Extraction_ML_Syntax.mlexpr Prims.list -> Prims.string Prims.list Prims.list) = fun attrs -> let uu___ = let uu___1 = - FStar_Compiler_List.tryFind + FStarC_Compiler_List.tryFind (fun attr -> - match attr.FStar_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_CTor (p, uu___2) when - let uu___3 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + match attr.FStarC_Extraction_ML_Syntax.expr with + | FStarC_Extraction_ML_Syntax.MLE_CTor (p, uu___2) when + let uu___3 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___3 = "Pulse.Lib.Pervasives.Rust_generics_bounds" -> true | uu___2 -> false) attrs in - FStar_Compiler_Util.map_option + FStarC_Compiler_Util.map_option (fun attr -> - let uu___2 = attr.FStar_Extraction_ML_Syntax.expr in + let uu___2 = attr.FStarC_Extraction_ML_Syntax.expr in match uu___2 with - | FStar_Extraction_ML_Syntax.MLE_CTor (p, args) -> + | FStarC_Extraction_ML_Syntax.MLE_CTor (p, args) -> let uu___3 = - let uu___4 = FStar_Compiler_List.hd args in - FStar_Extraction_ML_Util.list_elements uu___4 in + let uu___4 = FStarC_Compiler_List.hd args in + FStarC_Extraction_ML_Util.list_elements uu___4 in (match uu___3 with | FStar_Pervasives_Native.Some l -> let uu___4 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun e -> - match e.FStar_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_Const - (FStar_Extraction_ML_Syntax.MLC_String s) -> s + match e.FStarC_Extraction_ML_Syntax.expr with + | FStarC_Extraction_ML_Syntax.MLE_Const + (FStarC_Extraction_ML_Syntax.MLC_String s) -> s | uu___5 -> - FStar_Compiler_Effect.failwith + FStarC_Compiler_Effect.failwith "unexpected generic type param bounds") l in - FStar_Compiler_List.map - (fun bound -> FStar_Compiler_Util.split bound "::") + FStarC_Compiler_List.map + (fun bound -> FStarC_Compiler_Util.split bound "::") uu___4)) uu___1 in - FStar_Compiler_Util.dflt [] uu___ + FStarC_Compiler_Util.dflt [] uu___ let (extract_generic_type_params : - FStar_Extraction_ML_Syntax.ty_param Prims.list -> + FStarC_Extraction_ML_Syntax.ty_param Prims.list -> Pulse2Rust_Rust_Syntax.generic_type_param Prims.list) = fun tyvars -> - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___ -> match uu___ with - | { FStar_Extraction_ML_Syntax.ty_param_name = ty_param_name; - FStar_Extraction_ML_Syntax.ty_param_attrs = ty_param_attrs;_} -> + | { FStarC_Extraction_ML_Syntax.ty_param_name = ty_param_name; + FStarC_Extraction_ML_Syntax.ty_param_attrs = ty_param_attrs;_} -> let uu___1 = tyvar_of ty_param_name in let uu___2 = extract_generic_type_param_trait_bounds ty_param_attrs in @@ -1944,7 +1944,7 @@ let (extract_generic_type_params : tyvars let (extract_top_level_lb : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlletbinding -> + FStarC_Extraction_ML_Syntax.mlletbinding -> (Pulse2Rust_Rust_Syntax.item * Pulse2Rust_Env.env)) = fun g -> @@ -1955,19 +1955,19 @@ let (extract_top_level_lb : let uu___1 = lbs1 in (match uu___1 with | lb::[] -> - (match (lb.FStar_Extraction_ML_Syntax.mllb_def).FStar_Extraction_ML_Syntax.expr + (match (lb.FStarC_Extraction_ML_Syntax.mllb_def).FStarC_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_Fun (bs, body) -> + | FStarC_Extraction_ML_Syntax.MLE_Fun (bs, body) -> let arg_names = - FStar_Compiler_List.map - (fun b -> b.FStar_Extraction_ML_Syntax.mlbinder_name) + FStarC_Compiler_List.map + (fun b -> b.FStarC_Extraction_ML_Syntax.mlbinder_name) bs in let arg_attrs = - FStar_Compiler_List.map - (fun b -> b.FStar_Extraction_ML_Syntax.mlbinder_attrs) + FStarC_Compiler_List.map + (fun b -> b.FStarC_Extraction_ML_Syntax.mlbinder_attrs) bs in let uu___2 = - match lb.FStar_Extraction_ML_Syntax.mllb_tysc with + match lb.FStarC_Extraction_ML_Syntax.mllb_tysc with | FStar_Pervasives_Native.Some tsc -> let uu___3 = arg_ts_and_ret_t tsc in (match uu___3 with @@ -1976,9 +1976,9 @@ let (extract_top_level_lb : (FStar_Pervasives_Native.Some ret_t))) | FStar_Pervasives_Native.None -> let uu___3 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun b -> - b.FStar_Extraction_ML_Syntax.mlbinder_ty) bs in + b.FStarC_Extraction_ML_Syntax.mlbinder_ty) bs in ([], uu___3, FStar_Pervasives_Native.None) in (match uu___2 with | (tvars, arg_ts, ret_t) -> @@ -1986,7 +1986,7 @@ let (extract_top_level_lb : let uu___3 = let uu___4 = extract_generic_type_params tvars in extract_top_level_sig g fn_const - lb.FStar_Extraction_ML_Syntax.mllb_name uu___4 + lb.FStarC_Extraction_ML_Syntax.mllb_name uu___4 arg_names arg_attrs arg_ts ret_t in (match uu___3 with | (fn_sig, g_body) -> @@ -1998,18 +1998,18 @@ let (extract_top_level_lb : Pulse2Rust_Rust_Syntax.Item_fn uu___5 in let uu___5 = Pulse2Rust_Env.push_fn g - lb.FStar_Extraction_ML_Syntax.mllb_name + lb.FStarC_Extraction_ML_Syntax.mllb_name fn_sig in (uu___4, uu___5))) | uu___2 -> - (match lb.FStar_Extraction_ML_Syntax.mllb_tysc with + (match lb.FStarC_Extraction_ML_Syntax.mllb_tysc with | FStar_Pervasives_Native.Some ([], ty) -> - let name = lb.FStar_Extraction_ML_Syntax.mllb_name in + let name = lb.FStarC_Extraction_ML_Syntax.mllb_name in let ty1 = extract_mlty g ty in let uu___3 = let uu___4 = extract_mlexpr g - lb.FStar_Extraction_ML_Syntax.mllb_def in + lb.FStarC_Extraction_ML_Syntax.mllb_def in Pulse2Rust_Rust_Syntax.mk_item_static name ty1 uu___4 in let uu___4 = Pulse2Rust_Env.push_static g name ty1 in @@ -2017,61 +2017,61 @@ let (extract_top_level_lb : | uu___3 -> let uu___4 = let uu___5 = - FStar_Extraction_ML_Syntax.mlexpr_to_string - lb.FStar_Extraction_ML_Syntax.mllb_def in - FStar_Compiler_Util.format1 + FStarC_Extraction_ML_Syntax.mlexpr_to_string + lb.FStarC_Extraction_ML_Syntax.mllb_def in + FStarC_Compiler_Util.format1 "top level lb def with either no tysc or generics %s" uu___5 in Pulse2Rust_Env.fail_nyi uu___4))) let (has_rust_derive_attr : - FStar_Extraction_ML_Syntax.mlattribute Prims.list -> + FStarC_Extraction_ML_Syntax.mlattribute Prims.list -> Pulse2Rust_Rust_Syntax.attribute FStar_Pervasives_Native.option) = fun attrs -> let uu___ = - FStar_Compiler_List.tryFind + FStarC_Compiler_List.tryFind (fun attr -> - match attr.FStar_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_CTor (p, uu___1) when - let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + match attr.FStarC_Extraction_ML_Syntax.expr with + | FStarC_Extraction_ML_Syntax.MLE_CTor (p, uu___1) when + let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___2 = "Pulse.Lib.Pervasives.Rust_derive" -> true | uu___1 -> false) attrs in - FStar_Compiler_Util.map_option + FStarC_Compiler_Util.map_option (fun attr -> - let uu___1 = attr.FStar_Extraction_ML_Syntax.expr in + let uu___1 = attr.FStarC_Extraction_ML_Syntax.expr in match uu___1 with - | FStar_Extraction_ML_Syntax.MLE_CTor (p, arg::uu___2) -> - let uu___3 = arg.FStar_Extraction_ML_Syntax.expr in + | FStarC_Extraction_ML_Syntax.MLE_CTor (p, arg::uu___2) -> + let uu___3 = arg.FStarC_Extraction_ML_Syntax.expr in (match uu___3 with - | FStar_Extraction_ML_Syntax.MLE_Const - (FStar_Extraction_ML_Syntax.MLC_String s) -> + | FStarC_Extraction_ML_Syntax.MLE_Const + (FStarC_Extraction_ML_Syntax.MLC_String s) -> Pulse2Rust_Rust_Syntax.mk_derive_attr s)) uu___ let (extract_struct_defn : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlattribute Prims.list -> - FStar_Extraction_ML_Syntax.one_mltydecl -> + FStarC_Extraction_ML_Syntax.mlattribute Prims.list -> + FStarC_Extraction_ML_Syntax.one_mltydecl -> (Pulse2Rust_Rust_Syntax.item * Pulse2Rust_Env.env)) = fun g -> fun attrs -> fun d -> - let uu___ = d.FStar_Extraction_ML_Syntax.tydecl_defn in + let uu___ = d.FStarC_Extraction_ML_Syntax.tydecl_defn in match uu___ with | FStar_Pervasives_Native.Some - (FStar_Extraction_ML_Syntax.MLTD_Record fts) -> + (FStarC_Extraction_ML_Syntax.MLTD_Record fts) -> let uu___1 = let uu___2 = let uu___3 = let uu___4 = has_rust_derive_attr attrs in - FStar_Compiler_Util.map_option (fun a -> [a]) uu___4 in - FStar_Compiler_Util.dflt [] uu___3 in + FStarC_Compiler_Util.map_option (fun a -> [a]) uu___4 in + FStarC_Compiler_Util.dflt [] uu___3 in let uu___3 = - enum_or_struct_name d.FStar_Extraction_ML_Syntax.tydecl_name in + enum_or_struct_name d.FStarC_Extraction_ML_Syntax.tydecl_name in let uu___4 = extract_generic_type_params - d.FStar_Extraction_ML_Syntax.tydecl_parameters in + d.FStarC_Extraction_ML_Syntax.tydecl_parameters in let uu___5 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___6 -> match uu___6 with | (f, t) -> let uu___7 = extract_mlty g t in (f, uu___7)) @@ -2081,56 +2081,56 @@ let (extract_struct_defn : (uu___1, g) let (extract_type_abbrev : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlattribute Prims.list -> - FStar_Extraction_ML_Syntax.one_mltydecl -> + FStarC_Extraction_ML_Syntax.mlattribute Prims.list -> + FStarC_Extraction_ML_Syntax.one_mltydecl -> (Pulse2Rust_Rust_Syntax.item * Pulse2Rust_Env.env)) = fun g -> fun attrs -> fun d -> - let uu___ = d.FStar_Extraction_ML_Syntax.tydecl_defn in + let uu___ = d.FStarC_Extraction_ML_Syntax.tydecl_defn in match uu___ with | FStar_Pervasives_Native.Some - (FStar_Extraction_ML_Syntax.MLTD_Abbrev t) -> + (FStarC_Extraction_ML_Syntax.MLTD_Abbrev t) -> let uu___1 = let uu___2 = extract_generic_type_params - d.FStar_Extraction_ML_Syntax.tydecl_parameters in + d.FStarC_Extraction_ML_Syntax.tydecl_parameters in let uu___3 = extract_mlty g t in Pulse2Rust_Rust_Syntax.mk_item_type - d.FStar_Extraction_ML_Syntax.tydecl_name uu___2 uu___3 in + d.FStarC_Extraction_ML_Syntax.tydecl_name uu___2 uu___3 in (uu___1, g) let (extract_enum : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlattribute Prims.list -> - FStar_Extraction_ML_Syntax.one_mltydecl -> + FStarC_Extraction_ML_Syntax.mlattribute Prims.list -> + FStarC_Extraction_ML_Syntax.one_mltydecl -> (Pulse2Rust_Rust_Syntax.item * Pulse2Rust_Env.env)) = fun g -> fun attrs -> fun d -> - let uu___ = d.FStar_Extraction_ML_Syntax.tydecl_defn in + let uu___ = d.FStarC_Extraction_ML_Syntax.tydecl_defn in match uu___ with - | FStar_Pervasives_Native.Some (FStar_Extraction_ML_Syntax.MLTD_DType + | FStar_Pervasives_Native.Some (FStarC_Extraction_ML_Syntax.MLTD_DType cts) -> let uu___1 = let uu___2 = let uu___3 = let uu___4 = has_rust_derive_attr attrs in - FStar_Compiler_Util.map_option (fun a -> [a]) uu___4 in - FStar_Compiler_Util.dflt [] uu___3 in + FStarC_Compiler_Util.map_option (fun a -> [a]) uu___4 in + FStarC_Compiler_Util.dflt [] uu___3 in let uu___3 = - enum_or_struct_name d.FStar_Extraction_ML_Syntax.tydecl_name in + enum_or_struct_name d.FStarC_Extraction_ML_Syntax.tydecl_name in let uu___4 = extract_generic_type_params - d.FStar_Extraction_ML_Syntax.tydecl_parameters in + d.FStarC_Extraction_ML_Syntax.tydecl_parameters in let uu___5 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___6 -> match uu___6 with | (cname, dts) -> let uu___7 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___8 -> match uu___8 with | (uu___9, t) -> extract_mlty g t) dts in @@ -2139,38 +2139,38 @@ let (extract_enum : (uu___1, g) let (extract_mltydecl : Pulse2Rust_Env.env -> - FStar_Extraction_ML_Syntax.mlexpr Prims.list -> - FStar_Extraction_ML_Syntax.mltydecl -> + FStarC_Extraction_ML_Syntax.mlexpr Prims.list -> + FStarC_Extraction_ML_Syntax.mltydecl -> (Pulse2Rust_Rust_Syntax.item Prims.list * Pulse2Rust_Env.env)) = fun g -> fun mlattrs -> fun d -> - FStar_Compiler_List.fold_left + FStarC_Compiler_List.fold_left (fun uu___ -> fun d1 -> match uu___ with | (items, g1) -> let f = - match d1.FStar_Extraction_ML_Syntax.tydecl_defn with + match d1.FStarC_Extraction_ML_Syntax.tydecl_defn with | FStar_Pervasives_Native.Some - (FStar_Extraction_ML_Syntax.MLTD_Abbrev uu___1) -> + (FStarC_Extraction_ML_Syntax.MLTD_Abbrev uu___1) -> extract_type_abbrev | FStar_Pervasives_Native.Some - (FStar_Extraction_ML_Syntax.MLTD_Record uu___1) -> + (FStarC_Extraction_ML_Syntax.MLTD_Record uu___1) -> extract_struct_defn | FStar_Pervasives_Native.Some - (FStar_Extraction_ML_Syntax.MLTD_DType uu___1) -> + (FStarC_Extraction_ML_Syntax.MLTD_DType uu___1) -> extract_enum | uu___1 -> let uu___2 = let uu___3 = - FStar_Extraction_ML_Syntax.one_mltydecl_to_string + FStarC_Extraction_ML_Syntax.one_mltydecl_to_string d1 in - FStar_Compiler_Util.format1 "mltydecl %s" uu___3 in + FStarC_Compiler_Util.format1 "mltydecl %s" uu___3 in Pulse2Rust_Env.fail_nyi uu___2 in let uu___1 = f g1 mlattrs d1 in (match uu___1 with | (item, g2) -> - ((FStar_Compiler_List.op_At items [item]), g2))) + ((FStarC_Compiler_List.op_At items [item]), g2))) ([], g) d \ No newline at end of file diff --git a/pulse2rust/src/ocaml/generated/Pulse2Rust_Rust_Syntax.ml b/pulse2rust/src/ocaml/generated/Pulse2Rust_Rust_Syntax.ml index 58e909ab9..a2651f9f6 100644 --- a/pulse2rust/src/ocaml/generated/Pulse2Rust_Rust_Syntax.ml +++ b/pulse2rust/src/ocaml/generated/Pulse2Rust_Rust_Syntax.ml @@ -926,7 +926,7 @@ let (mk_named_typ : fun s -> fun generic_args -> let path1 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun s1 -> { path_segment_name = s1; path_segment_generic_args = [] }) path in @@ -942,7 +942,7 @@ let (mk_expr_path_singl : Prims.string -> expr) = let (mk_expr_path : Prims.string Prims.list -> expr) = fun l -> let uu___ = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun s -> { path_segment_name = s; path_segment_generic_args = [] }) l in Expr_path uu___ @@ -997,13 +997,13 @@ let (mk_pat_ts : fun path -> fun s -> fun pat_ts_elems -> - if (FStar_Compiler_List.length pat_ts_elems) = Prims.int_zero + if (FStarC_Compiler_List.length pat_ts_elems) = Prims.int_zero then - (if (FStar_Compiler_List.length path) = Prims.int_zero + (if (FStarC_Compiler_List.length path) = Prims.int_zero then Pat_ident { pat_name = s; by_ref = false; is_mut = false } else (let uu___1 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun s1 -> { path_segment_name = s1; path_segment_generic_args = [] }) (FStar_List_Tot_Base.append path [s]) in @@ -1011,7 +1011,7 @@ let (mk_pat_ts : else (let uu___1 = let uu___2 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun s1 -> { path_segment_name = s1; path_segment_generic_args = [] }) (FStar_List_Tot_Base.append path [s]) in @@ -1023,7 +1023,7 @@ let (mk_pat_struct : Prims.string -> (Prims.string * pat) Prims.list -> pat) fun pats -> let uu___ = let uu___1 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___2 -> match uu___2 with | (s, p) -> { field_pat_name = s; field_pat_pat = p }) pats in @@ -1059,7 +1059,7 @@ let (mk_expr_struct : fun fields -> let uu___ = let uu___1 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___2 -> match uu___2 with | (f, e) -> { field_val_name = f; field_val_expr = e }) fields in @@ -1136,7 +1136,7 @@ let (mk_fn_signature : fun fn_args -> fun fn_ret_t -> let fn_generics1 = - FStar_Compiler_List.map (fun uu___ -> Generic_type_param uu___) + FStarC_Compiler_List.map (fun uu___ -> Generic_type_param uu___) fn_generics in { fn_const; @@ -1185,10 +1185,10 @@ let (mk_item_struct : fun fields -> let uu___ = let uu___1 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___2 -> Generic_type_param uu___2) generics in let uu___2 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___3 -> match uu___3 with | (f, t) -> { field_typ_name = f; field_typ_typ = t }) @@ -1207,7 +1207,7 @@ let (mk_item_type : fun t -> let uu___ = let uu___1 = - FStar_Compiler_List.map (fun uu___2 -> Generic_type_param uu___2) + FStarC_Compiler_List.map (fun uu___2 -> Generic_type_param uu___2) generics in { item_type_name = name; @@ -1227,10 +1227,10 @@ let (mk_item_enum : fun variants -> let uu___ = let uu___1 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___2 -> Generic_type_param uu___2) generics in let uu___2 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___3 -> match uu___3 with | (v, typs) -> diff --git a/src/Makefile b/src/Makefile index e23c26269..3b85de617 100644 --- a/src/Makefile +++ b/src/Makefile @@ -30,14 +30,14 @@ build-ocaml: # this file cannot be copied to `generated` because of a bug with # Dune's `menhir` stanza # (cf. https://github.com/ocaml/dune/issues/4381 ) -fstar_parser_parse=ocaml/plugin/FStar_Parser_Parse.mly +fstar_parser_parse=ocaml/plugin/FStarC_Parser_Parse.mly ifeq (,$(FSTAR_HOME)) $(fstar_parser_parse): echo "Cannot find the F* parser. Please point FSTAR_HOME to a source repository clone of F*" false else -$(fstar_parser_parse): $(FSTAR_HOME)/ocaml/fstar-lib/FStar_Parser_Parse.mly +$(fstar_parser_parse): $(FSTAR_HOME)/ocaml/fstar-lib/FStarC_Parser_Parse.mly cp $^ $@ endif diff --git a/src/extraction/ExtractPulse.fst b/src/extraction/ExtractPulse.fst index 484ce3004..1dea57c52 100644 --- a/src/extraction/ExtractPulse.fst +++ b/src/extraction/ExtractPulse.fst @@ -1,25 +1,25 @@ module ExtractPulse -friend FStar.Extraction.Krml +friend FStarC.Extraction.Krml -(* IMPORTANT: these `open` directives come from FStar.Extraction.Krml. +(* IMPORTANT: these `open` directives come from FStarC.Extraction.Krml. Without them, spurious dependencies on F* ulib will be introduced *) -open FStar.Compiler.Effect -open FStar.Compiler.List +open FStarC.Compiler.Effect +open FStarC.Compiler.List open FStar -open FStar.Compiler -open FStar.Compiler.Util -open FStar.Extraction -open FStar.Extraction.ML -open FStar.Extraction.ML.Syntax -open FStar.Const -open FStar.BaseTypes +open FStarC.Compiler +open FStarC.Compiler.Util +open FStarC.Extraction +open FStarC.Extraction.ML +open FStarC.Extraction.ML.Syntax +open FStarC.Const +open FStarC.BaseTypes -module BU = FStar.Compiler.Util -module FC = FStar.Const +module BU = FStarC.Compiler.Util +module FC = FStarC.Const -open FStar.Class.Show +open FStarC.Class.Show -open FStar.Extraction.Krml +open FStarC.Extraction.Krml let flatten_app e = let rec aux args e = diff --git a/src/extraction/ExtractPulse.fsti b/src/extraction/ExtractPulse.fsti index 5e40981ad..4aff8c554 100644 --- a/src/extraction/ExtractPulse.fsti +++ b/src/extraction/ExtractPulse.fsti @@ -1,3 +1,3 @@ module ExtractPulse -// this fsti is necessary because we are `friend`ing FStar.Extraction.Krml +// this fsti is necessary because we are `friend`ing FStarC.Extraction.Krml diff --git a/src/extraction/ExtractPulseC.fst b/src/extraction/ExtractPulseC.fst index ff3618bbd..185e475f2 100644 --- a/src/extraction/ExtractPulseC.fst +++ b/src/extraction/ExtractPulseC.fst @@ -1,19 +1,19 @@ module ExtractPulseC -friend FStar.Extraction.Krml -open FStar.Compiler.Effect -open FStar.Compiler.List +friend FStarC.Extraction.Krml +open FStarC.Compiler.Effect +open FStarC.Compiler.List open FStar -open FStar.Compiler -open FStar.Compiler.Util -open FStar.Extraction -open FStar.Extraction.ML -open FStar.Extraction.ML.Syntax -open FStar.Const -open FStar.BaseTypes -open FStar.Extraction.Krml -module K = FStar.Extraction.Krml -module BU = FStar.Compiler.Util +open FStarC.Compiler +open FStarC.Compiler.Util +open FStarC.Extraction +open FStarC.Extraction.ML +open FStarC.Extraction.ML.Syntax +open FStarC.Const +open FStarC.BaseTypes +open FStarC.Extraction.Krml +module K = FStarC.Extraction.Krml +module BU = FStarC.Compiler.Util (* JL: TODO: in stdlib somewhere? *) let opt_bind (m: option 'a) (k: 'a -> option 'b): option 'b = @@ -26,7 +26,7 @@ let char_of_typechar (t: mlty): option char = if p = "Pulse.C.Typestring.cdot" then Some '.' else if BU.starts_with p "Pulse.C.Typestring.c" then - Some (FStar.Compiler.String.get p (FStar.String.strlen "Pulse.C.Typestring.c")) + Some (FStarC.Compiler.String.get p (FStar.String.strlen "Pulse.C.Typestring.c")) else None @@ -327,7 +327,7 @@ let parse_steel_c_fields env (fields: mlty): option (list _) = match go fields with | None -> BU.print1 "Failed to parse fields from %s.\n" - (FStar.Extraction.ML.Code.string_of_mlty ([], "") fields); + (FStarC.Extraction.ML.Code.string_of_mlty ([], "") fields); None | Some fields -> @@ -336,14 +336,14 @@ let parse_steel_c_fields env (fields: mlty): option (list _) = (fun () (field, ty) -> BU.print2 " %s : %s\n" field - (FStar.Extraction.ML.Code.string_of_mlty ([], "") ty)) + (FStarC.Extraction.ML.Code.string_of_mlty ([], "") ty)) () fields; Some ( List.map (fun (field, ty) -> BU.print1 "Translating %s.\n" - (FStar.Extraction.ML.Code.string_of_mlty ([], "") ty); + (FStarC.Extraction.ML.Code.string_of_mlty ([], "") ty); (field, translate_type_without_decay env ty)) fields) @@ -363,7 +363,7 @@ let define_struct match lident_of_typestring tag with | None -> BU.print1 "Failed to parse struct tag from %s.\n" - (FStar.Extraction.ML.Code.string_of_mlty ([], "") tag); + (FStarC.Extraction.ML.Code.string_of_mlty ([], "") tag); None | Some p -> define_struct_gen env p [] fields @@ -383,7 +383,7 @@ let define_union match lident_of_typestring tag with | None -> BU.print1 "Failed to parse union tag from %s.\n" - (FStar.Extraction.ML.Code.string_of_mlty ([], "") tag); + (FStarC.Extraction.ML.Code.string_of_mlty ([], "") tag); None | Some p -> define_union_gen env p [] fields diff --git a/src/extraction/ExtractPulseC.fsti b/src/extraction/ExtractPulseC.fsti index c0fc985e7..b6c6bfcc2 100644 --- a/src/extraction/ExtractPulseC.fsti +++ b/src/extraction/ExtractPulseC.fsti @@ -1,2 +1,2 @@ module ExtractPulseC -(* this interface is necessary because ExtractPulseC `friend`s FStar.Extraction.Krml *) +(* this interface is necessary because ExtractPulseC `friend`s FStarC.Extraction.Krml *) diff --git a/src/ocaml/plugin/FStar_Parser_Parse.mly b/src/ocaml/plugin/FStar_Parser_Parse.mly index b2508a258..ccf4d38af 100644 --- a/src/ocaml/plugin/FStar_Parser_Parse.mly +++ b/src/ocaml/plugin/FStar_Parser_Parse.mly @@ -20,20 +20,20 @@ (* (c) Microsoft Corporation. All rights reserved *) open Prims open FStar_Pervasives -open FStar_Errors -open FStar_Compiler_List -open FStar_Compiler_Util -open FStar_Compiler_Range +open FStarC_Errors +open FStarC_Compiler_List +open FStarC_Compiler_Util +open FStarC_Compiler_Range (* TODO : these files should be deprecated and removed *) -open FStar_Parser_Const -open FStar_Parser_AST -open FStar_Const -open FStar_Ident +open FStarC_Parser_Const +open FStarC_Parser_AST +open FStarC_Const +open FStarC_Ident (* Shorthands *) -let rr = FStar_Parser_Util.translate_range -let rr2 = FStar_Parser_Util.translate_range2 +let rr = FStarC_Parser_Util.translate_range +let rr2 = FStarC_Parser_Util.translate_range2 let logic_qualifier_deprecation_warning = "logic qualifier is deprecated, please remove it from the source program. In case your program verifies with the qualifier annotated but not without it, please try to minimize the example and file a github issue." @@ -55,15 +55,15 @@ let none_to_empty_list x = let parse_extension_blob (extension_name:string) (s:string) (blob_range:range) - (extension_syntax_start:range) : FStar_Parser_AST.decl' = + (extension_syntax_start:range) : FStarC_Parser_AST.decl' = DeclSyntaxExtension (extension_name, s, blob_range, extension_syntax_start) let parse_use_lang_blob (extension_name:string) (s:string) (blob_range:range) (extension_syntax_start:range) -: FStar_Parser_AST.decl list -= FStar_Parser_AST_Util.parse_extension_lang extension_name s extension_syntax_start +: FStarC_Parser_AST.decl list += FStarC_Parser_AST_Util.parse_extension_lang extension_name s extension_syntax_start %} @@ -101,7 +101,7 @@ let parse_use_lang_blob (extension_name:string) /* [SEMICOLON_OP] encodes either: - [;;], which used to be SEMICOLON_SEMICOLON, or -- [;], with a sequence of [op_char] (see FStar_Parser_LexFStar). +- [;], with a sequence of [op_char] (see FStarC_Parser_LexFStar). */ %token SEMICOLON_OP @@ -137,8 +137,8 @@ let parse_use_lang_blob (extension_name:string) %token OPPREFIX OPINFIX0a OPINFIX0b OPINFIX0c OPINFIX0d OPINFIX1 OPINFIX2 OPINFIX3 OPINFIX4 %token OP_MIXFIX_ASSIGNMENT OP_MIXFIX_ACCESS -%token BLOB -%token USE_LANG_BLOB +%token BLOB +%token USE_LANG_BLOB /* These are artificial */ %token EOF @@ -171,11 +171,11 @@ let parse_use_lang_blob (extension_name:string) %start term %start warn_error_list %start oneDeclOrEOF -%type inputFragment -%type <(FStar_Parser_AST.decl list * FStar_Sedlexing.snap option) option> oneDeclOrEOF -%type term -%type lident -%type <(FStar_Errors_Codes.error_flag * string) list> warn_error_list +%type inputFragment +%type <(FStarC_Parser_AST.decl list * FStarC_Sedlexing.snap option) option> oneDeclOrEOF +%type term +%type lident +%type <(FStarC_Errors_Codes.error_flag * string) list> warn_error_list %% (* inputFragment is used at the same time for whole files and fragment of codes (for interactive mode) *) @@ -374,8 +374,8 @@ typeclassDecl: restriction: | LBRACE ids=separated_list(COMMA, id=ident renamed=option(AS id=ident {id} ) {(id, renamed)}) RBRACE - { FStar_Syntax_Syntax.AllowList ids } - | { FStar_Syntax_Syntax.Unrestricted } + { FStarC_Syntax_Syntax.AllowList ids } + | { FStarC_Syntax_Syntax.Unrestricted } rawDecl: | p=pragma @@ -387,7 +387,7 @@ rawDecl: | INCLUDE uid=quident r=restriction { Include (uid, r) } | MODULE UNDERSCORE EQUALS uid=quident - { Open (uid, FStar_Syntax_Syntax.AllowList []) } + { Open (uid, FStarC_Syntax_Syntax.AllowList []) } | MODULE uid1=uident EQUALS uid2=quident { ModuleAbbrev(uid1, uid2) } | MODULE q=qlident diff --git a/src/ocaml/plugin/PulseSyntaxExtension_Parser.ml b/src/ocaml/plugin/PulseSyntaxExtension_Parser.ml index b480c9e59..a71e40fb3 100644 --- a/src/ocaml/plugin/PulseSyntaxExtension_Parser.ml +++ b/src/ocaml/plugin/PulseSyntaxExtension_Parser.ml @@ -1,11 +1,11 @@ open Lexing open FStar_Pervasives_Native open FStar_Pervasives -open FStar_Compiler_Range -open FStar_Parser_ParseIt -module FP = FStar_Parser_Parse +open FStarC_Compiler_Range +open FStarC_Parser_ParseIt +module FP = FStarC_Parser_Parse module PP = Pulse_FStar_Parser -module S = FStar_Sedlexing +module S = FStarC_Sedlexing let rewrite_token (tok:FP.token) : PP.token @@ -23,7 +23,7 @@ let rewrite_token (tok:FP.token) | IDENT "with_invariants" -> PP.WITH_INVS | IDENT "opens" -> PP.OPENS | IDENT "show_proof_state" -> PP.SHOW_PROOF_STATE - (* the rest are just copied from FStar_Parser_Parse *) + (* the rest are just copied from FStarC_Parser_Parse *) | IDENT s -> PP.IDENT s | AMP -> PP.AMP | AND -> PP.AND @@ -203,7 +203,7 @@ let rewrite_token (tok:FP.token) | WITH -> PP.WITH let wrap_lexer lexbuf () = - let tok = FStar_Parser_LexFStar.token lexbuf in + let tok = FStarC_Parser_LexFStar.token lexbuf in rewrite_token tok, lexbuf.start_p, lexbuf.cur_p let lexbuf_and_lexer (s:string) (r:range) = @@ -224,8 +224,8 @@ let parse_decl (s:string) (r:range) = Inl d with | e -> - let pos = FStar_Parser_Util.pos_of_lexpos (lexbuf.cur_p) in - let r = FStar_Compiler_Range.mk_range fn pos pos in + let pos = FStarC_Parser_Util.pos_of_lexpos (lexbuf.cur_p) in + let r = FStarC_Compiler_Range.mk_range fn pos pos in Inr (Some ("Syntax error", r)) @@ -238,11 +238,11 @@ let parse_peek_id (s:string) (r:range) : (string, string * range) either = Inl lid with | e -> - let pos = FStar_Parser_Util.pos_of_lexpos (lexbuf.cur_p) in - let r = FStar_Compiler_Range.mk_range fn pos pos in - let msg = FStar_Compiler_Util.format3 + let pos = FStarC_Parser_Util.pos_of_lexpos (lexbuf.cur_p) in + let r = FStarC_Compiler_Range.mk_range fn pos pos in + let msg = FStarC_Compiler_Util.format3 "Failed to peek id, Syntax error @ %s\n%s\n%s\n" - (FStar_Compiler_Range.string_of_range r) + (FStarC_Compiler_Range.string_of_range r) (Printexc.to_string e) (Printexc.get_backtrace()) in Inr (msg, r) @@ -251,16 +251,16 @@ let parse_peek_id (s:string) (r:range) : (string, string * range) either = let parse_lang (s:string) (r:range) = let fn = file_of_range r in let lexbuf, lexer = lexbuf_and_lexer s r in - let range_of_either (d: (PulseSyntaxExtension_Sugar.decl, FStar_Parser_AST.decl) either) = + let range_of_either (d: (PulseSyntaxExtension_Sugar.decl, FStarC_Parser_AST.decl) either) = match d with | Inl d -> PulseSyntaxExtension_Sugar.range_of_decl d | Inr f -> f.drange in try - let ds, err = FStar_Parser_ParseIt.parse_incremental_decls fn s lexbuf lexer range_of_either PP.iLangDeclOrEOF in + let ds, err = FStarC_Parser_ParseIt.parse_incremental_decls fn s lexbuf lexer range_of_either PP.iLangDeclOrEOF in Inl (ds, err) with | e -> - let pos = FStar_Parser_Util.pos_of_lexpos (lexbuf.cur_p) in - let r = FStar_Compiler_Range.mk_range fn pos pos in + let pos = FStarC_Parser_Util.pos_of_lexpos (lexbuf.cur_p) in + let r = FStarC_Compiler_Range.mk_range fn pos pos in Inr (Some ("#lang-pulse: Syntax error", r)) \ No newline at end of file diff --git a/src/ocaml/plugin/PulseSyntaxExtension_SyntaxWrapper.ml b/src/ocaml/plugin/PulseSyntaxExtension_SyntaxWrapper.ml index a8acc90b7..3e615d10d 100755 --- a/src/ocaml/plugin/PulseSyntaxExtension_SyntaxWrapper.ml +++ b/src/ocaml/plugin/PulseSyntaxExtension_SyntaxWrapper.ml @@ -1,10 +1,10 @@ open Prims -open FStar_Ident +open FStarC_Ident open Pulse_Syntax_Base module U = Pulse_Syntax_Pure -module S = FStar_Syntax_Syntax +module S = FStarC_Syntax_Syntax type universe = Pulse_Syntax_Base.universe -type range = FStar_Compiler_Range.range +type range = FStarC_Compiler_Range.range let u_zero : universe = U.u_zero let u_succ (u:universe) : universe = U.u_succ u let u_var (s:string) : universe = U.u_var s @@ -27,7 +27,7 @@ let mk_nm (i:index) (name:string) (r:range) : nm = type fv = Pulse_Syntax_Base.fv let mk_fv (nm:lident) (r:range) : fv = - { fv_name = FStar_Ident.path_of_lid nm; + { fv_name = FStarC_Ident.path_of_lid nm; fv_range = r } type term = Pulse_Syntax_Base.term @@ -35,7 +35,7 @@ type binder = Pulse_Syntax_Base.binder type comp = Pulse_Syntax_Base.comp type slprop = term -let ppname_of_id (i:ident) : ppname = { name = FStar_Ident.string_of_id i; range = i.idRange } +let ppname_of_id (i:ident) : ppname = { name = FStarC_Ident.string_of_id i; range = i.idRange } let mk_binder_with_attrs (x:ident) (t:term) (attrs:term list) : binder = { binder_ty = t; @@ -95,7 +95,7 @@ let atomic_comp (inames:term) (pre:term) (ret:binder) (post:term) : comp = module PSB = Pulse_Syntax_Builder type constant = Pulse_Syntax_Base.constant -let inspect_const = FStar_Reflection_V2_Builtins.inspect_const +let inspect_const = FStarC_Reflection_V2_Builtins.inspect_const type pattern = Pulse_Syntax_Base.pattern @@ -154,7 +154,7 @@ let is_tm_intro_exists (s:st_term) : bool = let trans_ns = function | None -> None - | Some l -> Some (List.map FStar_Ident.string_of_lid l) + | Some l -> Some (List.map FStarC_Ident.string_of_lid l) type hint_type = Pulse_Syntax_Base.proof_hint_type @@ -212,25 +212,25 @@ let comp_post c = let print_exn (e:exn) = Printexc.to_string e open FStar_Pervasives -module Env = FStar_TypeChecker_Env +module Env = FStarC_TypeChecker_Env let tac_to_string (env:Env.env) f = let ps = - FStar_Tactics_V2_Basic.proofstate_of_goals + FStarC_Tactics_V2_Basic.proofstate_of_goals (Env.get_range env) env [] [] in match f ps with - | FStar_Tactics_Result.Success (x, _) -> x - | FStar_Tactics_Result.Failed (exn, _) -> failwith (print_exn exn) + | FStarC_Tactics_Result.Success (x, _) -> x + | FStarC_Tactics_Result.Failed (exn, _) -> failwith (print_exn exn) let binder_to_string (env:Env.env) (b:binder) : string = tac_to_string env (Pulse_Syntax_Printer.binder_to_string b) let bv_to_string (x:bv) : string = x.bv_ppname.name ^ "@" ^ - (FStar_Compiler_Util.string_of_int x.bv_index) + (FStarC_Compiler_Util.string_of_int x.bv_index) let term_to_string (env:Env.env) (t:term) : string = tac_to_string env (Pulse_Syntax_Printer.term_to_string t) diff --git a/src/ocaml/plugin/Pulse_Extract_CompilerLib.ml b/src/ocaml/plugin/Pulse_Extract_CompilerLib.ml index e465a9f88..c7791a3ac 100644 --- a/src/ocaml/plugin/Pulse_Extract_CompilerLib.ml +++ b/src/ocaml/plugin/Pulse_Extract_CompilerLib.ml @@ -1,6 +1,6 @@ -module U = FStar_Syntax_Util -module C = FStar_Parser_Const -module S = FStar_Syntax_Syntax +module U = FStarC_Syntax_Util +module C = FStarC_Parser_Const +module S = FStarC_Syntax_Syntax type term = S.term type binder = S.binder @@ -9,20 +9,20 @@ let unit_ty = S.t_unit let mk_return (t:term) : term = S.mk (S.Tm_meta {tm2=t; meta=S.Meta_monadic_lift (C.effect_PURE_lid, C.effect_DIV_lid, S.tun)}) - FStar_Compiler_Range.dummyRange + FStarC_Compiler_Range.dummyRange let mk_meta_monadic (t: term): term = S.mk (S.Tm_meta {tm2=t; meta=S.Meta_monadic (C.effect_DIV_lid, S.tun)}) - FStar_Compiler_Range.dummyRange + FStarC_Compiler_Range.dummyRange let mk_let (b:binder) (head:term) (body:term) : term = let lb = U.mk_letbinding - (Inl b.binder_bv) [] b.binder_bv.sort C.effect_DIV_lid head [] FStar_Compiler_Range.dummyRange in + (Inl b.binder_bv) [] b.binder_bv.sort C.effect_DIV_lid head [] FStarC_Compiler_Range.dummyRange in let tm_let = - S.mk (S.Tm_let {lbs=(false, [lb]); body1=body}) FStar_Compiler_Range.dummyRange in - S.mk (S.Tm_meta {tm2=tm_let; meta=S.Meta_monadic (C.effect_DIV_lid, S.tun)}) FStar_Compiler_Range.dummyRange + S.mk (S.Tm_let {lbs=(false, [lb]); body1=body}) FStarC_Compiler_Range.dummyRange in + S.mk (S.Tm_meta {tm2=tm_let; meta=S.Meta_monadic (C.effect_DIV_lid, S.tun)}) FStarC_Compiler_Range.dummyRange let mk_if (b:term) (then_:term) (else_:term) : term = U.if_then_else b then_ else_ let mk_extracted_as_attr (impl: term) : term = - S.mk_Tm_app (S.tconst FStar_Parser_Const.extract_as_lid) - [S.mk (S.Tm_quoted (impl, {qkind=S.Quote_static; antiquotations=(Prims.int_zero,[])})) FStar_Compiler_Range.dummyRange, None] - FStar_Compiler_Range.dummyRange + S.mk_Tm_app (S.tconst FStarC_Parser_Const.extract_as_lid) + [S.mk (S.Tm_quoted (impl, {qkind=S.Quote_static; antiquotations=(Prims.int_zero,[])})) FStarC_Compiler_Range.dummyRange, None] + FStarC_Compiler_Range.dummyRange diff --git a/src/ocaml/plugin/Pulse_RuntimeUtils.ml b/src/ocaml/plugin/Pulse_RuntimeUtils.ml index 5389dbca9..8c91a5366 100755 --- a/src/ocaml/plugin/Pulse_RuntimeUtils.ml +++ b/src/ocaml/plugin/Pulse_RuntimeUtils.ml @@ -1,13 +1,13 @@ type context = ((string * FStar_Range.range option) list) FStar_Sealed.sealed let extend_context (s:string) (r:FStar_Range.range option) (c:context) = (s,r)::c module T = FStar_Tactics_Effect -module TR = FStar_Tactics_Result +module TR = FStarC_Tactics_Result type 'a utac = ('a, unit) T.tac_repr let ctxt_elt_as_string (s, r) = match r with | None -> s | Some r -> - "@" ^ FStar_Compiler_Range.string_of_range r ^ ": " ^ s + "@" ^ FStarC_Compiler_Range.string_of_range r ^ ": " ^ s let rec print_context (c:context) : string utac = fun ps -> TR.Success ( @@ -20,58 +20,58 @@ let rec with_context (c:context) (f: unit -> 'a utac) : 'a utac = | [] -> f () ps | sr::tl -> with_context tl (fun _ ps -> - FStar_Errors.with_ctx (ctxt_elt_as_string sr) (fun _ -> f () ps)) ps + FStarC_Errors.with_ctx (ctxt_elt_as_string sr) (fun _ -> f () ps)) ps let with_error_bound (r:FStar_Range.range) (f: unit -> 'a utac) : 'a utac = fun ps -> - FStar_Errors.with_error_bound r (fun _ -> f () ps) + FStarC_Errors.with_error_bound r (fun _ -> f () ps) let disable_admit_smt_queries (f: unit -> 'a utac) : 'a utac = fun ps -> - FStar_Options.with_saved_options (fun _ -> - FStar_Options.set_option "admit_smt_queries" (FStar_Options.Bool false); + FStarC_Options.with_saved_options (fun _ -> + FStarC_Options.set_option "admit_smt_queries" (FStarC_Options.Bool false); f () ps ) let with_extv (k:string) (v:string) (f: unit -> 'a utac) : 'a utac = fun ps -> - let open FStar_Options_Ext in - let x = FStar_Options_Ext.save() in - FStar_Options_Ext.set k v; + let open FStarC_Options_Ext in + let x = FStarC_Options_Ext.save() in + FStarC_Options_Ext.set k v; let res = f () ps in - FStar_Options_Ext.restore x; + FStarC_Options_Ext.restore x; res -let env_set_context (g:FStar_Reflection_Types.env) (c:context) = g +let env_set_context (g:FStarC_Reflection_Types.env) (c:context) = g let print_exn (e:exn) = Printexc.to_string e let debug_at_level_no_module (s:string) = - let r = FStar_Compiler_Debug.get_toggle s in + let r = FStarC_Compiler_Debug.get_toggle s in !r -let debug_at_level (g:FStar_Reflection_Types.env) (s:string) = - let r = FStar_Compiler_Debug.get_toggle s in +let debug_at_level (g:FStarC_Reflection_Types.env) (s:string) = + let r = FStarC_Compiler_Debug.get_toggle s in !r -let next_id () = FStar_GenSym.next_id () -let bv_set_range (bv:FStar_Syntax_Syntax.bv) (r:FStar_Range.range) = FStar_Syntax_Syntax.set_range_of_bv bv r -let bv_range (bv:FStar_Syntax_Syntax.bv) = FStar_Syntax_Syntax.range_of_bv bv -let binder_set_range (b:FStar_Syntax_Syntax.binder) (r:FStar_Range.range) = - { b with FStar_Syntax_Syntax.binder_bv = (bv_set_range b.FStar_Syntax_Syntax.binder_bv r) } -let binder_range (b:FStar_Syntax_Syntax.binder) = bv_range b.FStar_Syntax_Syntax.binder_bv +let next_id () = FStarC_GenSym.next_id () +let bv_set_range (bv:FStarC_Syntax_Syntax.bv) (r:FStar_Range.range) = FStarC_Syntax_Syntax.set_range_of_bv bv r +let bv_range (bv:FStarC_Syntax_Syntax.bv) = FStarC_Syntax_Syntax.range_of_bv bv +let binder_set_range (b:FStarC_Syntax_Syntax.binder) (r:FStar_Range.range) = + { b with FStarC_Syntax_Syntax.binder_bv = (bv_set_range b.FStarC_Syntax_Syntax.binder_bv r) } +let binder_range (b:FStarC_Syntax_Syntax.binder) = bv_range b.FStarC_Syntax_Syntax.binder_bv let start_of_range (r:FStar_Range.range) = - let open FStar_Compiler_Range in + let open FStarC_Compiler_Range in mk_range (file_of_range r) (start_of_range r) (start_of_range r) - let set_range (t:FStar_Syntax_Syntax.term) (r:FStar_Range.range) = { t with FStar_Syntax_Syntax.pos = r} -let set_use_range (t:FStar_Syntax_Syntax.term) (r:FStar_Range.range) = FStar_Syntax_Subst.set_use_range r t -let error_code_uninstantiated_variable () = FStar_Errors.errno FStar_Errors_Codes.Error_UninstantiatedUnificationVarInTactic + let set_range (t:FStarC_Syntax_Syntax.term) (r:FStar_Range.range) = { t with FStarC_Syntax_Syntax.pos = r} +let set_use_range (t:FStarC_Syntax_Syntax.term) (r:FStar_Range.range) = FStarC_Syntax_Subst.set_use_range r t +let error_code_uninstantiated_variable () = FStarC_Errors.errno FStarC_Errors_Codes.Error_UninstantiatedUnificationVarInTactic let is_range_zero (r:FStar_Range.range) = r = FStar_Range.range_0 -let union_ranges (r0:FStar_Range.range) (r1:FStar_Range.range) = FStar_Compiler_Range.union_ranges r0 r1 -let range_of_term (t:FStar_Syntax_Syntax.term) = t.FStar_Syntax_Syntax.pos -let env_set_range (e:FStar_Reflection_Types.env) (r:FStar_Range.range) = - FStar_TypeChecker_Env.set_range e r +let union_ranges (r0:FStar_Range.range) (r1:FStar_Range.range) = FStarC_Compiler_Range.union_ranges r0 r1 +let range_of_term (t:FStarC_Syntax_Syntax.term) = t.FStarC_Syntax_Syntax.pos +let env_set_range (e:FStarC_Reflection_Types.env) (r:FStar_Range.range) = + FStarC_TypeChecker_Env.set_range e r let is_pulse_option_set (x:string) : bool = let key = ("pulse:"^x) in - let value = FStar_Options_Ext.get key in + let value = FStarC_Options_Ext.get key in value <> "" -module U = FStar_Syntax_Util -module S = FStar_Syntax_Syntax +module U = FStarC_Syntax_Util +module S = FStarC_Syntax_Syntax let embed_st_term_for_extraction (d:'a) r = U.mk_lazy d S.tun (S.Lazy_extension "pulse_st_term") r let unembed_st_term_for_extraction (d:S.term) : 'a = @@ -84,16 +84,16 @@ let debug_subst (s:S.subst_elt list) (t:S.term) (r1:S.term) (r2:S.term) = then r2 else r1 (* - FStar_Options.debug_at_level_no_module - let open FStar_Compiler_Util in + FStarC_Options.debug_at_level_no_module + let open FStarC_Compiler_Util in if U.term_eq_dbg true r1 r2 then r1 else ( print4 "Applied subst %s to %s\nExpected %s\nGot %s\n" - (FStar_Syntax_Print.subst_to_string s) - (FStar_Syntax_Print.term_to_string t) - (FStar_Syntax_Print.term_to_string r1) - (FStar_Syntax_Print.term_to_string r2); + (FStarC_Syntax_Print.subst_to_string s) + (FStarC_Syntax_Print.term_to_string t) + (FStarC_Syntax_Print.term_to_string r1) + (FStarC_Syntax_Print.term_to_string r2); r2 ) *) @@ -101,14 +101,14 @@ let debug_subst (s:S.subst_elt list) (t:S.term) (r1:S.term) (r2:S.term) = module P = PulseSyntaxExtension_Env let forall_lid = PulseSyntaxExtension_Env.pulse_lib_core_lid "op_forall_Star" -let stick_lid = FStar_Ident.lid_of_path ["Pulse"; "Lib"; "Stick"; "op_At_Equals_Equals_Greater"] P.r_ +let stick_lid = FStarC_Ident.lid_of_path ["Pulse"; "Lib"; "Stick"; "op_At_Equals_Equals_Greater"] P.r_ let builtin_lids = [ - FStar_Parser_Const.and_lid; - FStar_Parser_Const.or_lid; - FStar_Parser_Const.imp_lid; - FStar_Parser_Const.iff_lid; - FStar_Parser_Const.forall_lid; - FStar_Parser_Const.exists_lid; + FStarC_Parser_Const.and_lid; + FStarC_Parser_Const.or_lid; + FStarC_Parser_Const.imp_lid; + FStarC_Parser_Const.iff_lid; + FStarC_Parser_Const.forall_lid; + FStarC_Parser_Const.exists_lid; PulseSyntaxExtension_Env.star_lid; PulseSyntaxExtension_Env.exists_lid; forall_lid; @@ -116,7 +116,7 @@ let builtin_lids = [ ] let deep_transform_to_unary_applications (t:S.term) = - FStar_Syntax_Visit.visit_term + FStarC_Syntax_Visit.visit_term false (fun t -> let open S in @@ -125,9 +125,9 @@ let deep_transform_to_unary_applications (t:S.term) = | Tm_app { hd={n=Tm_fvar {fv_qual=Some (Unresolved_projector _)}} } -> t | Tm_app { hd; args=_::_::_ as args } -> ( - match (FStar_Syntax_Util.un_uinst hd).n with + match (FStarC_Syntax_Util.un_uinst hd).n with | Tm_fvar fv - when FStar_Compiler_List.existsb (S.fv_eq_lid fv) builtin_lids -> + when FStarC_Compiler_List.existsb (S.fv_eq_lid fv) builtin_lids -> t | _ -> List.fold_left (fun t arg -> { t with n = Tm_app {hd=t; args=[arg]} }) hd args @@ -135,19 +135,19 @@ let deep_transform_to_unary_applications (t:S.term) = | _ -> t) t -let deep_compress (t:S.term) = FStar_Syntax_Compress.deep_compress_uvars t +let deep_compress (t:S.term) = FStarC_Syntax_Compress.deep_compress_uvars t let map_seal (t:'a) (f:'a -> 'b) : 'b = f t -let float_one = FStar_Compiler_Util.float_of_string "1.0" -module TcEnv = FStar_TypeChecker_Env -module Free = FStar_Syntax_Free -module BU = FStar_Compiler_Util -module FlatSet = FStar_Compiler_FlatSet +let float_one = FStarC_Compiler_Util.float_of_string "1.0" +module TcEnv = FStarC_TypeChecker_Env +module Free = FStarC_Syntax_Free +module BU = FStarC_Compiler_Util +module FlatSet = FStarC_Compiler_FlatSet let lax_check_term_with_unknown_universes (g:TcEnv.env) (e:S.term) : S.term option - = let open FStar_Tactics_V2_Basic in + = let open FStarC_Tactics_V2_Basic in let issues, res = - FStar_Errors.catch_errors (fun _ -> + FStarC_Errors.catch_errors (fun _ -> if no_uvars_in_g g && no_uvars_in_term e then ( @@ -160,39 +160,39 @@ let lax_check_term_with_unknown_universes (g:TcEnv.env) (e:S.term) let must_tot = false in let g = {g with instantiate_imp=false; phase1=true; admit=true} in let e, t, guard = g.typeof_tot_or_gtot_term g e must_tot in - let _ = FStar_TypeChecker_Rel.resolve_implicits g guard in + let _ = FStarC_TypeChecker_Rel.resolve_implicits g guard in let uvs = FlatSet.union Free.ord_ctx_uvar (Free.uvars e) (Free.uvars t) in if not (FlatSet.is_empty uvs) then None else ( let univs = FlatSet.union Free.ord_univ_uvar (Free.univs e) (Free.univs t) in let univs = FlatSet.elems univs in - List.iter (fun univ -> FStar_Syntax_Unionfind.univ_change univ S.U_unknown) univs; - let t = FStar_Syntax_Compress.deep_compress false true t in + List.iter (fun univ -> FStarC_Syntax_Unionfind.univ_change univ S.U_unknown) univs; + let t = FStarC_Syntax_Compress.deep_compress false true t in Some t ) ) else None ) in - FStar_Errors.add_issues issues; + FStarC_Errors.add_issues issues; match res with | None -> None | Some None -> None | Some (Some x) -> Some x let whnf_lax (g:TcEnv.env) (t:S.term) : S.term = - FStar_TypeChecker_Normalize.unfold_whnf' [TcEnv.Unascribe] g t + FStarC_TypeChecker_Normalize.unfold_whnf' [TcEnv.Unascribe] g t let hnf_lax (g:TcEnv.env) (t:S.term) : S.term = - FStar_TypeChecker_Normalize.normalize [TcEnv.Unascribe; TcEnv.Primops; TcEnv.HNF; TcEnv.UnfoldUntil S.delta_constant; TcEnv.Beta] g t + FStarC_TypeChecker_Normalize.normalize [TcEnv.Unascribe; TcEnv.Primops; TcEnv.HNF; TcEnv.UnfoldUntil S.delta_constant; TcEnv.Beta] g t let norm_well_typed_term_aux (g:TcEnv.env) (t:S.term) (steps:FStar_Pervasives.norm_step list) - = let steps = FStar_TypeChecker_Cfg.translate_norm_steps steps in - let t' = FStar_TypeChecker_Normalize.normalize (TcEnv.Unascribe::steps) g t in + = let steps = FStarC_TypeChecker_Cfg.translate_norm_steps steps in + let t' = FStarC_TypeChecker_Normalize.normalize (TcEnv.Unascribe::steps) g t in FStar_Pervasives.Mkdtuple3 (t', (), ()) let norm_well_typed_term @@ -204,16 +204,16 @@ let norm_well_typed_term (steps:FStar_Pervasives.norm_step list) (ps:_) = let t' = norm_well_typed_term_aux g t steps in - FStar_Tactics_Result.Success (t', ps) + FStarC_Tactics_Result.Success (t', ps) let add_attribute (s:S.sigelt) (x:S.attribute) = { s with sigattrs = x::s.sigattrs } let add_noextract_qual (s:S.sigelt) = { s with sigquals = S.NoExtract::s.sigquals } let get_attributes (s:S.sigelt) (ps:_) = - FStar_Tactics_Result.Success (s.sigattrs, ps) + FStarC_Tactics_Result.Success (s.sigattrs, ps) -let must_erase_for_extraction (g:FStar_Reflection_Types.env) (ty:FStar_Syntax_Syntax.term) = - FStar_TypeChecker_Util.must_erase_for_extraction g ty +let must_erase_for_extraction (g:FStarC_Reflection_Types.env) (ty:FStarC_Syntax_Syntax.term) = + FStarC_TypeChecker_Util.must_erase_for_extraction g ty let magic_s s = failwith ("Cannot execute magic: " ^ s) diff --git a/src/ocaml/plugin/generated/ExtractPulse.ml b/src/ocaml/plugin/generated/ExtractPulse.ml index 678fe03e1..12023f3d4 100644 --- a/src/ocaml/plugin/generated/ExtractPulse.ml +++ b/src/ocaml/plugin/generated/ExtractPulse.ml @@ -1,33 +1,33 @@ open Prims let (flatten_app : - FStar_Extraction_ML_Syntax.mlexpr -> FStar_Extraction_ML_Syntax.mlexpr) = + FStarC_Extraction_ML_Syntax.mlexpr -> FStarC_Extraction_ML_Syntax.mlexpr) = fun e -> let rec aux args e1 = - match e1.FStar_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_App (head, args0) -> - aux (FStar_Compiler_List.op_At args0 args) head + match e1.FStarC_Extraction_ML_Syntax.expr with + | FStarC_Extraction_ML_Syntax.MLE_App (head, args0) -> + aux (FStarC_Compiler_List.op_At args0 args) head | uu___ -> (match args with | [] -> e1 | uu___1 -> { - FStar_Extraction_ML_Syntax.expr = - (FStar_Extraction_ML_Syntax.MLE_App (e1, args)); - FStar_Extraction_ML_Syntax.mlty = - (e1.FStar_Extraction_ML_Syntax.mlty); - FStar_Extraction_ML_Syntax.loc = - (e1.FStar_Extraction_ML_Syntax.loc) + FStarC_Extraction_ML_Syntax.expr = + (FStarC_Extraction_ML_Syntax.MLE_App (e1, args)); + FStarC_Extraction_ML_Syntax.mlty = + (e1.FStarC_Extraction_ML_Syntax.mlty); + FStarC_Extraction_ML_Syntax.loc = + (e1.FStarC_Extraction_ML_Syntax.loc) }) in aux [] e -let (dbg : Prims.bool FStar_Compiler_Effect.ref) = - FStar_Compiler_Debug.get_toggle "extraction" +let (dbg : Prims.bool FStarC_Compiler_Effect.ref) = + FStarC_Compiler_Debug.get_toggle "extraction" let (pulse_translate_type_without_decay : - FStar_Extraction_Krml.translate_type_without_decay_t) = + FStarC_Extraction_Krml.translate_type_without_decay_t) = fun env -> fun t -> match t with - | FStar_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when - let p1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when + let p1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in ((((p1 = "Pulse.Lib.Reference.ref") || (p1 = "Pulse.Lib.Array.Core.array")) || (p1 = "Pulse.Lib.ArrayPtr.ptr")) @@ -35,561 +35,561 @@ let (pulse_translate_type_without_decay : || (p1 = "Pulse.Lib.Box.box") -> let uu___ = - FStar_Extraction_Krml.translate_type_without_decay env arg in - FStar_Extraction_Krml.TBuf uu___ + FStarC_Extraction_Krml.translate_type_without_decay env arg in + FStarC_Extraction_Krml.TBuf uu___ | uu___ -> - FStar_Compiler_Effect.raise - FStar_Extraction_Krml.NotSupportedByKrmlExtension + FStarC_Compiler_Effect.raise + FStarC_Extraction_Krml.NotSupportedByKrmlExtension let (head_and_args : - FStar_Extraction_ML_Syntax.mlexpr -> - (FStar_Extraction_ML_Syntax.mlexpr * FStar_Extraction_ML_Syntax.mlexpr + FStarC_Extraction_ML_Syntax.mlexpr -> + (FStarC_Extraction_ML_Syntax.mlexpr * FStarC_Extraction_ML_Syntax.mlexpr Prims.list)) = fun e -> let rec aux acc e1 = - match e1.FStar_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_App (head, args) -> - aux (FStar_Compiler_List.op_At args acc) head + match e1.FStarC_Extraction_ML_Syntax.expr with + | FStarC_Extraction_ML_Syntax.MLE_App (head, args) -> + aux (FStarC_Compiler_List.op_At args acc) head | uu___ -> (e1, acc) in aux [] e -let (zero_for_deref : FStar_Extraction_Krml.expr) = - FStar_Extraction_Krml.EQualified (["C"], "_zero_for_deref") -let (pulse_translate_expr : FStar_Extraction_Krml.translate_expr_t) = +let (zero_for_deref : FStarC_Extraction_Krml.expr) = + FStarC_Extraction_Krml.EQualified (["C"], "_zero_for_deref") +let (pulse_translate_expr : FStarC_Extraction_Krml.translate_expr_t) = fun env -> fun e -> let e1 = flatten_app e in - (let uu___1 = FStar_Compiler_Effect.op_Bang dbg in + (let uu___1 = FStarC_Compiler_Effect.op_Bang dbg in if uu___1 then - let uu___2 = FStar_Extraction_ML_Syntax.mlexpr_to_string e1 in - FStar_Compiler_Util.print1_warning + let uu___2 = FStarC_Extraction_ML_Syntax.mlexpr_to_string e1 in + FStarC_Compiler_Util.print1_warning "ExtractPulse.pulse_translate_expr %s\n" uu___2 else ()); - (let cb = FStar_Extraction_Krml.translate_expr env in - match e1.FStar_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_App + (let cb = FStarC_Extraction_Krml.translate_expr env in + match e1.FStarC_Extraction_ML_Syntax.expr with + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, init::[]) when - let uu___3 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___3 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___3 = "Pulse.Lib.Reference.alloc" -> let uu___3 = let uu___4 = cb init in - (FStar_Extraction_Krml.Stack, uu___4, - (FStar_Extraction_Krml.EConstant - (FStar_Extraction_Krml.UInt32, "1"))) in - FStar_Extraction_Krml.EBufCreate uu___3 - | FStar_Extraction_ML_Syntax.MLE_App + (FStarC_Extraction_Krml.Stack, uu___4, + (FStarC_Extraction_Krml.EConstant + (FStarC_Extraction_Krml.UInt32, "1"))) in + FStarC_Extraction_Krml.EBufCreate uu___3 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, init::[]) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Reference.alloc" -> let uu___6 = let uu___7 = cb init in - (FStar_Extraction_Krml.Stack, uu___7, - (FStar_Extraction_Krml.EConstant - (FStar_Extraction_Krml.UInt32, "1"))) in - FStar_Extraction_Krml.EBufCreate uu___6 - | FStar_Extraction_ML_Syntax.MLE_App + (FStarC_Extraction_Krml.Stack, uu___7, + (FStarC_Extraction_Krml.EConstant + (FStarC_Extraction_Krml.UInt32, "1"))) in + FStarC_Extraction_Krml.EBufCreate uu___6 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, init::[]) when - let uu___3 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___3 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___3 = "Pulse.Lib.Box.alloc" -> let uu___3 = let uu___4 = cb init in - (FStar_Extraction_Krml.ManuallyManaged, uu___4, - (FStar_Extraction_Krml.EConstant - (FStar_Extraction_Krml.UInt32, "1"))) in - FStar_Extraction_Krml.EBufCreate uu___3 - | FStar_Extraction_ML_Syntax.MLE_App + (FStarC_Extraction_Krml.ManuallyManaged, uu___4, + (FStarC_Extraction_Krml.EConstant + (FStarC_Extraction_Krml.UInt32, "1"))) in + FStarC_Extraction_Krml.EBufCreate uu___3 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, init::[]) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Box.alloc" -> let uu___6 = let uu___7 = cb init in - (FStar_Extraction_Krml.ManuallyManaged, uu___7, - (FStar_Extraction_Krml.EConstant - (FStar_Extraction_Krml.UInt32, "1"))) in - FStar_Extraction_Krml.EBufCreate uu___6 - | FStar_Extraction_ML_Syntax.MLE_App + (FStarC_Extraction_Krml.ManuallyManaged, uu___7, + (FStarC_Extraction_Krml.EConstant + (FStarC_Extraction_Krml.UInt32, "1"))) in + FStarC_Extraction_Krml.EBufCreate uu___6 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, x::_w::[]) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Box.free" -> - let uu___6 = cb x in FStar_Extraction_Krml.EBufFree uu___6 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___6 = cb x in FStarC_Extraction_Krml.EBufFree uu___6 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, e2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___6; - FStar_Extraction_ML_Syntax.loc = uu___7;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___6; + FStarC_Extraction_ML_Syntax.loc = uu___7;_}, _v::[]); - FStar_Extraction_ML_Syntax.mlty = uu___8; - FStar_Extraction_ML_Syntax.loc = uu___9;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___8; + FStarC_Extraction_ML_Syntax.loc = uu___9;_}, _perm::[]) when - (let uu___10 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___10 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___10 = "Pulse.Lib.Reference.op_Bang") || - (let uu___10 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___10 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___10 = "Pulse.Lib.Box.op_Bang") -> let uu___10 = let uu___11 = cb e2 in (uu___11, zero_for_deref) in - FStar_Extraction_Krml.EBufRead uu___10 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufRead uu___10 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, e2::_v::_perm::[]) when - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Reference.op_Bang") || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Box.op_Bang") -> let uu___6 = let uu___7 = cb e2 in (uu___7, zero_for_deref) in - FStar_Extraction_Krml.EBufRead uu___6 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufRead uu___6 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, e11::[]); - FStar_Extraction_ML_Syntax.mlty = uu___6; - FStar_Extraction_ML_Syntax.loc = uu___7;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___6; + FStarC_Extraction_ML_Syntax.loc = uu___7;_}, e2::[]); - FStar_Extraction_ML_Syntax.mlty = uu___8; - FStar_Extraction_ML_Syntax.loc = uu___9;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___8; + FStarC_Extraction_ML_Syntax.loc = uu___9;_}, _e3::[]) when - (let uu___10 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___10 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___10 = "Pulse.Lib.Reference.op_Colon_Equals") || - (let uu___10 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___10 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___10 = "Pulse.Lib.Box.op_Colon_Equals") -> let uu___10 = let uu___11 = cb e11 in let uu___12 = cb e2 in (uu___11, zero_for_deref, uu___12) in - FStar_Extraction_Krml.EBufWrite uu___10 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufWrite uu___10 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, e11::e2::_e3::[]) when - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Reference.op_Colon_Equals") || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Box.op_Colon_Equals") -> let uu___6 = let uu___7 = cb e11 in let uu___8 = cb e2 in (uu___7, zero_for_deref, uu___8) in - FStar_Extraction_Krml.EBufWrite uu___6 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufWrite uu___6 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, x::n::[]) when - let uu___3 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___3 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___3 = "Pulse.Lib.Array.Core.alloc" -> let uu___3 = let uu___4 = cb x in let uu___5 = cb n in - (FStar_Extraction_Krml.ManuallyManaged, uu___4, uu___5) in - FStar_Extraction_Krml.EBufCreate uu___3 - | FStar_Extraction_ML_Syntax.MLE_App + (FStarC_Extraction_Krml.ManuallyManaged, uu___4, uu___5) in + FStarC_Extraction_Krml.EBufCreate uu___3 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, x::n::[]) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Array.Core.alloc" -> let uu___6 = let uu___7 = cb x in let uu___8 = cb n in - (FStar_Extraction_Krml.ManuallyManaged, uu___7, uu___8) in - FStar_Extraction_Krml.EBufCreate uu___6 - | FStar_Extraction_ML_Syntax.MLE_App + (FStarC_Extraction_Krml.ManuallyManaged, uu___7, uu___8) in + FStarC_Extraction_Krml.EBufCreate uu___6 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, e2::i::_p::_w::[]) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Array.Core.op_Array_Access" -> let uu___6 = let uu___7 = cb e2 in let uu___8 = cb i in (uu___7, uu___8) in - FStar_Extraction_Krml.EBufRead uu___6 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufRead uu___6 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, e2::i::v::_w::[]) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Array.Core.op_Array_Assignment" -> let uu___6 = let uu___7 = cb e2 in let uu___8 = cb i in let uu___9 = cb v in (uu___7, uu___8, uu___9) in - FStar_Extraction_Krml.EBufWrite uu___6 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufWrite uu___6 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, e2::i::uu___6) when - let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Array.Core.pts_to_range_index" -> let uu___7 = let uu___8 = cb e2 in let uu___9 = cb i in (uu___8, uu___9) in - FStar_Extraction_Krml.EBufRead uu___7 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufRead uu___7 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, e2::i::v::uu___6) when - let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Array.Core.pts_to_range_upd" -> let uu___7 = let uu___8 = cb e2 in let uu___9 = cb i in let uu___10 = cb v in (uu___8, uu___9, uu___10) in - FStar_Extraction_Krml.EBufWrite uu___7 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufWrite uu___7 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, x::_w::[]) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Array.Core.free" -> - let uu___6 = cb x in FStar_Extraction_Krml.EBufFree uu___6 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___6 = cb x in FStarC_Extraction_Krml.EBufFree uu___6 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, e2::i::_p::_w::[]) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.ArrayPtr.op_Array_Access" -> let uu___6 = - let uu___7 = FStar_Extraction_Krml.translate_expr env e2 in - let uu___8 = FStar_Extraction_Krml.translate_expr env i in + let uu___7 = FStarC_Extraction_Krml.translate_expr env e2 in + let uu___8 = FStarC_Extraction_Krml.translate_expr env i in (uu___7, uu___8) in - FStar_Extraction_Krml.EBufRead uu___6 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufRead uu___6 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, x::_p::_w::[]) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.ArrayPtr.from_array" -> - FStar_Extraction_Krml.translate_expr env x - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.translate_expr env x + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, a::_p::_w::i::[]) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.ArrayPtr.split" -> let uu___6 = - let uu___7 = FStar_Extraction_Krml.translate_expr env a in - let uu___8 = FStar_Extraction_Krml.translate_expr env i in + let uu___7 = FStarC_Extraction_Krml.translate_expr env a in + let uu___8 = FStarC_Extraction_Krml.translate_expr env i in (uu___7, uu___8) in - FStar_Extraction_Krml.EBufSub uu___6 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufSub uu___6 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, e2::i::v::uu___6) when - let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.ArrayPtr.op_Array_Assignment" -> let uu___7 = - let uu___8 = FStar_Extraction_Krml.translate_expr env e2 in - let uu___9 = FStar_Extraction_Krml.translate_expr env i in - let uu___10 = FStar_Extraction_Krml.translate_expr env v in + let uu___8 = FStarC_Extraction_Krml.translate_expr env e2 in + let uu___9 = FStarC_Extraction_Krml.translate_expr env i in + let uu___10 = FStarC_Extraction_Krml.translate_expr env v in (uu___8, uu___9, uu___10) in - FStar_Extraction_Krml.EBufWrite uu___7 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufWrite uu___7 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::e11::e2::e3::e4::e5::uu___7::uu___8::[]) when - let uu___9 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___9 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___9 = "Pulse.Lib.ArrayPtr.memcpy" -> let uu___9 = - let uu___10 = FStar_Extraction_Krml.translate_expr env e11 in - let uu___11 = FStar_Extraction_Krml.translate_expr env e2 in - let uu___12 = FStar_Extraction_Krml.translate_expr env e3 in - let uu___13 = FStar_Extraction_Krml.translate_expr env e4 in - let uu___14 = FStar_Extraction_Krml.translate_expr env e5 in + let uu___10 = FStarC_Extraction_Krml.translate_expr env e11 in + let uu___11 = FStarC_Extraction_Krml.translate_expr env e2 in + let uu___12 = FStarC_Extraction_Krml.translate_expr env e3 in + let uu___13 = FStarC_Extraction_Krml.translate_expr env e4 in + let uu___14 = FStarC_Extraction_Krml.translate_expr env e5 in (uu___10, uu___11, uu___12, uu___13, uu___14) in - FStar_Extraction_Krml.EBufBlit uu___9 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufBlit uu___9 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, { - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Fun (uu___3, test); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}::{ - FStar_Extraction_ML_Syntax.expr + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Fun (uu___3, test); + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}::{ + FStarC_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Fun + FStarC_Extraction_ML_Syntax.MLE_Fun (uu___6, body); - FStar_Extraction_ML_Syntax.mlty + FStarC_Extraction_ML_Syntax.mlty = uu___7; - FStar_Extraction_ML_Syntax.loc + FStarC_Extraction_ML_Syntax.loc = uu___8;_}::[]) when - let uu___9 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___9 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___9 = "Pulse.Lib.Dv.while_" -> let uu___9 = let uu___10 = cb test in let uu___11 = cb body in (uu___10, uu___11) in - FStar_Extraction_Krml.EWhile uu___9 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EWhile uu___9 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::[]) when - let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Dv.unreachable" -> - let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in - FStar_Extraction_Krml.EAbortS uu___7 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in + FStarC_Extraction_Krml.EAbortS uu___7 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, b::[]) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.Lib.Box.box_to_ref" -> cb b - | FStar_Extraction_ML_Syntax.MLE_App + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, _post::body::[]) when - let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "DPE.run_stt" -> cb body | uu___1 -> - FStar_Compiler_Effect.raise - FStar_Extraction_Krml.NotSupportedByKrmlExtension) + FStarC_Compiler_Effect.raise + FStarC_Extraction_Krml.NotSupportedByKrmlExtension) let (uu___0 : unit) = - FStar_Extraction_Krml.register_pre_translate_type_without_decay + FStarC_Extraction_Krml.register_pre_translate_type_without_decay pulse_translate_type_without_decay; - FStar_Extraction_Krml.register_pre_translate_expr pulse_translate_expr \ No newline at end of file + FStarC_Extraction_Krml.register_pre_translate_expr pulse_translate_expr \ No newline at end of file diff --git a/src/ocaml/plugin/generated/ExtractPulseC.ml b/src/ocaml/plugin/generated/ExtractPulseC.ml index 54f1e30df..550568fd5 100644 --- a/src/ocaml/plugin/generated/ExtractPulseC.ml +++ b/src/ocaml/plugin/generated/ExtractPulseC.ml @@ -11,37 +11,37 @@ let opt_bind : | FStar_Pervasives_Native.Some x -> k x | FStar_Pervasives_Native.None -> FStar_Pervasives_Native.None let (char_of_typechar : - FStar_Extraction_ML_Syntax.mlty -> - FStar_BaseTypes.char FStar_Pervasives_Native.option) + FStarC_Extraction_ML_Syntax.mlty -> + FStarC_BaseTypes.char FStar_Pervasives_Native.option) = fun t -> match t with - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) -> - let p1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) -> + let p1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in if p1 = "Pulse.C.Typestring.cdot" then FStar_Pervasives_Native.Some 46 else - if FStar_Compiler_Util.starts_with p1 "Pulse.C.Typestring.c" + if FStarC_Compiler_Util.starts_with p1 "Pulse.C.Typestring.c" then (let uu___1 = - FStar_Compiler_String.get p1 + FStarC_Compiler_String.get p1 (FStar_String.strlen "Pulse.C.Typestring.c") in FStar_Pervasives_Native.Some uu___1) else FStar_Pervasives_Native.None | uu___ -> FStar_Pervasives_Native.None let (string_of_typestring : - FStar_Extraction_ML_Syntax.mlty -> + FStarC_Extraction_ML_Syntax.mlty -> Prims.string FStar_Pervasives_Native.option) = fun t -> let rec go t1 = match t1 with - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Pulse.C.Typestring.string_nil" -> FStar_Pervasives_Native.Some [] - | FStar_Extraction_ML_Syntax.MLTY_Named (c::t2::[], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named (c::t2::[], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Pulse.C.Typestring.string_cons" -> let uu___ = char_of_typechar c in opt_bind uu___ @@ -51,7 +51,7 @@ let (string_of_typestring : (fun s' -> let uu___2 = let uu___3 = - FStar_Compiler_String.make Prims.int_one c' in + FStarC_Compiler_String.make Prims.int_one c' in uu___3 :: s' in FStar_Pervasives_Native.Some uu___2)) | uu___ -> FStar_Pervasives_Native.None in @@ -59,7 +59,7 @@ let (string_of_typestring : opt_bind uu___ (fun ss -> FStar_Pervasives_Native.Some (FStar_String.concat "" ss)) let (lident_of_string : - Prims.string -> FStar_Extraction_Krml.lident FStar_Pervasives_Native.option) + Prims.string -> FStarC_Extraction_Krml.lident FStar_Pervasives_Native.option) = fun s -> let path = FStar_String.split [46] s in @@ -76,23 +76,23 @@ let (lident_of_string : FStar_Pervasives_Native.Some ((s1 :: names), name)) in go path let (lident_of_typestring : - FStar_Extraction_ML_Syntax.mlty -> - FStar_Extraction_Krml.lident FStar_Pervasives_Native.option) + FStarC_Extraction_ML_Syntax.mlty -> + FStarC_Extraction_Krml.lident FStar_Pervasives_Native.option) = fun t -> let uu___ = string_of_typestring t in opt_bind uu___ lident_of_string let (int_of_typenat : - FStar_Extraction_ML_Syntax.mlty -> Prims.int FStar_Pervasives_Native.option) + FStarC_Extraction_ML_Syntax.mlty -> Prims.int FStar_Pervasives_Native.option) = fun t -> let rec go t1 = match t1 with - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Pulse.C.Typenat.z" -> FStar_Pervasives_Native.Some Prims.int_zero - | FStar_Extraction_ML_Syntax.MLTY_Named (t2::[], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named (t2::[], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Pulse.C.Typenat.s" -> let uu___ = go t2 in opt_bind uu___ @@ -101,271 +101,271 @@ let (int_of_typenat : go t let (my_types_without_decay : unit -> unit) = fun uu___ -> - FStar_Extraction_Krml.register_pre_translate_type_without_decay + FStarC_Extraction_Krml.register_pre_translate_type_without_decay (fun env -> fun t -> match t with - | FStar_Extraction_ML_Syntax.MLTY_Named + | FStarC_Extraction_ML_Syntax.MLTY_Named (tag::uu___1::uu___2::uu___3::[], p) when - (let uu___4 = FStar_Extraction_ML_Syntax.string_of_mlpath p in - FStar_Compiler_Util.starts_with uu___4 + (let uu___4 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in + FStarC_Compiler_Util.starts_with uu___4 "Pulse.C.Types.Struct.struct_t0") || - (let uu___4 = FStar_Extraction_ML_Syntax.string_of_mlpath p in - FStar_Compiler_Util.starts_with uu___4 + (let uu___4 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in + FStarC_Compiler_Util.starts_with uu___4 "Pulse.C.Types.Union.union_t0") -> let uu___4 = let uu___5 = lident_of_typestring tag in - FStar_Compiler_Util.must uu___5 in - FStar_Extraction_Krml.TQualified uu___4 - | FStar_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when - let uu___1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + FStarC_Compiler_Util.must uu___5 in + FStarC_Extraction_Krml.TQualified uu___4 + | FStarC_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when + let uu___1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___1 = "Pulse.C.Types.Array.array_ptr_gen" -> let uu___1 = - FStar_Extraction_Krml.translate_type_without_decay env arg in - FStar_Extraction_Krml.TBuf uu___1 - | FStar_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when - let uu___1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + FStarC_Extraction_Krml.translate_type_without_decay env arg in + FStarC_Extraction_Krml.TBuf uu___1 + | FStarC_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when + let uu___1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___1 = "Pulse.C.Types.Base.ptr_gen" -> let uu___1 = - FStar_Extraction_Krml.translate_type_without_decay env arg in - FStar_Extraction_Krml.TBuf uu___1 - | FStar_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when - let uu___1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + FStarC_Extraction_Krml.translate_type_without_decay env arg in + FStarC_Extraction_Krml.TBuf uu___1 + | FStarC_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when + let uu___1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___1 = "Pulse.C.Types.Scalar.scalar_t" -> - FStar_Extraction_Krml.translate_type_without_decay env arg - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - (let uu___1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + FStarC_Extraction_Krml.translate_type_without_decay env arg + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + (let uu___1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___1 = "Pulse.C.Types.Base.void_ptr") || - (let uu___1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___1 = "Pulse.C.Types.Array.array_void_ptr") -> - ((let uu___2 = FStar_Extraction_ML_Syntax.string_of_mlpath p in - FStar_Compiler_Util.print1 "Converting %s to TAny" uu___2); - FStar_Extraction_Krml.TAny) - | FStar_Extraction_ML_Syntax.MLTY_Named (t1::n::s::[], p) when - let uu___1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + ((let uu___2 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in + FStarC_Compiler_Util.print1 "Converting %s to TAny" uu___2); + FStarC_Extraction_Krml.TAny) + | FStarC_Extraction_ML_Syntax.MLTY_Named (t1::n::s::[], p) when + let uu___1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___1 = "Pulse.C.Types.Array.base_array_t" -> let uu___1 = let uu___2 = - FStar_Extraction_Krml.translate_type_without_decay env t1 in + FStarC_Extraction_Krml.translate_type_without_decay env t1 in let uu___3 = let uu___4 = let uu___5 = let uu___6 = int_of_typenat n in - FStar_Compiler_Util.must uu___6 in - FStar_Compiler_Util.string_of_int uu___5 in - (FStar_Extraction_Krml.UInt32, uu___4) in + FStarC_Compiler_Util.must uu___6 in + FStarC_Compiler_Util.string_of_int uu___5 in + (FStarC_Extraction_Krml.UInt32, uu___4) in (uu___2, uu___3) in - FStar_Extraction_Krml.TArray uu___1 + FStarC_Extraction_Krml.TArray uu___1 | uu___1 -> - FStar_Compiler_Effect.raise - FStar_Extraction_Krml.NotSupportedByKrmlExtension) + FStarC_Compiler_Effect.raise + FStarC_Extraction_Krml.NotSupportedByKrmlExtension) let (my_types : unit -> unit) = fun uu___ -> - FStar_Extraction_Krml.register_pre_translate_type + FStarC_Extraction_Krml.register_pre_translate_type (fun env -> fun t -> match t with - | FStar_Extraction_ML_Syntax.MLTY_Named + | FStarC_Extraction_ML_Syntax.MLTY_Named (t1::uu___1::uu___2::[], p) when - let uu___3 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___3 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___3 = "Pulse.C.Types.Array.base_array_t" -> let uu___3 = - FStar_Extraction_Krml.translate_type_without_decay env t1 in - FStar_Extraction_Krml.TBuf uu___3 + FStarC_Extraction_Krml.translate_type_without_decay env t1 in + FStarC_Extraction_Krml.TBuf uu___3 | uu___1 -> - FStar_Compiler_Effect.raise - FStar_Extraction_Krml.NotSupportedByKrmlExtension) + FStarC_Compiler_Effect.raise + FStarC_Extraction_Krml.NotSupportedByKrmlExtension) let (my_exprs : unit -> unit) = fun uu___ -> - FStar_Extraction_Krml.register_pre_translate_expr + FStarC_Extraction_Krml.register_pre_translate_expr (fun env -> fun e -> - match e.FStar_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_App + match e.FStarC_Extraction_ML_Syntax.expr with + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::[]) when - (let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.C.Types.Base.alloc") || false -> - FStar_Extraction_Krml.EBufCreateNoInit - (FStar_Extraction_Krml.ManuallyManaged, - (FStar_Extraction_Krml.EConstant - (FStar_Extraction_Krml.UInt32, "1"))) - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufCreateNoInit + (FStarC_Extraction_Krml.ManuallyManaged, + (FStarC_Extraction_Krml.EConstant + (FStarC_Extraction_Krml.UInt32, "1"))) + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::sz::[]) when - (let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.C.Types.Array.array_ptr_alloc") || false -> let uu___7 = - let uu___8 = FStar_Extraction_Krml.translate_expr env sz in - (FStar_Extraction_Krml.ManuallyManaged, uu___8) in - FStar_Extraction_Krml.EBufCreateNoInit uu___7 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___8 = FStarC_Extraction_Krml.translate_expr env sz in + (FStarC_Extraction_Krml.ManuallyManaged, uu___8) in + FStarC_Extraction_Krml.EBufCreateNoInit uu___7 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::uu___7::e2::uu___8::[]) when - (let uu___9 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___9 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___9 = "Pulse.C.Types.Array.array_ref_free") || false -> - let uu___9 = FStar_Extraction_Krml.translate_expr env e2 in - FStar_Extraction_Krml.EBufFree uu___9 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___9 = FStarC_Extraction_Krml.translate_expr env e2 in + FStarC_Extraction_Krml.EBufFree uu___9 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::uu___7::e1::[]) when - let uu___8 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___8 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___8 = "Pulse.C.Types.Base.free" -> - let uu___8 = FStar_Extraction_Krml.translate_expr env e1 in - FStar_Extraction_Krml.EBufFree uu___8 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___8 = FStarC_Extraction_Krml.translate_expr env e1 in + FStarC_Extraction_Krml.EBufFree uu___8 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, t::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, uu___5::uu___6::e1::uu___7::[]) when - let uu___8 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___8 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___8 = "Pulse.C.Types.Array.array_ptr_is_null" -> - let uu___8 = FStar_Extraction_Krml.translate_type env t in - let uu___9 = FStar_Extraction_Krml.translate_expr env e1 in - FStar_Extraction_Krml.generate_is_null uu___8 uu___9 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___8 = FStarC_Extraction_Krml.translate_type env t in + let uu___9 = FStarC_Extraction_Krml.translate_expr env e1 in + FStarC_Extraction_Krml.generate_is_null uu___8 uu___9 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, t::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, uu___5::uu___6::e1::[]) when - let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.C.Types.Base.is_null" -> - let uu___7 = FStar_Extraction_Krml.translate_type env t in - let uu___8 = FStar_Extraction_Krml.translate_expr env e1 in - FStar_Extraction_Krml.generate_is_null uu___7 uu___8 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___7 = FStarC_Extraction_Krml.translate_type env t in + let uu___8 = FStarC_Extraction_Krml.translate_expr env e1 in + FStarC_Extraction_Krml.generate_is_null uu___7 uu___8 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, t::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, uu___5) when - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.C.Types.Base.null_gen") || - (let uu___6 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___6 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___6 = "Pulse.C.Types.Array.null_array_ptr") -> - let uu___6 = FStar_Extraction_Krml.translate_type env t in - FStar_Extraction_Krml.EBufNull uu___6 - | FStar_Extraction_ML_Syntax.MLE_TApp + let uu___6 = FStarC_Extraction_Krml.translate_type env t in + FStarC_Extraction_Krml.EBufNull uu___6 + | FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, t::[]) when - let uu___3 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___3 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___3 = "Pulse.C.Types.Base.null_gen" -> - let uu___3 = FStar_Extraction_Krml.translate_type env t in - FStar_Extraction_Krml.EBufNull uu___3 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___3 = FStarC_Extraction_Krml.translate_type env t in + FStarC_Extraction_Krml.EBufNull uu___3 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, { - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Const - (FStar_Extraction_ML_Syntax.MLC_String struct_name); - FStar_Extraction_ML_Syntax.mlty = uu___6; - FStar_Extraction_ML_Syntax.loc = uu___7;_}::uu___8::uu___9::r:: + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Const + (FStarC_Extraction_ML_Syntax.MLC_String struct_name); + FStarC_Extraction_ML_Syntax.mlty = uu___6; + FStarC_Extraction_ML_Syntax.loc = uu___7;_}::uu___8::uu___9::r:: { - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Const - (FStar_Extraction_ML_Syntax.MLC_String field_name); - FStar_Extraction_ML_Syntax.mlty = uu___10; - FStar_Extraction_ML_Syntax.loc = uu___11;_}::uu___12::[]) + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Const + (FStarC_Extraction_ML_Syntax.MLC_String field_name); + FStarC_Extraction_ML_Syntax.mlty = uu___10; + FStarC_Extraction_ML_Syntax.loc = uu___11;_}::uu___12::[]) when - ((let uu___13 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + ((let uu___13 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___13 = "Pulse.C.Types.Struct.struct_field0") || (let uu___13 = - FStar_Extraction_ML_Syntax.string_of_mlpath p in + FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___13 = "Pulse.C.Types.Union.union_field0")) || - (let uu___13 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___13 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___13 = "Pulse.C.Types.Union.union_switch_field0") -> let uu___13 = @@ -373,272 +373,272 @@ let (my_exprs : unit -> unit) = let uu___15 = let uu___16 = let uu___17 = lident_of_string struct_name in - FStar_Compiler_Util.must uu___17 in - FStar_Extraction_Krml.TQualified uu___16 in + FStarC_Compiler_Util.must uu___17 in + FStarC_Extraction_Krml.TQualified uu___16 in let uu___16 = let uu___17 = let uu___18 = - FStar_Extraction_Krml.translate_expr env r in + FStarC_Extraction_Krml.translate_expr env r in (uu___18, - (FStar_Extraction_Krml.EQualified + (FStarC_Extraction_Krml.EQualified (["C"], "_zero_for_deref"))) in - FStar_Extraction_Krml.EBufRead uu___17 in + FStarC_Extraction_Krml.EBufRead uu___17 in (uu___15, uu___16, field_name) in - FStar_Extraction_Krml.EField uu___14 in - FStar_Extraction_Krml.EAddrOf uu___13 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EField uu___14 in + FStarC_Extraction_Krml.EAddrOf uu___13 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, t::uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::uu___7::r::{ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Const - (FStar_Extraction_ML_Syntax.MLC_String + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Const + (FStarC_Extraction_ML_Syntax.MLC_String field_name); - FStar_Extraction_ML_Syntax.mlty = uu___8; - FStar_Extraction_ML_Syntax.loc = uu___9;_}::uu___10::[]) + FStarC_Extraction_ML_Syntax.mlty = uu___8; + FStarC_Extraction_ML_Syntax.loc = uu___9;_}::uu___10::[]) when - let uu___11 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___11 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___11 = "Pulse.C.Types.UserStruct.struct_field0" -> let uu___11 = let uu___12 = - let uu___13 = FStar_Extraction_Krml.translate_type env t in + let uu___13 = FStarC_Extraction_Krml.translate_type env t in let uu___14 = let uu___15 = let uu___16 = - FStar_Extraction_Krml.translate_expr env r in + FStarC_Extraction_Krml.translate_expr env r in (uu___16, - (FStar_Extraction_Krml.EQualified + (FStarC_Extraction_Krml.EQualified (["C"], "_zero_for_deref"))) in - FStar_Extraction_Krml.EBufRead uu___15 in + FStarC_Extraction_Krml.EBufRead uu___15 in (uu___13, uu___14, field_name) in - FStar_Extraction_Krml.EField uu___12 in - FStar_Extraction_Krml.EAddrOf uu___11 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EField uu___12 in + FStarC_Extraction_Krml.EAddrOf uu___11 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::uu___7::r::[]) when - let uu___8 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___8 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___8 = "Pulse.C.Types.Scalar.read0" -> let uu___8 = - let uu___9 = FStar_Extraction_Krml.translate_expr env r in + let uu___9 = FStarC_Extraction_Krml.translate_expr env r in (uu___9, - (FStar_Extraction_Krml.EQualified + (FStarC_Extraction_Krml.EQualified (["C"], "_zero_for_deref"))) in - FStar_Extraction_Krml.EBufRead uu___8 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufRead uu___8 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::r::x::[]) when - let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.C.Types.Scalar.write" -> let uu___7 = let uu___8 = let uu___9 = - let uu___10 = FStar_Extraction_Krml.translate_expr env r in + let uu___10 = FStarC_Extraction_Krml.translate_expr env r in (uu___10, - (FStar_Extraction_Krml.EQualified + (FStarC_Extraction_Krml.EQualified (["C"], "_zero_for_deref"))) in - FStar_Extraction_Krml.EBufRead uu___9 in - let uu___9 = FStar_Extraction_Krml.translate_expr env x in + FStarC_Extraction_Krml.EBufRead uu___9 in + let uu___9 = FStarC_Extraction_Krml.translate_expr env x in (uu___8, uu___9) in - FStar_Extraction_Krml.EAssign uu___7 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EAssign uu___7 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::uu___7::uu___8::uu___9::src::dst::[]) when - let uu___10 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___10 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___10 = "Pulse.C.Types.Base.copy" -> let uu___10 = let uu___11 = let uu___12 = let uu___13 = - FStar_Extraction_Krml.translate_expr env dst in + FStarC_Extraction_Krml.translate_expr env dst in (uu___13, - (FStar_Extraction_Krml.EQualified + (FStarC_Extraction_Krml.EQualified (["C"], "_zero_for_deref"))) in - FStar_Extraction_Krml.EBufRead uu___12 in + FStarC_Extraction_Krml.EBufRead uu___12 in let uu___12 = let uu___13 = let uu___14 = - FStar_Extraction_Krml.translate_expr env src in + FStarC_Extraction_Krml.translate_expr env src in (uu___14, - (FStar_Extraction_Krml.EQualified + (FStarC_Extraction_Krml.EQualified (["C"], "_zero_for_deref"))) in - FStar_Extraction_Krml.EBufRead uu___13 in + FStarC_Extraction_Krml.EBufRead uu___13 in (uu___11, uu___12) in - FStar_Extraction_Krml.EAssign uu___10 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EAssign uu___10 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::uu___7::x::[]) when - let uu___8 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___8 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___8 = "Pulse.C.Types.Base.void_ptr_of_ptr" -> let uu___8 = - let uu___9 = FStar_Extraction_Krml.translate_expr env x in - (uu___9, FStar_Extraction_Krml.TAny) in - FStar_Extraction_Krml.ECast uu___8 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___9 = FStarC_Extraction_Krml.translate_expr env x in + (uu___9, FStarC_Extraction_Krml.TAny) in + FStarC_Extraction_Krml.ECast uu___8 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, t::[]); - FStar_Extraction_ML_Syntax.mlty = uu___3; - FStar_Extraction_ML_Syntax.loc = uu___4;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___3; + FStarC_Extraction_ML_Syntax.loc = uu___4;_}, uu___5::uu___6::x::[]) when - let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.C.Types.Base.ptr_of_void_ptr" -> let uu___7 = - let uu___8 = FStar_Extraction_Krml.translate_expr env x in + let uu___8 = FStarC_Extraction_Krml.translate_expr env x in let uu___9 = - let uu___10 = FStar_Extraction_Krml.translate_type env t in - FStar_Extraction_Krml.TBuf uu___10 in + let uu___10 = FStarC_Extraction_Krml.translate_type env t in + FStarC_Extraction_Krml.TBuf uu___10 in (uu___8, uu___9) in - FStar_Extraction_Krml.ECast uu___7 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.ECast uu___7 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::uu___7::uu___8::r::[]) when - let uu___9 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___9 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___9 = "Pulse.C.Types.Array.array_ref_of_base" -> let uu___9 = - let uu___10 = FStar_Extraction_Krml.translate_expr env r in + let uu___10 = FStarC_Extraction_Krml.translate_expr env r in (uu___10, - (FStar_Extraction_Krml.EQualified + (FStarC_Extraction_Krml.EQualified (["C"], "_zero_for_deref"))) in - FStar_Extraction_Krml.EBufRead uu___9 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufRead uu___9 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::uu___7::a::uu___8::i::[]) when - (let uu___9 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___9 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___9 = "Pulse.C.Types.Array.array_ref_cell") || - (let uu___9 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___9 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___9 = "Pulse.C.Types.Array.array_ref_split") -> let uu___9 = - let uu___10 = FStar_Extraction_Krml.translate_expr env a in - let uu___11 = FStar_Extraction_Krml.translate_expr env i in + let uu___10 = FStarC_Extraction_Krml.translate_expr env a in + let uu___11 = FStarC_Extraction_Krml.translate_expr env i in (uu___10, uu___11) in - FStar_Extraction_Krml.EBufSub uu___9 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufSub uu___9 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_TApp + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_TApp ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name p; - FStar_Extraction_ML_Syntax.mlty = uu___1; - FStar_Extraction_ML_Syntax.loc = uu___2;_}, + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name p; + FStarC_Extraction_ML_Syntax.mlty = uu___1; + FStarC_Extraction_ML_Syntax.loc = uu___2;_}, uu___3); - FStar_Extraction_ML_Syntax.mlty = uu___4; - FStar_Extraction_ML_Syntax.loc = uu___5;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___4; + FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6::uu___7::uu___8::uu___9::e1::uu___10::e2::e3::uu___11::e4::e5::[]) when - let uu___12 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___12 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___12 = "Pulse.C.Types.Array.array_blit_ptr" -> let uu___12 = - let uu___13 = FStar_Extraction_Krml.translate_expr env e1 in - let uu___14 = FStar_Extraction_Krml.translate_expr env e2 in - let uu___15 = FStar_Extraction_Krml.translate_expr env e3 in - let uu___16 = FStar_Extraction_Krml.translate_expr env e4 in - let uu___17 = FStar_Extraction_Krml.translate_expr env e5 in + let uu___13 = FStarC_Extraction_Krml.translate_expr env e1 in + let uu___14 = FStarC_Extraction_Krml.translate_expr env e2 in + let uu___15 = FStarC_Extraction_Krml.translate_expr env e3 in + let uu___16 = FStarC_Extraction_Krml.translate_expr env e4 in + let uu___17 = FStarC_Extraction_Krml.translate_expr env e5 in (uu___13, uu___14, uu___15, uu___16, uu___17) in - FStar_Extraction_Krml.EBufBlit uu___12 + FStarC_Extraction_Krml.EBufBlit uu___12 | uu___1 -> - FStar_Compiler_Effect.raise - FStar_Extraction_Krml.NotSupportedByKrmlExtension) + FStarC_Compiler_Effect.raise + FStarC_Extraction_Krml.NotSupportedByKrmlExtension) let (parse_steel_c_fields : - FStar_Extraction_Krml.env -> - FStar_Extraction_ML_Syntax.mlty -> - (Prims.string * FStar_Extraction_Krml.typ) Prims.list + FStarC_Extraction_Krml.env -> + FStarC_Extraction_ML_Syntax.mlty -> + (Prims.string * FStarC_Extraction_Krml.typ) Prims.list FStar_Pervasives_Native.option) = fun env -> fun fields -> let rec go fields1 = match fields1 with - | FStar_Extraction_ML_Syntax.MLTY_Named ([], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + | FStarC_Extraction_ML_Syntax.MLTY_Named ([], p) when + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Pulse.C.Types.Fields.field_t_nil" -> FStar_Pervasives_Native.Some [] - | FStar_Extraction_ML_Syntax.MLTY_Named (field::t::fields2::[], p) + | FStarC_Extraction_ML_Syntax.MLTY_Named (field::t::fields2::[], p) when - let uu___ = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___ = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___ = "Pulse.C.Types.Fields.field_t_cons" -> let uu___ = string_of_typestring field in opt_bind uu___ @@ -656,194 +656,194 @@ let (parse_steel_c_fields : match uu___ with | FStar_Pervasives_Native.None -> ((let uu___2 = - FStar_Extraction_ML_Code.string_of_mlty ([], "") fields in - FStar_Compiler_Util.print1 "Failed to parse fields from %s.\n" + FStarC_Extraction_ML_Code.string_of_mlty ([], "") fields in + FStarC_Compiler_Util.print1 "Failed to parse fields from %s.\n" uu___2); FStar_Pervasives_Native.None) | FStar_Pervasives_Native.Some fields1 -> - (FStar_Compiler_Util.print_endline "Got fields:"; - FStar_Compiler_List.fold_left + (FStarC_Compiler_Util.print_endline "Got fields:"; + FStarC_Compiler_List.fold_left (fun uu___3 -> fun uu___4 -> match uu___4 with | (field, ty) -> let uu___5 = - FStar_Extraction_ML_Code.string_of_mlty ([], "") ty in - FStar_Compiler_Util.print2 " %s : %s\n" field uu___5) + FStarC_Extraction_ML_Code.string_of_mlty ([], "") ty in + FStarC_Compiler_Util.print2 " %s : %s\n" field uu___5) () fields1; (let uu___3 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___4 -> match uu___4 with | (field, ty) -> ((let uu___6 = - FStar_Extraction_ML_Code.string_of_mlty ([], "") + FStarC_Extraction_ML_Code.string_of_mlty ([], "") ty in - FStar_Compiler_Util.print1 "Translating %s.\n" + FStarC_Compiler_Util.print1 "Translating %s.\n" uu___6); (let uu___6 = - FStar_Extraction_Krml.translate_type_without_decay + FStarC_Extraction_Krml.translate_type_without_decay env ty in (field, uu___6)))) fields1 in FStar_Pervasives_Native.Some uu___3)) let (define_struct_gen : - FStar_Extraction_Krml.env -> + FStarC_Extraction_Krml.env -> (Prims.string Prims.list * Prims.string) -> Prims.string Prims.list -> - FStar_Extraction_ML_Syntax.mlty -> - FStar_Extraction_Krml.decl FStar_Pervasives_Native.option) + FStarC_Extraction_ML_Syntax.mlty -> + FStarC_Extraction_Krml.decl FStar_Pervasives_Native.option) = fun env -> fun p -> fun args -> fun fields -> let env1 = - FStar_Compiler_List.fold_left + FStarC_Compiler_List.fold_left (fun env2 -> - fun name -> FStar_Extraction_Krml.extend_t env2 name) env + fun name -> FStarC_Extraction_Krml.extend_t env2 name) env args in let fields1 = let uu___ = parse_steel_c_fields env1 fields in - FStar_Compiler_Util.must uu___ in + FStarC_Compiler_Util.must uu___ in let uu___ = let uu___1 = let uu___2 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___3 -> match uu___3 with | (field, ty) -> (field, (ty, true))) fields1 in - (p, [], (FStar_Compiler_List.length args), uu___2) in - FStar_Extraction_Krml.DTypeFlat uu___1 in + (p, [], (FStarC_Compiler_List.length args), uu___2) in + FStarC_Extraction_Krml.DTypeFlat uu___1 in FStar_Pervasives_Native.Some uu___ let (define_struct : - FStar_Extraction_Krml.env -> - FStar_Extraction_ML_Syntax.mlty -> - FStar_Extraction_ML_Syntax.mlty -> - FStar_Extraction_Krml.decl FStar_Pervasives_Native.option) + FStarC_Extraction_Krml.env -> + FStarC_Extraction_ML_Syntax.mlty -> + FStarC_Extraction_ML_Syntax.mlty -> + FStarC_Extraction_Krml.decl FStar_Pervasives_Native.option) = fun env -> fun tag -> fun fields -> - FStar_Compiler_Util.print_endline "Parsing struct definition."; + FStarC_Compiler_Util.print_endline "Parsing struct definition."; (let uu___1 = lident_of_typestring tag in match uu___1 with | FStar_Pervasives_Native.None -> ((let uu___3 = - FStar_Extraction_ML_Code.string_of_mlty ([], "") tag in - FStar_Compiler_Util.print1 + FStarC_Extraction_ML_Code.string_of_mlty ([], "") tag in + FStarC_Compiler_Util.print1 "Failed to parse struct tag from %s.\n" uu___3); FStar_Pervasives_Native.None) | FStar_Pervasives_Native.Some p -> define_struct_gen env p [] fields) let (define_union_gen : - FStar_Extraction_Krml.env -> + FStarC_Extraction_Krml.env -> (Prims.string Prims.list * Prims.string) -> Prims.string Prims.list -> - FStar_Extraction_ML_Syntax.mlty -> - FStar_Extraction_Krml.decl FStar_Pervasives_Native.option) + FStarC_Extraction_ML_Syntax.mlty -> + FStarC_Extraction_Krml.decl FStar_Pervasives_Native.option) = fun env -> fun p -> fun args -> fun fields -> let env1 = - FStar_Compiler_List.fold_left + FStarC_Compiler_List.fold_left (fun env2 -> - fun name -> FStar_Extraction_Krml.extend_t env2 name) env + fun name -> FStarC_Extraction_Krml.extend_t env2 name) env args in let fields1 = let uu___ = parse_steel_c_fields env1 fields in - FStar_Compiler_Util.must uu___ in + FStarC_Compiler_Util.must uu___ in FStar_Pervasives_Native.Some - (FStar_Extraction_Krml.DUntaggedUnion - (p, [], (FStar_Compiler_List.length args), fields1)) + (FStarC_Extraction_Krml.DUntaggedUnion + (p, [], (FStarC_Compiler_List.length args), fields1)) let (define_union : - FStar_Extraction_Krml.env -> - FStar_Extraction_ML_Syntax.mlty -> - FStar_Extraction_ML_Syntax.mlty -> - FStar_Extraction_Krml.decl FStar_Pervasives_Native.option) + FStarC_Extraction_Krml.env -> + FStarC_Extraction_ML_Syntax.mlty -> + FStarC_Extraction_ML_Syntax.mlty -> + FStarC_Extraction_Krml.decl FStar_Pervasives_Native.option) = fun env -> fun tag -> fun fields -> - FStar_Compiler_Util.print_endline "Parsing union definition."; + FStarC_Compiler_Util.print_endline "Parsing union definition."; (let uu___1 = lident_of_typestring tag in match uu___1 with | FStar_Pervasives_Native.None -> ((let uu___3 = - FStar_Extraction_ML_Code.string_of_mlty ([], "") tag in - FStar_Compiler_Util.print1 + FStarC_Extraction_ML_Code.string_of_mlty ([], "") tag in + FStarC_Compiler_Util.print1 "Failed to parse union tag from %s.\n" uu___3); FStar_Pervasives_Native.None) | FStar_Pervasives_Native.Some p -> define_union_gen env p [] fields) let (my_type_decls : unit -> unit) = fun uu___ -> - FStar_Extraction_Krml.register_pre_translate_type_decl + FStarC_Extraction_Krml.register_pre_translate_type_decl (fun env -> fun ty -> match ty with - | { FStar_Extraction_ML_Syntax.tydecl_assumed = uu___1; - FStar_Extraction_ML_Syntax.tydecl_name = uu___2; - FStar_Extraction_ML_Syntax.tydecl_ignored = uu___3; - FStar_Extraction_ML_Syntax.tydecl_parameters = uu___4; - FStar_Extraction_ML_Syntax.tydecl_meta = uu___5; - FStar_Extraction_ML_Syntax.tydecl_defn = + | { FStarC_Extraction_ML_Syntax.tydecl_assumed = uu___1; + FStarC_Extraction_ML_Syntax.tydecl_name = uu___2; + FStarC_Extraction_ML_Syntax.tydecl_ignored = uu___3; + FStarC_Extraction_ML_Syntax.tydecl_parameters = uu___4; + FStarC_Extraction_ML_Syntax.tydecl_meta = uu___5; + FStarC_Extraction_ML_Syntax.tydecl_defn = FStar_Pervasives_Native.Some - (FStar_Extraction_ML_Syntax.MLTD_Abbrev - (FStar_Extraction_ML_Syntax.MLTY_Named + (FStarC_Extraction_ML_Syntax.MLTD_Abbrev + (FStarC_Extraction_ML_Syntax.MLTY_Named (tag::fields::uu___6::uu___7::[], p)));_} when - let uu___8 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___8 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___8 = "Pulse.C.Types.Struct.define_struct0" -> define_struct env tag fields - | { FStar_Extraction_ML_Syntax.tydecl_assumed = uu___1; - FStar_Extraction_ML_Syntax.tydecl_name = uu___2; - FStar_Extraction_ML_Syntax.tydecl_ignored = uu___3; - FStar_Extraction_ML_Syntax.tydecl_parameters = uu___4; - FStar_Extraction_ML_Syntax.tydecl_meta = uu___5; - FStar_Extraction_ML_Syntax.tydecl_defn = + | { FStarC_Extraction_ML_Syntax.tydecl_assumed = uu___1; + FStarC_Extraction_ML_Syntax.tydecl_name = uu___2; + FStarC_Extraction_ML_Syntax.tydecl_ignored = uu___3; + FStarC_Extraction_ML_Syntax.tydecl_parameters = uu___4; + FStarC_Extraction_ML_Syntax.tydecl_meta = uu___5; + FStarC_Extraction_ML_Syntax.tydecl_defn = FStar_Pervasives_Native.Some - (FStar_Extraction_ML_Syntax.MLTD_Abbrev - (FStar_Extraction_ML_Syntax.MLTY_Named + (FStarC_Extraction_ML_Syntax.MLTD_Abbrev + (FStarC_Extraction_ML_Syntax.MLTY_Named (tag::fields::uu___6::uu___7::[], p)));_} when - let uu___8 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___8 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___8 = "Pulse.C.Types.Union.define_union0" -> define_union env tag fields - | { FStar_Extraction_ML_Syntax.tydecl_assumed = uu___1; - FStar_Extraction_ML_Syntax.tydecl_name = name; - FStar_Extraction_ML_Syntax.tydecl_ignored = uu___2; - FStar_Extraction_ML_Syntax.tydecl_parameters = args; - FStar_Extraction_ML_Syntax.tydecl_meta = uu___3; - FStar_Extraction_ML_Syntax.tydecl_defn = + | { FStarC_Extraction_ML_Syntax.tydecl_assumed = uu___1; + FStarC_Extraction_ML_Syntax.tydecl_name = name; + FStarC_Extraction_ML_Syntax.tydecl_ignored = uu___2; + FStarC_Extraction_ML_Syntax.tydecl_parameters = args; + FStarC_Extraction_ML_Syntax.tydecl_meta = uu___3; + FStarC_Extraction_ML_Syntax.tydecl_defn = FStar_Pervasives_Native.Some - (FStar_Extraction_ML_Syntax.MLTD_Abbrev - (FStar_Extraction_ML_Syntax.MLTY_Named + (FStarC_Extraction_ML_Syntax.MLTD_Abbrev + (FStarC_Extraction_ML_Syntax.MLTY_Named (uu___4::fields::uu___5::uu___6::[], p)));_} when - let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.C.Types.Struct.struct_t0" -> - let name1 = ((env.FStar_Extraction_Krml.module_name), name) in - let uu___7 = FStar_Extraction_ML_Syntax.ty_param_names args in + let name1 = ((env.FStarC_Extraction_Krml.module_name), name) in + let uu___7 = FStarC_Extraction_ML_Syntax.ty_param_names args in define_struct_gen env name1 uu___7 fields - | { FStar_Extraction_ML_Syntax.tydecl_assumed = uu___1; - FStar_Extraction_ML_Syntax.tydecl_name = name; - FStar_Extraction_ML_Syntax.tydecl_ignored = uu___2; - FStar_Extraction_ML_Syntax.tydecl_parameters = args; - FStar_Extraction_ML_Syntax.tydecl_meta = uu___3; - FStar_Extraction_ML_Syntax.tydecl_defn = + | { FStarC_Extraction_ML_Syntax.tydecl_assumed = uu___1; + FStarC_Extraction_ML_Syntax.tydecl_name = name; + FStarC_Extraction_ML_Syntax.tydecl_ignored = uu___2; + FStarC_Extraction_ML_Syntax.tydecl_parameters = args; + FStarC_Extraction_ML_Syntax.tydecl_meta = uu___3; + FStarC_Extraction_ML_Syntax.tydecl_defn = FStar_Pervasives_Native.Some - (FStar_Extraction_ML_Syntax.MLTD_Abbrev - (FStar_Extraction_ML_Syntax.MLTY_Named + (FStarC_Extraction_ML_Syntax.MLTD_Abbrev + (FStarC_Extraction_ML_Syntax.MLTY_Named (uu___4::fields::uu___5::uu___6::[], p)));_} when - let uu___7 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.C.Types.Union.union_t0" -> - let name1 = ((env.FStar_Extraction_Krml.module_name), name) in - let uu___7 = FStar_Extraction_ML_Syntax.ty_param_names args in + let name1 = ((env.FStarC_Extraction_Krml.module_name), name) in + let uu___7 = FStarC_Extraction_ML_Syntax.ty_param_names args in define_union_gen env name1 uu___7 fields | uu___1 -> - FStar_Compiler_Effect.raise - FStar_Extraction_Krml.NotSupportedByKrmlExtension) + FStarC_Compiler_Effect.raise + FStarC_Extraction_Krml.NotSupportedByKrmlExtension) let (uu___0 : unit) = my_types_without_decay (); my_types (); my_exprs (); my_type_decls () \ No newline at end of file diff --git a/src/ocaml/plugin/generated/PulseSyntaxExtension_ASTBuilder.ml b/src/ocaml/plugin/generated/PulseSyntaxExtension_ASTBuilder.ml index 8c0b631cc..2f4e011ba 100644 --- a/src/ocaml/plugin/generated/PulseSyntaxExtension_ASTBuilder.ml +++ b/src/ocaml/plugin/generated/PulseSyntaxExtension_ASTBuilder.ml @@ -1,25 +1,25 @@ open Prims -let (r_ : FStar_Compiler_Range_Type.range) = - FStar_Compiler_Range_Type.dummyRange -let (pulse_checker_tac : FStar_Ident.lident) = - FStar_Ident.lid_of_path ["Pulse"; "Main"; "check_pulse"] r_ -let (pulse_checker_after_desugar_tac : FStar_Ident.lident) = - FStar_Ident.lid_of_path ["Pulse"; "Main"; "check_pulse_after_desugar"] r_ +let (r_ : FStarC_Compiler_Range_Type.range) = + FStarC_Compiler_Range_Type.dummyRange +let (pulse_checker_tac : FStarC_Ident.lident) = + FStarC_Ident.lid_of_path ["Pulse"; "Main"; "check_pulse"] r_ +let (pulse_checker_after_desugar_tac : FStarC_Ident.lident) = + FStarC_Ident.lid_of_path ["Pulse"; "Main"; "check_pulse_after_desugar"] r_ let (tm : - FStar_Parser_AST.term' -> - FStar_Compiler_Range_Type.range -> FStar_Parser_AST.term) + FStarC_Parser_AST.term' -> + FStarC_Compiler_Range_Type.range -> FStarC_Parser_AST.term) = fun t -> fun r -> { - FStar_Parser_AST.tm = t; - FStar_Parser_AST.range = r; - FStar_Parser_AST.level = FStar_Parser_AST.Un + FStarC_Parser_AST.tm = t; + FStarC_Parser_AST.range = r; + FStarC_Parser_AST.level = FStarC_Parser_AST.Un } let (parse_decl_name : Prims.string -> - FStar_Compiler_Range_Type.range -> - (FStar_Parser_AST_Util.error_message, FStar_Ident.ident) + FStarC_Compiler_Range_Type.range -> + (FStarC_Parser_AST_Util.error_message, FStarC_Ident.ident) FStar_Pervasives.either) = fun contents -> @@ -27,39 +27,39 @@ let (parse_decl_name : let uu___ = PulseSyntaxExtension_Parser.parse_peek_id contents r in match uu___ with | FStar_Pervasives.Inl s -> - let uu___1 = FStar_Ident.id_of_text s in + let uu___1 = FStarC_Ident.id_of_text s in FStar_Pervasives.Inr uu___1 | FStar_Pervasives.Inr (msg, r1) -> FStar_Pervasives.Inl { - FStar_Parser_AST_Util.message = msg; - FStar_Parser_AST_Util.range = r1 + FStarC_Parser_AST_Util.message = msg; + FStarC_Parser_AST_Util.range = r1 } let (i : - Prims.int -> FStar_Compiler_Range_Type.range -> FStar_Parser_AST.term) = + Prims.int -> FStarC_Compiler_Range_Type.range -> FStarC_Parser_AST.term) = fun s -> fun r -> let uu___ = let uu___1 = let uu___2 = - let uu___3 = FStar_Compiler_Util.string_of_int s in + let uu___3 = FStarC_Compiler_Util.string_of_int s in (uu___3, FStar_Pervasives_Native.None) in - FStar_Const.Const_int uu___2 in - FStar_Parser_AST.Const uu___1 in + FStarC_Const.Const_int uu___2 in + FStarC_Parser_AST.Const uu___1 in tm uu___ r let (str : - Prims.string -> FStar_Compiler_Range_Type.range -> FStar_Parser_AST.term) = + Prims.string -> FStarC_Compiler_Range_Type.range -> FStarC_Parser_AST.term) = fun s -> - fun r -> tm (FStar_Parser_AST.Const (FStar_Const.Const_string (s, r))) r + fun r -> tm (FStarC_Parser_AST.Const (FStarC_Const.Const_string (s, r))) r let (lid_as_term : - FStar_Ident.lident -> - FStar_Compiler_Range_Type.range -> FStar_Parser_AST.term) + FStarC_Ident.lident -> + FStarC_Compiler_Range_Type.range -> FStarC_Parser_AST.term) = - fun ns -> fun r -> let uu___ = FStar_Ident.string_of_lid ns in str uu___ r + fun ns -> fun r -> let uu___ = FStarC_Ident.string_of_lid ns in str uu___ r let (encode_open_namespaces_and_abbreviations : - FStar_Parser_AST_Util.open_namespaces_and_abbreviations -> - FStar_Compiler_Range_Type.range -> - (FStar_Parser_AST.term * FStar_Parser_AST.term)) + FStarC_Parser_AST_Util.open_namespaces_and_abbreviations -> + FStarC_Compiler_Range_Type.range -> + (FStarC_Parser_AST.term * FStarC_Parser_AST.term)) = fun ctx -> fun r -> @@ -69,44 +69,44 @@ let (encode_open_namespaces_and_abbreviations : let namespaces = let uu___ = let uu___1 = - FStar_Compiler_List.map lid_as_term1 - ctx.FStar_Parser_AST_Util.open_namespaces in - FStar_Parser_AST.ListLiteral uu___1 in + FStarC_Compiler_List.map lid_as_term1 + ctx.FStarC_Parser_AST_Util.open_namespaces in + FStarC_Parser_AST.ListLiteral uu___1 in tm1 uu___ in let abbrevs = let uu___ = let uu___1 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___2 -> match uu___2 with | (a, m) -> let a1 = - let uu___3 = FStar_Ident.string_of_id a in str1 uu___3 in + let uu___3 = FStarC_Ident.string_of_id a in str1 uu___3 in let m1 = lid_as_term1 m in - FStar_Parser_AST.mkTuple [a1; m1] r) - ctx.FStar_Parser_AST_Util.module_abbreviations in - FStar_Parser_AST.ListLiteral uu___1 in + FStarC_Parser_AST.mkTuple [a1; m1] r) + ctx.FStarC_Parser_AST_Util.module_abbreviations in + FStarC_Parser_AST.ListLiteral uu___1 in tm1 uu___ in (namespaces, abbrevs) let (encode_range : - FStar_Compiler_Range_Type.range -> - (FStar_Parser_AST.term * FStar_Parser_AST.term * FStar_Parser_AST.term)) + FStarC_Compiler_Range_Type.range -> + (FStarC_Parser_AST.term * FStarC_Parser_AST.term * FStarC_Parser_AST.term)) = fun r -> let line = - let uu___ = FStar_Compiler_Range_Ops.start_of_range r in - FStar_Compiler_Range_Ops.line_of_pos uu___ in + let uu___ = FStarC_Compiler_Range_Ops.start_of_range r in + FStarC_Compiler_Range_Ops.line_of_pos uu___ in let col = - let uu___ = FStar_Compiler_Range_Ops.start_of_range r in - FStar_Compiler_Range_Ops.col_of_pos uu___ in + let uu___ = FStarC_Compiler_Range_Ops.start_of_range r in + FStarC_Compiler_Range_Ops.col_of_pos uu___ in let uu___ = - let uu___1 = FStar_Compiler_Range_Ops.file_of_range r in str uu___1 r in + let uu___1 = FStarC_Compiler_Range_Ops.file_of_range r in str uu___1 r in let uu___1 = i line r in let uu___2 = i col r in (uu___, uu___1, uu___2) let (parse_decl : - FStar_Parser_AST_Util.open_namespaces_and_abbreviations -> + FStarC_Parser_AST_Util.open_namespaces_and_abbreviations -> Prims.string -> - FStar_Compiler_Range_Type.range -> - (FStar_Parser_AST_Util.error_message, FStar_Parser_AST.decl) + FStarC_Compiler_Range_Type.range -> + (FStarC_Parser_AST_Util.error_message, FStarC_Parser_AST.decl) FStar_Pervasives.either) = fun ctx -> @@ -118,22 +118,22 @@ let (parse_decl : let uu___ = let uu___1 = let uu___2 = - let uu___3 = FStar_Compiler_Util.string_of_int s in + let uu___3 = FStarC_Compiler_Util.string_of_int s in (uu___3, FStar_Pervasives_Native.None) in - FStar_Const.Const_int uu___2 in - FStar_Parser_AST.Const uu___1 in + FStarC_Const.Const_int uu___2 in + FStarC_Parser_AST.Const uu___1 in tm1 uu___ in let uu___ = PulseSyntaxExtension_Parser.parse_peek_id contents r in match uu___ with | FStar_Pervasives.Inr (err, r1) -> FStar_Pervasives.Inl { - FStar_Parser_AST_Util.message = err; - FStar_Parser_AST_Util.range = r1 + FStarC_Parser_AST_Util.message = err; + FStarC_Parser_AST_Util.range = r1 } | FStar_Pervasives.Inl id -> let splicer = - let head = tm1 (FStar_Parser_AST.Var pulse_checker_tac) in + let head = tm1 (FStarC_Parser_AST.Var pulse_checker_tac) in let lid_as_term1 ns = lid_as_term ns r in let uu___1 = encode_open_namespaces_and_abbreviations ctx r in match uu___1 with @@ -141,36 +141,36 @@ let (parse_decl : let uu___2 = encode_range r in (match uu___2 with | (file_name, line, col) -> - FStar_Parser_AST.mkApp head - [(namespaces, FStar_Parser_AST.Nothing); - (abbrevs, FStar_Parser_AST.Nothing); - ((str1 contents), FStar_Parser_AST.Nothing); - (file_name, FStar_Parser_AST.Nothing); - (line, FStar_Parser_AST.Nothing); - (col, FStar_Parser_AST.Nothing); - ((str1 id), FStar_Parser_AST.Nothing)] r) in + FStarC_Parser_AST.mkApp head + [(namespaces, FStarC_Parser_AST.Nothing); + (abbrevs, FStarC_Parser_AST.Nothing); + ((str1 contents), FStarC_Parser_AST.Nothing); + (file_name, FStarC_Parser_AST.Nothing); + (line, FStarC_Parser_AST.Nothing); + (col, FStarC_Parser_AST.Nothing); + ((str1 id), FStarC_Parser_AST.Nothing)] r) in let d = let uu___1 = let uu___2 = - let uu___3 = FStar_Ident.id_of_text id in [uu___3] in + let uu___3 = FStarC_Ident.id_of_text id in [uu___3] in (true, uu___2, splicer) in - FStar_Parser_AST.Splice uu___1 in + FStarC_Parser_AST.Splice uu___1 in let d1 = { - FStar_Parser_AST.d = d; - FStar_Parser_AST.drange = r; - FStar_Parser_AST.quals = [FStar_Parser_AST.Irreducible]; - FStar_Parser_AST.attrs = [str1 "uninterpreted_by_smt"]; - FStar_Parser_AST.interleaved = false + FStarC_Parser_AST.d = d; + FStarC_Parser_AST.drange = r; + FStarC_Parser_AST.quals = [FStarC_Parser_AST.Irreducible]; + FStarC_Parser_AST.attrs = [str1 "uninterpreted_by_smt"]; + FStarC_Parser_AST.interleaved = false } in FStar_Pervasives.Inr d1 let maybe_report_error : 'uuuuu 'uuuuu1 . - ('uuuuu * FStar_Errors_Msg.error_message * - FStar_Compiler_Range_Type.range) FStar_Pervasives_Native.option -> - ('uuuuu1, FStar_Parser_AST.decl) FStar_Pervasives.either Prims.list -> - (FStar_Parser_AST_Util.error_message, - ('uuuuu1, FStar_Parser_AST.decl) FStar_Pervasives.either Prims.list) + ('uuuuu * FStarC_Errors_Msg.error_message * + FStarC_Compiler_Range_Type.range) FStar_Pervasives_Native.option -> + ('uuuuu1, FStarC_Parser_AST.decl) FStar_Pervasives.either Prims.list -> + (FStarC_Parser_AST_Util.error_message, + ('uuuuu1, FStarC_Parser_AST.decl) FStar_Pervasives.either Prims.list) FStar_Pervasives.either = fun first_error -> @@ -179,25 +179,25 @@ let maybe_report_error : | FStar_Pervasives_Native.None -> FStar_Pervasives.Inr decls | FStar_Pervasives_Native.Some (raw_error, msg, r) -> let should_fail_on_error = - let file = FStar_Compiler_Range_Ops.file_of_range r in - let uu___ = FStar_Parser_Dep.maybe_module_name_of_file file in + let file = FStarC_Compiler_Range_Ops.file_of_range r in + let uu___ = FStarC_Parser_Dep.maybe_module_name_of_file file in match uu___ with | FStar_Pervasives_Native.None -> false | FStar_Pervasives_Native.Some uu___1 -> - let uu___2 = FStar_Options.ide_filename () in + let uu___2 = FStarC_Options.ide_filename () in (match uu___2 with | FStar_Pervasives_Native.None -> true | FStar_Pervasives_Native.Some fn -> - let uu___3 = FStar_Compiler_Util.basename fn in - let uu___4 = FStar_Compiler_Util.basename file in + let uu___3 = FStarC_Compiler_Util.basename fn in + let uu___4 = FStarC_Compiler_Util.basename file in uu___3 <> uu___4) in if should_fail_on_error then let uu___ = - let uu___1 = FStar_Errors_Msg.rendermsg msg in + let uu___1 = FStarC_Errors_Msg.rendermsg msg in { - FStar_Parser_AST_Util.message = uu___1; - FStar_Parser_AST_Util.range = r + FStarC_Parser_AST_Util.message = uu___1; + FStarC_Parser_AST_Util.range = r } in FStar_Pervasives.Inl uu___ else @@ -205,7 +205,7 @@ let maybe_report_error : let uu___2 = let uu___3 = let uu___4 = - FStar_Parser_AST.mk_decl FStar_Parser_AST.Unparseable r + FStarC_Parser_AST.mk_decl FStarC_Parser_AST.Unparseable r [] in FStar_Pervasives.Inr uu___4 in [uu___3] in @@ -213,8 +213,8 @@ let maybe_report_error : FStar_Pervasives.Inr uu___1) let (parse_extension_lang : Prims.string -> - FStar_Compiler_Range_Type.range -> - (FStar_Parser_AST_Util.error_message, FStar_Parser_AST.decl Prims.list) + FStarC_Compiler_Range_Type.range -> + (FStarC_Parser_AST_Util.error_message, FStarC_Parser_AST.decl Prims.list) FStar_Pervasives.either) = fun contents -> @@ -224,14 +224,14 @@ let (parse_extension_lang : | FStar_Pervasives.Inr (FStar_Pervasives_Native.None) -> FStar_Pervasives.Inl { - FStar_Parser_AST_Util.message = "#lang-pulse: Parsing failed"; - FStar_Parser_AST_Util.range = r + FStarC_Parser_AST_Util.message = "#lang-pulse: Parsing failed"; + FStarC_Parser_AST_Util.range = r } | FStar_Pervasives.Inr (FStar_Pervasives_Native.Some (err, r1)) -> FStar_Pervasives.Inl { - FStar_Parser_AST_Util.message = err; - FStar_Parser_AST_Util.range = r1 + FStarC_Parser_AST_Util.message = err; + FStarC_Parser_AST_Util.range = r1 } | FStar_Pervasives.Inl (decls, first_error) -> let uu___1 = maybe_report_error first_error decls in @@ -261,7 +261,7 @@ let (parse_extension_lang : let uu___2 = id_and_range_of_decl d in match uu___2 with | (id, r1) -> - let id_txt = FStar_Ident.string_of_id id in + let id_txt = FStarC_Ident.string_of_id id in let decors = match d with | PulseSyntaxExtension_Sugar.FnDefn @@ -284,74 +284,74 @@ let (parse_extension_lang : PulseSyntaxExtension_Sugar.range4 = uu___6;_} -> decorations in let d1 = - FStar_Parser_AST.DeclToBeDesugared + FStarC_Parser_AST.DeclToBeDesugared { - FStar_Parser_AST.lang_name = "pulse"; - FStar_Parser_AST.blob = (FStar_Dyn.mkdyn d); - FStar_Parser_AST.idents = [id]; - FStar_Parser_AST.to_string = (fun d2 -> ""); - FStar_Parser_AST.eq = + FStarC_Parser_AST.lang_name = "pulse"; + FStarC_Parser_AST.blob = (FStarC_Dyn.mkdyn d); + FStarC_Parser_AST.idents = [id]; + FStarC_Parser_AST.to_string = (fun d2 -> ""); + FStarC_Parser_AST.eq = (fun d11 -> fun d2 -> - let uu___3 = FStar_Dyn.undyn d11 in - let uu___4 = FStar_Dyn.undyn d2 in + let uu___3 = FStarC_Dyn.undyn d11 in + let uu___4 = FStarC_Dyn.undyn d2 in PulseSyntaxExtension_Sugar.eq_decl uu___3 uu___4); - FStar_Parser_AST.dep_scan = + FStarC_Parser_AST.dep_scan = (fun cbs -> fun d2 -> - let uu___3 = FStar_Dyn.undyn d2 in + let uu___3 = FStarC_Dyn.undyn d2 in PulseSyntaxExtension_Sugar.scan_decl cbs uu___3) } in let d2 = let uu___3 = - FStar_Compiler_List.partition - FStar_Parser_AST.uu___is_DeclAttributes decors in + FStarC_Compiler_List.partition + FStarC_Parser_AST.uu___is_DeclAttributes decors in match uu___3 with | (attrs, quals) -> let attrs1 = match attrs with | [] -> - [FStar_Parser_AST.DeclAttributes + [FStarC_Parser_AST.DeclAttributes [str "uninterpreted_by_smt" r1]] - | (FStar_Parser_AST.DeclAttributes attrs2)::tl + | (FStarC_Parser_AST.DeclAttributes attrs2)::tl -> - (FStar_Parser_AST.DeclAttributes + (FStarC_Parser_AST.DeclAttributes ((str "uninterpreted_by_smt" r1) :: attrs2)) :: tl in let decors1 = FStar_List_Tot_Base.op_At - ((FStar_Parser_AST.Qualifier - FStar_Parser_AST.Irreducible) :: quals) + ((FStarC_Parser_AST.Qualifier + FStarC_Parser_AST.Irreducible) :: quals) attrs1 in - FStar_Parser_AST.mk_decl d1 r1 decors1 in + FStarC_Parser_AST.mk_decl d1 r1 decors1 in d2 in let uu___2 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___3 -> match uu___3 with | FStar_Pervasives.Inl d -> splice_decl d | FStar_Pervasives.Inr d -> d) decls1 in FStar_Pervasives.Inr uu___2) let (uu___0 : unit) = - FStar_Parser_AST_Util.register_extension_parser "pulse" + FStarC_Parser_AST_Util.register_extension_parser "pulse" { - FStar_Parser_AST_Util.parse_decl_name = parse_decl_name; - FStar_Parser_AST_Util.parse_decl = parse_decl + FStarC_Parser_AST_Util.parse_decl_name = parse_decl_name; + FStarC_Parser_AST_Util.parse_decl = parse_decl } let (uu___1 : unit) = - FStar_Parser_AST_Util.register_extension_lang_parser "pulse" - { FStar_Parser_AST_Util.parse_decls = parse_extension_lang } + FStarC_Parser_AST_Util.register_extension_lang_parser "pulse" + { FStarC_Parser_AST_Util.parse_decls = parse_extension_lang } type sugar_decl = PulseSyntaxExtension_Sugar.decl let (desugar_pulse : - FStar_TypeChecker_Env.env -> + FStarC_TypeChecker_Env.env -> Prims.string Prims.list -> (Prims.string * Prims.string) Prims.list -> sugar_decl -> (PulseSyntaxExtension_SyntaxWrapper.decl, - (Prims.string * FStar_Compiler_Range_Type.range) + (Prims.string * FStarC_Compiler_Range_Type.range) FStar_Pervasives_Native.option) FStar_Pervasives.either) = @@ -360,29 +360,29 @@ let (desugar_pulse : fun module_abbrevs -> fun sugar -> let namespaces1 = - FStar_Compiler_List.map FStar_Ident.path_of_text namespaces in + FStarC_Compiler_List.map FStarC_Ident.path_of_text namespaces in let module_abbrevs1 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___ -> match uu___ with | (x, l) -> - let uu___2 = FStar_Ident.path_of_text l in (x, uu___2)) + let uu___2 = FStarC_Ident.path_of_text l in (x, uu___2)) module_abbrevs in let env1 = - let uu___ = FStar_TypeChecker_Env.current_module env in + let uu___ = FStarC_TypeChecker_Env.current_module env in PulseSyntaxExtension_Desugar.reinitialize_env - env.FStar_TypeChecker_Env.dsenv uu___ namespaces1 + env.FStarC_TypeChecker_Env.dsenv uu___ namespaces1 module_abbrevs1 in let uu___ = let uu___2 = PulseSyntaxExtension_Desugar.desugar_decl env1 sugar in uu___2 Prims.int_zero in FStar_Pervasives_Native.fst uu___ let (desugar_pulse_decl_callback : - FStar_Syntax_DsEnv.env -> - FStar_Dyn.dyn -> - FStar_Ident.lident Prims.list -> - FStar_Compiler_Range_Type.range -> - FStar_Syntax_Syntax.sigelt' Prims.list) + FStarC_Syntax_DsEnv.env -> + FStarC_Dyn.dyn -> + FStarC_Ident.lident Prims.list -> + FStarC_Compiler_Range_Type.range -> + FStarC_Syntax_Syntax.sigelt' Prims.list) = fun env -> fun blob -> @@ -391,50 +391,50 @@ let (desugar_pulse_decl_callback : let d = let uu___ = let uu___2 = PulseSyntaxExtension_Desugar.mk_env env in - let uu___3 = FStar_Dyn.undyn blob in + let uu___3 = FStarC_Dyn.undyn blob in PulseSyntaxExtension_Desugar.desugar_decl uu___2 uu___3 in uu___ Prims.int_zero in match FStar_Pervasives_Native.fst d with | FStar_Pervasives.Inr (FStar_Pervasives_Native.None) -> - let start = FStar_Compiler_Range_Ops.start_of_range rng in + let start = FStarC_Compiler_Range_Ops.start_of_range rng in let rng1 = - let uu___ = FStar_Compiler_Range_Ops.file_of_range rng in - FStar_Compiler_Range_Type.mk_range uu___ start start in - FStar_Errors.raise_error FStar_Class_HasRange.hasRange_range - rng1 FStar_Errors_Codes.Fatal_SyntaxError () - (Obj.magic FStar_Errors_Msg.is_error_message_string) + let uu___ = FStarC_Compiler_Range_Ops.file_of_range rng in + FStarC_Compiler_Range_Type.mk_range uu___ start start in + FStarC_Errors.raise_error FStarC_Class_HasRange.hasRange_range + rng1 FStarC_Errors_Codes.Fatal_SyntaxError () + (Obj.magic FStarC_Errors_Msg.is_error_message_string) (Obj.magic "Failed to desugar pulse declaration") | FStar_Pervasives.Inr (FStar_Pervasives_Native.Some (msg, rng1)) -> - FStar_Errors.raise_error FStar_Class_HasRange.hasRange_range - rng1 FStar_Errors_Codes.Fatal_SyntaxError () - (Obj.magic FStar_Errors_Msg.is_error_message_string) + FStarC_Errors.raise_error FStarC_Class_HasRange.hasRange_range + rng1 FStarC_Errors_Codes.Fatal_SyntaxError () + (Obj.magic FStarC_Errors_Msg.is_error_message_string) (Obj.magic msg) | FStar_Pervasives.Inl d1 -> let blob1 = - FStar_Syntax_Util.mk_lazy d1 FStar_Syntax_Syntax.t_bool - (FStar_Syntax_Syntax.Lazy_extension "pulse_decl") + FStarC_Syntax_Util.mk_lazy d1 FStarC_Syntax_Syntax.t_bool + (FStarC_Syntax_Syntax.Lazy_extension "pulse_decl") (FStar_Pervasives_Native.Some rng) in let splicer = let head = let uu___ = - FStar_Syntax_Syntax.lid_as_fv + FStarC_Syntax_Syntax.lid_as_fv pulse_checker_after_desugar_tac FStar_Pervasives_Native.None in - FStar_Syntax_Syntax.fv_to_tm uu___ in - FStar_Syntax_Syntax.mk_Tm_app head + FStarC_Syntax_Syntax.fv_to_tm uu___ in + FStarC_Syntax_Syntax.mk_Tm_app head [(blob1, FStar_Pervasives_Native.None)] rng in - [FStar_Syntax_Syntax.Sig_splice + [FStarC_Syntax_Syntax.Sig_splice { - FStar_Syntax_Syntax.is_typed = true; - FStar_Syntax_Syntax.lids2 = lids; - FStar_Syntax_Syntax.tac = splicer + FStarC_Syntax_Syntax.is_typed = true; + FStarC_Syntax_Syntax.lids2 = lids; + FStarC_Syntax_Syntax.tac = splicer }] let (uu___2 : unit) = - FStar_ToSyntax_ToSyntax.register_extension_tosyntax "pulse" + FStarC_ToSyntax_ToSyntax.register_extension_tosyntax "pulse" desugar_pulse_decl_callback let (parse_pulse : - FStar_TypeChecker_Env.env -> + FStarC_TypeChecker_Env.env -> Prims.string Prims.list -> (Prims.string * Prims.string) Prims.list -> Prims.string -> @@ -442,7 +442,7 @@ let (parse_pulse : Prims.int -> Prims.int -> (PulseSyntaxExtension_SyntaxWrapper.decl, - (Prims.string * FStar_Compiler_Range_Type.range) + (Prims.string * FStarC_Compiler_Range_Type.range) FStar_Pervasives_Native.option) FStar_Pervasives.either) = @@ -454,8 +454,8 @@ let (parse_pulse : fun line -> fun col -> let range = - let p = FStar_Compiler_Range_Type.mk_pos line col in - FStar_Compiler_Range_Type.mk_range file_name p p in + let p = FStarC_Compiler_Range_Type.mk_pos line col in + FStarC_Compiler_Range_Type.mk_range file_name p p in let uu___ = PulseSyntaxExtension_Parser.parse_decl content range in match uu___ with diff --git a/src/ocaml/plugin/generated/PulseSyntaxExtension_Desugar.ml b/src/ocaml/plugin/generated/PulseSyntaxExtension_Desugar.ml index aa5cb7081..d6318d744 100644 --- a/src/ocaml/plugin/generated/PulseSyntaxExtension_Desugar.ml +++ b/src/ocaml/plugin/generated/PulseSyntaxExtension_Desugar.ml @@ -1,6 +1,6 @@ open Prims type error = - (Prims.string * FStar_Compiler_Range_Type.range) + (Prims.string * FStarC_Compiler_Range_Type.range) FStar_Pervasives_Native.option let (close_st_term_bvs : PulseSyntaxExtension_SyntaxWrapper.st_term -> @@ -10,7 +10,7 @@ let (close_st_term_bvs : fun e -> fun xs -> let uu___ = - FStar_Compiler_List.map + FStarC_Compiler_List.map PulseSyntaxExtension_SyntaxWrapper.index_of_bv xs in PulseSyntaxExtension_SyntaxWrapper.close_st_term_n e uu___ let (close_comp_bvs : @@ -21,7 +21,7 @@ let (close_comp_bvs : fun e -> fun xs -> let uu___ = - FStar_Compiler_List.map + FStarC_Compiler_List.map PulseSyntaxExtension_SyntaxWrapper.index_of_bv xs in PulseSyntaxExtension_SyntaxWrapper.close_comp_n e uu___ let rec fold_right1 : 'a . ('a -> 'a -> 'a) -> 'a Prims.list -> 'a = @@ -31,21 +31,21 @@ let rec fold_right1 : 'a . ('a -> 'a -> 'a) -> 'a Prims.list -> 'a = | h::[] -> h | h::t -> let uu___ = fold_right1 f t in f h uu___ let (as_term : - FStar_Syntax_Syntax.term -> PulseSyntaxExtension_SyntaxWrapper.term) = + FStarC_Syntax_Syntax.term -> PulseSyntaxExtension_SyntaxWrapper.term) = fun t -> - match t.FStar_Syntax_Syntax.n with - | FStar_Syntax_Syntax.Tm_unknown -> + match t.FStarC_Syntax_Syntax.n with + | FStarC_Syntax_Syntax.Tm_unknown -> PulseSyntaxExtension_SyntaxWrapper.tm_unknown - t.FStar_Syntax_Syntax.pos + t.FStarC_Syntax_Syntax.pos | uu___ -> PulseSyntaxExtension_SyntaxWrapper.tm_expr t - t.FStar_Syntax_Syntax.pos + t.FStarC_Syntax_Syntax.pos let (desugar_const : - FStar_Const.sconst -> PulseSyntaxExtension_SyntaxWrapper.constant) = + FStarC_Const.sconst -> PulseSyntaxExtension_SyntaxWrapper.constant) = fun c -> PulseSyntaxExtension_SyntaxWrapper.inspect_const c let (slprop_to_ast_term : PulseSyntaxExtension_Sugar.slprop -> - FStar_Parser_AST.term PulseSyntaxExtension_Err.err) + FStarC_Parser_AST.term PulseSyntaxExtension_Err.err) = fun v -> match v.PulseSyntaxExtension_Sugar.v with @@ -53,7 +53,7 @@ let (slprop_to_ast_term : PulseSyntaxExtension_Err.return t let (comp_to_ast_term : PulseSyntaxExtension_Sugar.computation_type -> - FStar_Parser_AST.term PulseSyntaxExtension_Err.err) + FStarC_Parser_AST.term PulseSyntaxExtension_Err.err) = fun uu___ -> (fun c -> @@ -63,50 +63,50 @@ let (comp_to_ast_term : match c.PulseSyntaxExtension_Sugar.tag with | PulseSyntaxExtension_Sugar.ST -> let h = - FStar_Parser_AST.mk_term - (FStar_Parser_AST.Var PulseSyntaxExtension_Env.stt_lid) r - FStar_Parser_AST.Expr in + FStarC_Parser_AST.mk_term + (FStarC_Parser_AST.Var PulseSyntaxExtension_Env.stt_lid) r + FStarC_Parser_AST.Expr in let h1 = - FStar_Parser_AST.mk_term - (FStar_Parser_AST.App - (h, return_ty, FStar_Parser_AST.Nothing)) r - FStar_Parser_AST.Expr in + FStarC_Parser_AST.mk_term + (FStarC_Parser_AST.App + (h, return_ty, FStarC_Parser_AST.Nothing)) r + FStarC_Parser_AST.Expr in h1 | PulseSyntaxExtension_Sugar.STAtomic -> let is = let uu___ = let uu___1 = - FStar_Ident.lid_of_str "Pulse.Lib.Core.emp_inames" in - FStar_Parser_AST.Var uu___1 in - FStar_Parser_AST.mk_term uu___ r FStar_Parser_AST.Expr in + FStarC_Ident.lid_of_str "Pulse.Lib.Core.emp_inames" in + FStarC_Parser_AST.Var uu___1 in + FStarC_Parser_AST.mk_term uu___ r FStarC_Parser_AST.Expr in let h = - FStar_Parser_AST.mk_term - (FStar_Parser_AST.Var + FStarC_Parser_AST.mk_term + (FStarC_Parser_AST.Var PulseSyntaxExtension_Env.stt_atomic_lid) r - FStar_Parser_AST.Expr in + FStarC_Parser_AST.Expr in let h1 = - FStar_Parser_AST.mk_term - (FStar_Parser_AST.App - (h, return_ty, FStar_Parser_AST.Nothing)) r - FStar_Parser_AST.Expr in - FStar_Parser_AST.mk_term - (FStar_Parser_AST.App (h1, is, FStar_Parser_AST.Nothing)) r - FStar_Parser_AST.Expr + FStarC_Parser_AST.mk_term + (FStarC_Parser_AST.App + (h, return_ty, FStarC_Parser_AST.Nothing)) r + FStarC_Parser_AST.Expr in + FStarC_Parser_AST.mk_term + (FStarC_Parser_AST.App (h1, is, FStarC_Parser_AST.Nothing)) r + FStarC_Parser_AST.Expr | PulseSyntaxExtension_Sugar.STGhost -> let h = - FStar_Parser_AST.mk_term - (FStar_Parser_AST.Var PulseSyntaxExtension_Env.stt_ghost_lid) - r FStar_Parser_AST.Expr in + FStarC_Parser_AST.mk_term + (FStarC_Parser_AST.Var PulseSyntaxExtension_Env.stt_ghost_lid) + r FStarC_Parser_AST.Expr in let h1 = - FStar_Parser_AST.mk_term - (FStar_Parser_AST.App - (h, return_ty, FStar_Parser_AST.Nothing)) r - FStar_Parser_AST.Expr in + FStarC_Parser_AST.mk_term + (FStarC_Parser_AST.App + (h, return_ty, FStarC_Parser_AST.Nothing)) r + FStarC_Parser_AST.Expr in h1 in let uu___ = slprop_to_ast_term c.PulseSyntaxExtension_Sugar.precondition in Obj.magic - (FStar_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> (fun pre -> @@ -115,7 +115,7 @@ let (comp_to_ast_term : slprop_to_ast_term c.PulseSyntaxExtension_Sugar.postcondition in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -123,36 +123,36 @@ let (comp_to_ast_term : let post = Obj.magic post in let post1 = let pat = - FStar_Parser_AST.mk_pattern - (FStar_Parser_AST.PatVar + FStarC_Parser_AST.mk_pattern + (FStarC_Parser_AST.PatVar ((c.PulseSyntaxExtension_Sugar.return_name), FStar_Pervasives_Native.None, [])) r in let pat1 = - FStar_Parser_AST.mk_pattern - (FStar_Parser_AST.PatAscribed + FStarC_Parser_AST.mk_pattern + (FStarC_Parser_AST.PatAscribed (pat, (return_ty, FStar_Pervasives_Native.None))) r in - FStar_Parser_AST.mk_term - (FStar_Parser_AST.Abs ([pat1], post)) r - FStar_Parser_AST.Expr in + FStarC_Parser_AST.mk_term + (FStarC_Parser_AST.Abs ([pat1], post)) r + FStarC_Parser_AST.Expr in let t = - FStar_Parser_AST.mk_term - (FStar_Parser_AST.App - (head, pre, FStar_Parser_AST.Nothing)) r - FStar_Parser_AST.Expr in + FStarC_Parser_AST.mk_term + (FStarC_Parser_AST.App + (head, pre, FStarC_Parser_AST.Nothing)) r + FStarC_Parser_AST.Expr in let t1 = - FStar_Parser_AST.mk_term - (FStar_Parser_AST.App - (t, post1, FStar_Parser_AST.Nothing)) r - FStar_Parser_AST.Expr in + FStarC_Parser_AST.mk_term + (FStarC_Parser_AST.App + (t, post1, FStarC_Parser_AST.Nothing)) r + FStarC_Parser_AST.Expr in Obj.magic (PulseSyntaxExtension_Err.return t1)) uu___2))) uu___1))) uu___ let (faux : (PulseSyntaxExtension_SyntaxWrapper.qualifier FStar_Pervasives_Native.option * PulseSyntaxExtension_SyntaxWrapper.binder) -> - FStar_Syntax_Syntax.bv -> + FStarC_Syntax_Syntax.bv -> (PulseSyntaxExtension_SyntaxWrapper.qualifier FStar_Pervasives_Native.option * PulseSyntaxExtension_SyntaxWrapper.binder * @@ -165,15 +165,15 @@ let (faux : | (q, b) -> let bv1 = let uu___1 = - FStar_Ident.string_of_id bv.FStar_Syntax_Syntax.ppname in + FStarC_Ident.string_of_id bv.FStarC_Syntax_Syntax.ppname in PulseSyntaxExtension_SyntaxWrapper.mk_bv - bv.FStar_Syntax_Syntax.index uu___1 - (bv.FStar_Syntax_Syntax.sort).FStar_Syntax_Syntax.pos in + bv.FStarC_Syntax_Syntax.index uu___1 + (bv.FStarC_Syntax_Syntax.sort).FStarC_Syntax_Syntax.pos in (q, b, bv1) let (stapp_assignment : - FStar_Ident.lident -> - FStar_Syntax_Syntax.term Prims.list -> - FStar_Syntax_Syntax.term -> + FStarC_Ident.lident -> + FStarC_Syntax_Syntax.term Prims.list -> + FStarC_Syntax_Syntax.term -> PulseSyntaxExtension_SyntaxWrapper.range -> PulseSyntaxExtension_SyntaxWrapper.st_term) = @@ -182,29 +182,29 @@ let (stapp_assignment : fun last_arg -> fun r -> let head_fv = - FStar_Syntax_Syntax.lid_as_fv assign_lid + FStarC_Syntax_Syntax.lid_as_fv assign_lid FStar_Pervasives_Native.None in - let head = FStar_Syntax_Syntax.fv_to_tm head_fv in + let head = FStarC_Syntax_Syntax.fv_to_tm head_fv in let app = - FStar_Compiler_List.fold_left + FStarC_Compiler_List.fold_left (fun head1 -> fun arg -> - FStar_Syntax_Syntax.mk_Tm_app head1 + FStarC_Syntax_Syntax.mk_Tm_app head1 [(arg, FStar_Pervasives_Native.None)] - arg.FStar_Syntax_Syntax.pos) head args in + arg.FStarC_Syntax_Syntax.pos) head args in let uu___ = PulseSyntaxExtension_SyntaxWrapper.tm_expr app r in let uu___1 = as_term last_arg in PulseSyntaxExtension_SyntaxWrapper.tm_st_app uu___ FStar_Pervasives_Native.None uu___1 r let (ret : - FStar_Syntax_Syntax.term -> PulseSyntaxExtension_SyntaxWrapper.st_term) = + FStarC_Syntax_Syntax.term -> PulseSyntaxExtension_SyntaxWrapper.st_term) = fun s -> let uu___ = as_term s in PulseSyntaxExtension_SyntaxWrapper.tm_return uu___ - s.FStar_Syntax_Syntax.pos + s.FStarC_Syntax_Syntax.pos type admit_or_return_t = | STTerm of PulseSyntaxExtension_SyntaxWrapper.st_term - | Return of FStar_Syntax_Syntax.term + | Return of FStarC_Syntax_Syntax.term let (uu___is_STTerm : admit_or_return_t -> Prims.bool) = fun projectee -> match projectee with | STTerm _0 -> true | uu___ -> false let (__proj__STTerm__item___0 : @@ -213,25 +213,25 @@ let (__proj__STTerm__item___0 : let (uu___is_Return : admit_or_return_t -> Prims.bool) = fun projectee -> match projectee with | Return _0 -> true | uu___ -> false let (__proj__Return__item___0 : - admit_or_return_t -> FStar_Syntax_Syntax.term) = + admit_or_return_t -> FStarC_Syntax_Syntax.term) = fun projectee -> match projectee with | Return _0 -> _0 let (st_term_of_admit_or_return : admit_or_return_t -> PulseSyntaxExtension_SyntaxWrapper.st_term) = fun t -> match t with | STTerm t1 -> t1 | Return t1 -> ret t1 let (admit_or_return : PulseSyntaxExtension_Env.env_t -> - FStar_Syntax_Syntax.term -> admit_or_return_t) + FStarC_Syntax_Syntax.term -> admit_or_return_t) = fun env -> fun s -> - let r = s.FStar_Syntax_Syntax.pos in - let uu___ = FStar_Syntax_Util.head_and_args_full s in + let r = s.FStarC_Syntax_Syntax.pos in + let uu___ = FStarC_Syntax_Util.head_and_args_full s in match uu___ with | (head, args) -> - (match ((head.FStar_Syntax_Syntax.n), args) with - | (FStar_Syntax_Syntax.Tm_fvar fv, uu___1::[]) -> + (match ((head.FStarC_Syntax_Syntax.n), args) with + | (FStarC_Syntax_Syntax.Tm_fvar fv, uu___1::[]) -> let uu___2 = - FStar_Syntax_Syntax.fv_eq_lid fv + FStarC_Syntax_Syntax.fv_eq_lid fv PulseSyntaxExtension_Env.admit_lid in if uu___2 then @@ -239,7 +239,7 @@ let (admit_or_return : STTerm uu___3 else (let uu___4 = - FStar_Syntax_Syntax.fv_eq_lid fv + FStarC_Syntax_Syntax.fv_eq_lid fv PulseSyntaxExtension_Env.unreachable_lid in if uu___4 then @@ -249,20 +249,20 @@ let (admit_or_return : else Return s) | uu___1 -> Return s) let (prepend_ctx_issue : - FStar_Pprint.document -> FStar_Errors.issue -> FStar_Errors.issue) = + FStarC_Pprint.document -> FStarC_Errors.issue -> FStarC_Errors.issue) = fun c -> fun i -> { - FStar_Errors.issue_msg = (c :: (i.FStar_Errors.issue_msg)); - FStar_Errors.issue_level = (i.FStar_Errors.issue_level); - FStar_Errors.issue_range = (i.FStar_Errors.issue_range); - FStar_Errors.issue_number = (i.FStar_Errors.issue_number); - FStar_Errors.issue_ctx = (i.FStar_Errors.issue_ctx) + FStarC_Errors.issue_msg = (c :: (i.FStarC_Errors.issue_msg)); + FStarC_Errors.issue_level = (i.FStarC_Errors.issue_level); + FStarC_Errors.issue_range = (i.FStarC_Errors.issue_range); + FStarC_Errors.issue_number = (i.FStarC_Errors.issue_number); + FStarC_Errors.issue_ctx = (i.FStarC_Errors.issue_ctx) } let (tosyntax' : PulseSyntaxExtension_Env.env_t -> - FStar_Parser_AST.term -> - FStar_Syntax_Syntax.term PulseSyntaxExtension_Err.err) + FStarC_Parser_AST.term -> + FStarC_Syntax_Syntax.term PulseSyntaxExtension_Err.err) = fun env -> fun t -> @@ -271,34 +271,34 @@ let (tosyntax' : match () with | () -> let uu___1 = - FStar_ToSyntax_ToSyntax.desugar_term + FStarC_ToSyntax_ToSyntax.desugar_term env.PulseSyntaxExtension_Env.dsenv t in PulseSyntaxExtension_Err.return uu___1) () with | uu___ -> - let uu___1 = FStar_Errors.issue_of_exn uu___ in + let uu___1 = FStarC_Errors.issue_of_exn uu___ in (match uu___1 with | FStar_Pervasives_Native.Some i -> let i1 = let uu___2 = - FStar_Pprint.arbitrary_string + FStarC_Pprint.arbitrary_string "Failed to desugar Pulse term" in prepend_ctx_issue uu___2 i in - (FStar_Errors.add_issues [i1]; + (FStarC_Errors.add_issues [i1]; PulseSyntaxExtension_Err.just_fail ()) | FStar_Pervasives_Native.None -> let uu___2 = - let uu___3 = FStar_Parser_AST.term_to_string t in + let uu___3 = FStarC_Parser_AST.term_to_string t in let uu___4 = PulseSyntaxExtension_SyntaxWrapper.print_exn uu___ in - FStar_Compiler_Util.format2 + FStarC_Compiler_Util.format2 "Failed to desugar Pulse term %s\nUnexpected exception: %s\n" uu___3 uu___4 in - PulseSyntaxExtension_Err.fail uu___2 t.FStar_Parser_AST.range) + PulseSyntaxExtension_Err.fail uu___2 t.FStarC_Parser_AST.range) let (tosyntax : PulseSyntaxExtension_Env.env_t -> - FStar_Parser_AST.term -> - FStar_Syntax_Syntax.term PulseSyntaxExtension_Err.err) + FStarC_Parser_AST.term -> + FStarC_Syntax_Syntax.term PulseSyntaxExtension_Err.err) = fun uu___1 -> fun uu___ -> @@ -306,7 +306,7 @@ let (tosyntax : fun t -> let uu___ = tosyntax' env t in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> (fun s -> @@ -315,7 +315,7 @@ let (tosyntax : uu___1 uu___ let (desugar_term : PulseSyntaxExtension_Env.env_t -> - FStar_Parser_AST.term -> + FStarC_Parser_AST.term -> PulseSyntaxExtension_SyntaxWrapper.term PulseSyntaxExtension_Err.err) = fun uu___1 -> @@ -324,7 +324,7 @@ let (desugar_term : fun t -> let uu___ = tosyntax env t in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> (fun s -> @@ -334,7 +334,7 @@ let (desugar_term : uu___1))) uu___1 uu___ let (desugar_term_opt : PulseSyntaxExtension_Env.env_t -> - FStar_Parser_AST.term FStar_Pervasives_Native.option -> + FStarC_Parser_AST.term FStar_Pervasives_Native.option -> PulseSyntaxExtension_SyntaxWrapper.term PulseSyntaxExtension_Err.err) = fun env -> @@ -343,51 +343,51 @@ let (desugar_term_opt : | FStar_Pervasives_Native.None -> let uu___ = PulseSyntaxExtension_SyntaxWrapper.tm_unknown - FStar_Compiler_Range_Type.dummyRange in + FStarC_Compiler_Range_Type.dummyRange in PulseSyntaxExtension_Err.return uu___ | FStar_Pervasives_Native.Some e -> desugar_term env e let (idents_as_binders : PulseSyntaxExtension_Env.env_t -> - FStar_Ident.ident Prims.list -> + FStarC_Ident.ident Prims.list -> (PulseSyntaxExtension_Env.env_t * (PulseSyntaxExtension_SyntaxWrapper.qualifier FStar_Pervasives_Native.option * PulseSyntaxExtension_SyntaxWrapper.binder) Prims.list * - FStar_Syntax_Syntax.bv Prims.list) PulseSyntaxExtension_Err.err) + FStarC_Syntax_Syntax.bv Prims.list) PulseSyntaxExtension_Err.err) = fun env -> fun l -> let non_tick_idents = - FStar_Compiler_List.filter + FStarC_Compiler_List.filter (fun i -> - let uu___ = FStar_Ident.string_of_id i in - Prims.op_Negation (FStar_Compiler_Util.starts_with uu___ "'")) l in - if (FStar_Compiler_List.length non_tick_idents) <> Prims.int_zero + let uu___ = FStarC_Ident.string_of_id i in + Prims.op_Negation (FStarC_Compiler_Util.starts_with uu___ "'")) l in + if (FStarC_Compiler_List.length non_tick_idents) <> Prims.int_zero then let s = let uu___ = - FStar_Compiler_List.map FStar_Ident.string_of_id non_tick_idents in - FStar_Compiler_Util.concat_l ", " uu___ in + FStarC_Compiler_List.map FStarC_Ident.string_of_id non_tick_idents in + FStarC_Compiler_Util.concat_l ", " uu___ in let uu___ = - FStar_Compiler_Util.format1 + FStarC_Compiler_Util.format1 "Identifiers (%s) not found, consider adding them as binders" s in let uu___1 = - let uu___2 = FStar_Compiler_List.hd non_tick_idents in - FStar_Ident.range_of_id uu___2 in + let uu___2 = FStarC_Compiler_List.hd non_tick_idents in + FStarC_Ident.range_of_id uu___2 in PulseSyntaxExtension_Err.fail uu___ uu___1 else (let erased_tm = - FStar_Parser_AST.mk_term - (FStar_Parser_AST.Var FStar_Parser_Const.erased_lid) - FStar_Compiler_Range_Type.dummyRange FStar_Parser_AST.Un in + FStarC_Parser_AST.mk_term + (FStarC_Parser_AST.Var FStarC_Parser_Const.erased_lid) + FStarC_Compiler_Range_Type.dummyRange FStarC_Parser_AST.Un in let mk_ty i = let wild = - let uu___1 = FStar_Ident.range_of_id i in - FStar_Parser_AST.mk_term FStar_Parser_AST.Wild uu___1 - FStar_Parser_AST.Un in - let uu___1 = FStar_Ident.range_of_id i in - FStar_Parser_AST.mkApp erased_tm - [(wild, FStar_Parser_AST.Nothing)] uu___1 in + let uu___1 = FStarC_Ident.range_of_id i in + FStarC_Parser_AST.mk_term FStarC_Parser_AST.Wild uu___1 + FStarC_Parser_AST.Un in + let uu___1 = FStarC_Ident.range_of_id i in + FStarC_Parser_AST.mkApp erased_tm + [(wild, FStarC_Parser_AST.Nothing)] uu___1 in let rec aux uu___4 uu___3 uu___2 uu___1 = (fun env1 -> fun binders -> @@ -398,8 +398,8 @@ let (idents_as_binders : Obj.magic (Obj.repr (PulseSyntaxExtension_Err.return - (env1, (FStar_Compiler_List.rev binders), - (FStar_Compiler_List.rev bvs)))) + (env1, (FStarC_Compiler_List.rev binders), + (FStarC_Compiler_List.rev bvs)))) | i::l2 -> Obj.magic (Obj.repr @@ -412,7 +412,7 @@ let (idents_as_binders : true in let ty = mk_ty i in let uu___2 = desugar_term env2 ty in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -432,19 +432,19 @@ let (idents_as_binders : aux env [] [] l) let rec (interpret_slprop_constructors : PulseSyntaxExtension_Env.env_t -> - FStar_Syntax_Syntax.term -> + FStarC_Syntax_Syntax.term -> PulseSyntaxExtension_SyntaxWrapper.term PulseSyntaxExtension_Err.err) = fun uu___1 -> fun uu___ -> (fun env -> fun v -> - let uu___ = FStar_Syntax_Util.head_and_args_full v in + let uu___ = FStarC_Syntax_Util.head_and_args_full v in match uu___ with | (head, args) -> - (match ((head.FStar_Syntax_Syntax.n), args) with - | (FStar_Syntax_Syntax.Tm_fvar fv, (l, uu___1)::[]) when - FStar_Syntax_Syntax.fv_eq_lid fv + (match ((head.FStarC_Syntax_Syntax.n), args) with + | (FStarC_Syntax_Syntax.Tm_fvar fv, (l, uu___1)::[]) when + FStarC_Syntax_Syntax.fv_eq_lid fv PulseSyntaxExtension_Env.pure_lid -> Obj.magic @@ -452,27 +452,27 @@ let rec (interpret_slprop_constructors : (let res = let uu___2 = as_term l in PulseSyntaxExtension_SyntaxWrapper.tm_pure uu___2 - v.FStar_Syntax_Syntax.pos in + v.FStarC_Syntax_Syntax.pos in PulseSyntaxExtension_Err.return res)) - | (FStar_Syntax_Syntax.Tm_fvar fv, []) when - FStar_Syntax_Syntax.fv_eq_lid fv + | (FStarC_Syntax_Syntax.Tm_fvar fv, []) when + FStarC_Syntax_Syntax.fv_eq_lid fv PulseSyntaxExtension_Env.emp_lid -> Obj.magic (Obj.repr (let uu___1 = PulseSyntaxExtension_SyntaxWrapper.tm_emp - v.FStar_Syntax_Syntax.pos in + v.FStarC_Syntax_Syntax.pos in PulseSyntaxExtension_Err.return uu___1)) - | (FStar_Syntax_Syntax.Tm_fvar fv, + | (FStarC_Syntax_Syntax.Tm_fvar fv, (l, uu___1)::(r, uu___2)::[]) when - FStar_Syntax_Syntax.fv_eq_lid fv + FStarC_Syntax_Syntax.fv_eq_lid fv PulseSyntaxExtension_Env.star_lid -> Obj.magic (Obj.repr (let uu___3 = interpret_slprop_constructors env l in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> @@ -481,7 +481,7 @@ let rec (interpret_slprop_constructors : let uu___4 = interpret_slprop_constructors env r in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___4) (fun uu___5 -> @@ -490,36 +490,36 @@ let rec (interpret_slprop_constructors : let uu___5 = PulseSyntaxExtension_SyntaxWrapper.tm_star l1 r1 - v.FStar_Syntax_Syntax.pos in + v.FStarC_Syntax_Syntax.pos in Obj.magic (PulseSyntaxExtension_Err.return uu___5)) uu___5))) uu___4))) - | (FStar_Syntax_Syntax.Tm_fvar fv, (l, uu___1)::[]) when - FStar_Syntax_Syntax.fv_eq_lid fv + | (FStarC_Syntax_Syntax.Tm_fvar fv, (l, uu___1)::[]) when + FStarC_Syntax_Syntax.fv_eq_lid fv PulseSyntaxExtension_Env.exists_lid -> Obj.magic (Obj.repr (let uu___2 = - let uu___3 = FStar_Syntax_Subst.compress l in - uu___3.FStar_Syntax_Syntax.n in + let uu___3 = FStarC_Syntax_Subst.compress l in + uu___3.FStarC_Syntax_Syntax.n in match uu___2 with - | FStar_Syntax_Syntax.Tm_abs - { FStar_Syntax_Syntax.bs = b::[]; - FStar_Syntax_Syntax.body = body; - FStar_Syntax_Syntax.rc_opt = uu___3;_} + | FStarC_Syntax_Syntax.Tm_abs + { FStarC_Syntax_Syntax.bs = b::[]; + FStarC_Syntax_Syntax.body = body; + FStarC_Syntax_Syntax.rc_opt = uu___3;_} -> Obj.repr (let b1 = let uu___4 = as_term - (b.FStar_Syntax_Syntax.binder_bv).FStar_Syntax_Syntax.sort in + (b.FStarC_Syntax_Syntax.binder_bv).FStarC_Syntax_Syntax.sort in PulseSyntaxExtension_SyntaxWrapper.mk_binder - (b.FStar_Syntax_Syntax.binder_bv).FStar_Syntax_Syntax.ppname + (b.FStarC_Syntax_Syntax.binder_bv).FStarC_Syntax_Syntax.ppname uu___4 in let uu___4 = interpret_slprop_constructors env body in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___4) (fun uu___5 -> @@ -528,7 +528,7 @@ let rec (interpret_slprop_constructors : let uu___5 = PulseSyntaxExtension_SyntaxWrapper.tm_exists b1 body1 - v.FStar_Syntax_Syntax.pos in + v.FStarC_Syntax_Syntax.pos in Obj.magic (PulseSyntaxExtension_Err.return uu___5)) uu___5)) @@ -536,32 +536,32 @@ let rec (interpret_slprop_constructors : Obj.repr (let uu___4 = as_term v in PulseSyntaxExtension_Err.return uu___4))) - | (FStar_Syntax_Syntax.Tm_fvar fv, (l, uu___1)::[]) when - FStar_Syntax_Syntax.fv_eq_lid fv + | (FStarC_Syntax_Syntax.Tm_fvar fv, (l, uu___1)::[]) when + FStarC_Syntax_Syntax.fv_eq_lid fv PulseSyntaxExtension_Env.forall_lid -> Obj.magic (Obj.repr (let uu___2 = - let uu___3 = FStar_Syntax_Subst.compress l in - uu___3.FStar_Syntax_Syntax.n in + let uu___3 = FStarC_Syntax_Subst.compress l in + uu___3.FStarC_Syntax_Syntax.n in match uu___2 with - | FStar_Syntax_Syntax.Tm_abs - { FStar_Syntax_Syntax.bs = b::[]; - FStar_Syntax_Syntax.body = body; - FStar_Syntax_Syntax.rc_opt = uu___3;_} + | FStarC_Syntax_Syntax.Tm_abs + { FStarC_Syntax_Syntax.bs = b::[]; + FStarC_Syntax_Syntax.body = body; + FStarC_Syntax_Syntax.rc_opt = uu___3;_} -> Obj.repr (let b1 = let uu___4 = as_term - (b.FStar_Syntax_Syntax.binder_bv).FStar_Syntax_Syntax.sort in + (b.FStarC_Syntax_Syntax.binder_bv).FStarC_Syntax_Syntax.sort in PulseSyntaxExtension_SyntaxWrapper.mk_binder - (b.FStar_Syntax_Syntax.binder_bv).FStar_Syntax_Syntax.ppname + (b.FStarC_Syntax_Syntax.binder_bv).FStarC_Syntax_Syntax.ppname uu___4 in let uu___4 = interpret_slprop_constructors env body in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___4) (fun uu___5 -> @@ -570,7 +570,7 @@ let rec (interpret_slprop_constructors : let uu___5 = PulseSyntaxExtension_SyntaxWrapper.tm_forall b1 body1 - v.FStar_Syntax_Syntax.pos in + v.FStarC_Syntax_Syntax.pos in Obj.magic (PulseSyntaxExtension_Err.return uu___5)) uu___5)) @@ -578,18 +578,18 @@ let rec (interpret_slprop_constructors : Obj.repr (let uu___4 = as_term v in PulseSyntaxExtension_Err.return uu___4))) - | (FStar_Syntax_Syntax.Tm_fvar fv, (l, uu___1)::[]) when - (FStar_Syntax_Syntax.fv_eq_lid fv + | (FStarC_Syntax_Syntax.Tm_fvar fv, (l, uu___1)::[]) when + (FStarC_Syntax_Syntax.fv_eq_lid fv PulseSyntaxExtension_Env.prims_exists_lid) || - (FStar_Syntax_Syntax.fv_eq_lid fv + (FStarC_Syntax_Syntax.fv_eq_lid fv PulseSyntaxExtension_Env.prims_forall_lid) -> Obj.magic (Obj.repr (PulseSyntaxExtension_Err.fail "exists/forall are prop connectives; you probably meant to use exists*/forall*" - v.FStar_Syntax_Syntax.pos)) + v.FStarC_Syntax_Syntax.pos)) | uu___1 -> Obj.magic (Obj.repr @@ -609,7 +609,7 @@ let (desugar_slprop : | PulseSyntaxExtension_Sugar.SLPropTerm t -> let uu___ = tosyntax env t in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -629,7 +629,7 @@ let (desugar_computation_type : let uu___ = desugar_slprop env c.PulseSyntaxExtension_Sugar.precondition in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> (fun pre -> @@ -638,7 +638,7 @@ let (desugar_computation_type : desugar_term env c.PulseSyntaxExtension_Sugar.return_type in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -653,7 +653,7 @@ let (desugar_computation_type : PulseSyntaxExtension_Err.return PulseSyntaxExtension_SyntaxWrapper.tm_emp_inames in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -669,7 +669,7 @@ let (desugar_computation_type : desugar_slprop env1 c.PulseSyntaxExtension_Sugar.postcondition in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___4) (fun uu___5 -> @@ -679,7 +679,7 @@ let (desugar_computation_type : let post1 = PulseSyntaxExtension_SyntaxWrapper.close_term post - bv.FStar_Syntax_Syntax.index in + bv.FStarC_Syntax_Syntax.index in match c.PulseSyntaxExtension_Sugar.tag with | PulseSyntaxExtension_Sugar.ST @@ -696,11 +696,11 @@ let (desugar_computation_type : PulseSyntaxExtension_Err.fail "STT computations are not indexed by invariants. Either remove the `opens` or make this function ghost/atomic." (FStar_Pervasives_Native.__proj__Some__item__v - c.PulseSyntaxExtension_Sugar.opens).FStar_Parser_AST.range + c.PulseSyntaxExtension_Sugar.opens).FStarC_Parser_AST.range else PulseSyntaxExtension_Err.return () in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () uu___5 @@ -793,22 +793,22 @@ let (explicit_rvalues : type qual = PulseSyntaxExtension_SyntaxWrapper.qualifier FStar_Pervasives_Native.option let (as_qual : - FStar_Parser_AST.aqual -> - FStar_Compiler_Range_Type.range -> qual PulseSyntaxExtension_Err.err) + FStarC_Parser_AST.aqual -> + FStarC_Compiler_Range_Type.range -> qual PulseSyntaxExtension_Err.err) = fun q -> fun rng -> match q with - | FStar_Pervasives_Native.Some (FStar_Parser_AST.Implicit) -> + | FStar_Pervasives_Native.Some (FStarC_Parser_AST.Implicit) -> let uu___ = PulseSyntaxExtension_SyntaxWrapper.as_qual true in PulseSyntaxExtension_Err.return uu___ - | FStar_Pervasives_Native.Some (FStar_Parser_AST.TypeClassArg) -> + | FStar_Pervasives_Native.Some (FStarC_Parser_AST.TypeClassArg) -> PulseSyntaxExtension_Err.return PulseSyntaxExtension_SyntaxWrapper.tc_qual - | FStar_Pervasives_Native.Some (FStar_Parser_AST.Meta t) -> + | FStar_Pervasives_Native.Some (FStarC_Parser_AST.Meta t) -> PulseSyntaxExtension_Err.fail "Pulse does not yet support meta arguments" rng - | FStar_Pervasives_Native.Some (FStar_Parser_AST.Equality) -> + | FStar_Pervasives_Native.Some (FStarC_Parser_AST.Equality) -> PulseSyntaxExtension_Err.fail "Pulse does not yet support equality arguments" rng | FStar_Pervasives_Native.None -> @@ -816,7 +816,7 @@ let (as_qual : PulseSyntaxExtension_Err.return uu___ let (desugar_tac_opt : PulseSyntaxExtension_Env.env_t -> - FStar_Parser_AST.term FStar_Pervasives_Native.option -> + FStarC_Parser_AST.term FStar_Pervasives_Native.option -> PulseSyntaxExtension_SyntaxWrapper.term FStar_Pervasives_Native.option PulseSyntaxExtension_Err.err) = @@ -834,12 +834,12 @@ let (desugar_tac_opt : Obj.magic (Obj.repr (let tactics_module_lid = - FStar_Ident.lid_of_str "FStar.Tactics.V2" in + FStarC_Ident.lid_of_str "FStar.Tactics.V2" in let env1 = PulseSyntaxExtension_Env.push_namespace env tactics_module_lid in let uu___ = desugar_term env1 t in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -864,7 +864,7 @@ let (desugar_hint_type : Obj.magic (Obj.repr (let uu___ = desugar_slprop env vp in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -880,7 +880,7 @@ let (desugar_hint_type : Obj.magic (Obj.repr (let uu___ = desugar_slprop env vp in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -889,16 +889,16 @@ let (desugar_hint_type : let uu___1 = PulseSyntaxExtension_Env.resolve_names env ns in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> (fun ns1 -> let ns1 = Obj.magic ns1 in let ns2 = - FStar_Compiler_Util.map_opt ns1 - (FStar_Compiler_List.map - FStar_Ident.string_of_lid) in + FStarC_Compiler_Util.map_opt ns1 + (FStarC_Compiler_List.map + FStarC_Ident.string_of_lid) in let uu___2 = PulseSyntaxExtension_SyntaxWrapper.mk_unfold_hint_type ns2 vp1 in @@ -909,7 +909,7 @@ let (desugar_hint_type : Obj.magic (Obj.repr (let uu___ = desugar_slprop env vp in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -918,16 +918,16 @@ let (desugar_hint_type : let uu___1 = PulseSyntaxExtension_Env.resolve_names env ns in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> (fun ns1 -> let ns1 = Obj.magic ns1 in let ns2 = - FStar_Compiler_Util.map_opt ns1 - (FStar_Compiler_List.map - FStar_Ident.string_of_lid) in + FStarC_Compiler_Util.map_opt ns1 + (FStarC_Compiler_List.map + FStarC_Ident.string_of_lid) in let uu___2 = PulseSyntaxExtension_SyntaxWrapper.mk_fold_hint_type ns2 vp1 in @@ -939,7 +939,7 @@ let (desugar_hint_type : (Obj.repr (let uu___ = Obj.magic - (FStar_Class_Monad.mapM + (FStarC_Class_Monad.mapM PulseSyntaxExtension_Err.err_monad () () (fun uu___1 -> (fun uu___1 -> @@ -948,7 +948,7 @@ let (desugar_hint_type : | (t1, t2) -> let uu___2 = desugar_term env t1 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -957,7 +957,7 @@ let (desugar_hint_type : let uu___3 = desugar_term env t2 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) @@ -970,7 +970,7 @@ let (desugar_hint_type : (t11, t21))) uu___4))) uu___3))) uu___1) (Obj.magic pairs)) in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -980,7 +980,7 @@ let (desugar_hint_type : PulseSyntaxExtension_Err.map_err_opt (desugar_slprop env) goal in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -989,7 +989,7 @@ let (desugar_hint_type : let uu___2 = desugar_tac_opt env tac_opt in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -1007,7 +1007,7 @@ let (desugar_hint_type : Obj.magic (Obj.repr (let uu___ = desugar_slprop env t1 in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1015,7 +1015,7 @@ let (desugar_hint_type : let t11 = Obj.magic t11 in let uu___1 = desugar_slprop env t2 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -1024,7 +1024,7 @@ let (desugar_hint_type : let uu___2 = desugar_tac_opt env tac_opt in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -1052,48 +1052,48 @@ let (desugar_hint_type : PulseSyntaxExtension_Err.return uu___))) uu___1 uu___ let (desugar_datacon : PulseSyntaxExtension_Env.env_t -> - FStar_Ident.lid -> + FStarC_Ident.lid -> PulseSyntaxExtension_SyntaxWrapper.fv PulseSyntaxExtension_Err.err) = fun uu___1 -> fun uu___ -> (fun env -> fun l -> - let rng = FStar_Ident.range_of_lid l in + let rng = FStarC_Ident.range_of_lid l in let t = - FStar_Parser_AST.mk_term (FStar_Parser_AST.Name l) rng - FStar_Parser_AST.Expr in + FStarC_Parser_AST.mk_term (FStarC_Parser_AST.Name l) rng + FStarC_Parser_AST.Expr in let uu___ = tosyntax env t in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> (fun tt -> let tt = Obj.magic tt in let uu___1 = let uu___2 = - let uu___3 = FStar_Syntax_Subst.compress tt in - uu___3.FStar_Syntax_Syntax.n in + let uu___3 = FStarC_Syntax_Subst.compress tt in + uu___3.FStarC_Syntax_Syntax.n in match uu___2 with - | FStar_Syntax_Syntax.Tm_fvar fv -> + | FStarC_Syntax_Syntax.Tm_fvar fv -> PulseSyntaxExtension_Err.return fv - | FStar_Syntax_Syntax.Tm_uinst + | FStarC_Syntax_Syntax.Tm_uinst ({ - FStar_Syntax_Syntax.n = - FStar_Syntax_Syntax.Tm_fvar fv; - FStar_Syntax_Syntax.pos = uu___3; - FStar_Syntax_Syntax.vars = uu___4; - FStar_Syntax_Syntax.hash_code = uu___5;_}, + FStarC_Syntax_Syntax.n = + FStarC_Syntax_Syntax.Tm_fvar fv; + FStarC_Syntax_Syntax.pos = uu___3; + FStarC_Syntax_Syntax.vars = uu___4; + FStarC_Syntax_Syntax.hash_code = uu___5;_}, uu___6) -> PulseSyntaxExtension_Err.return fv | uu___3 -> let uu___4 = - let uu___5 = FStar_Ident.string_of_lid l in - FStar_Compiler_Util.format1 "Not a datacon? %s" + let uu___5 = FStarC_Ident.string_of_lid l in + FStarC_Compiler_Util.format1 "Not a datacon? %s" uu___5 in PulseSyntaxExtension_Err.fail uu___4 rng in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -1101,7 +1101,7 @@ let (desugar_datacon : let sfv = Obj.magic sfv in let uu___2 = let uu___3 = - FStar_Syntax_Syntax.lid_of_fv sfv in + FStarC_Syntax_Syntax.lid_of_fv sfv in PulseSyntaxExtension_SyntaxWrapper.mk_fv uu___3 rng in Obj.magic @@ -1122,7 +1122,7 @@ let rec (desugar_stmt : Obj.magic (Obj.repr (let uu___ = tosyntax env e in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1141,7 +1141,7 @@ let rec (desugar_stmt : Obj.magic (Obj.repr (let uu___ = tosyntax env lhs in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1149,7 +1149,7 @@ let rec (desugar_stmt : let lhs1 = Obj.magic lhs1 in let uu___1 = tosyntax env value in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -1162,7 +1162,7 @@ let rec (desugar_stmt : PulseSyntaxExtension_Env.resolve_lid env uu___3 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -1186,7 +1186,7 @@ let rec (desugar_stmt : Obj.magic (Obj.repr (let uu___ = tosyntax env arr in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1194,7 +1194,7 @@ let rec (desugar_stmt : let arr1 = Obj.magic arr1 in let uu___1 = tosyntax env index in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -1202,7 +1202,7 @@ let rec (desugar_stmt : let index1 = Obj.magic index1 in let uu___2 = tosyntax env value in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -1216,7 +1216,7 @@ let rec (desugar_stmt : PulseSyntaxExtension_Env.resolve_lid env uu___4 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) @@ -1261,15 +1261,15 @@ let rec (desugar_stmt : l in PulseSyntaxExtension_Err.return env1) () with - | FStar_Errors.Error (e, msg, r, ctx) -> + | FStarC_Errors.Error (e, msg, r, ctx) -> let uu___2 = - let uu___3 = FStar_Ident.string_of_lid l in - let uu___4 = FStar_Ident.string_of_lid l in - FStar_Compiler_Util.format2 + let uu___3 = FStarC_Ident.string_of_lid l in + let uu___4 = FStarC_Ident.string_of_lid l in + FStarC_Compiler_Util.format2 "Failed to open namespace %s; You may need to bind this namespace outside Pulse for the F* dependency scanner to pick it up, e.g., write ``module _X = %s`` in F*" uu___3 uu___4 in PulseSyntaxExtension_Err.fail uu___2 range in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1287,19 +1287,19 @@ let rec (desugar_stmt : -> Obj.magic (Obj.repr - (match (lb.PulseSyntaxExtension_Sugar.pat).FStar_Parser_AST.pat + (match (lb.PulseSyntaxExtension_Sugar.pat).FStarC_Parser_AST.pat with - | FStar_Parser_AST.PatVar uu___1 -> + | FStarC_Parser_AST.PatVar uu___1 -> Obj.repr (desugar_bind env lb s2 s.PulseSyntaxExtension_Sugar.range1) - | FStar_Parser_AST.PatWild uu___1 -> + | FStarC_Parser_AST.PatWild uu___1 -> Obj.repr (desugar_bind env lb s2 s.PulseSyntaxExtension_Sugar.range1) | uu___1 -> Obj.repr - (let id = FStar_Ident.id_of_text "_letpattern" in + (let id = FStarC_Ident.id_of_text "_letpattern" in let pat = lb.PulseSyntaxExtension_Sugar.pat in let uu___2 = if @@ -1308,21 +1308,21 @@ let rec (desugar_stmt : then PulseSyntaxExtension_Err.fail "Qualifiers are not allowed for pattern bindings" - (lb.PulseSyntaxExtension_Sugar.pat).FStar_Parser_AST.prange + (lb.PulseSyntaxExtension_Sugar.pat).FStarC_Parser_AST.prange else PulseSyntaxExtension_Err.return () in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () uu___2 (fun uu___3 -> (fun uu___3 -> let uu___3 = Obj.magic uu___3 in let lb' = let uu___4 = - FStar_Parser_AST.mk_pattern - (FStar_Parser_AST.PatVar + FStarC_Parser_AST.mk_pattern + (FStarC_Parser_AST.PatVar (id, FStar_Pervasives_Native.None, [])) - (lb.PulseSyntaxExtension_Sugar.pat).FStar_Parser_AST.prange in + (lb.PulseSyntaxExtension_Sugar.pat).FStarC_Parser_AST.prange in { PulseSyntaxExtension_Sugar.qualifier = @@ -1343,10 +1343,10 @@ let rec (desugar_stmt : let uu___4 = let uu___5 = let uu___6 = - FStar_Parser_AST.mk_term - (FStar_Parser_AST.Tvar id) - (lb.PulseSyntaxExtension_Sugar.pat).FStar_Parser_AST.prange - FStar_Parser_AST.Expr in + FStarC_Parser_AST.mk_term + (FStarC_Parser_AST.Tvar id) + (lb.PulseSyntaxExtension_Sugar.pat).FStarC_Parser_AST.prange + FStarC_Parser_AST.Expr in { PulseSyntaxExtension_Sugar.head1 = uu___6; @@ -1409,7 +1409,7 @@ let rec (desugar_stmt : Obj.magic (Obj.repr (let uu___ = desugar_term env head in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1428,7 +1428,7 @@ let rec (desugar_stmt : Obj.magic (Obj.repr (let uu___2 = desugar_slprop env t in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -1439,7 +1439,7 @@ let rec (desugar_stmt : (FStar_Pervasives_Native.Some vp))) uu___3))) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -1448,7 +1448,7 @@ let rec (desugar_stmt : Obj.magic join_slprop1 in let uu___2 = desugar_stmt env then_ in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -1462,18 +1462,18 @@ let rec (desugar_stmt : let uu___4 = let uu___5 = PulseSyntaxExtension_SyntaxWrapper.tm_expr - FStar_Syntax_Syntax.unit_const - FStar_Compiler_Range_Type.dummyRange in + FStarC_Syntax_Syntax.unit_const + FStarC_Compiler_Range_Type.dummyRange in PulseSyntaxExtension_SyntaxWrapper.tm_return uu___5 - FStar_Compiler_Range_Type.dummyRange in + FStarC_Compiler_Range_Type.dummyRange in PulseSyntaxExtension_Err.return uu___4 | FStar_Pervasives_Native.Some e -> desugar_stmt env e in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) @@ -1502,7 +1502,7 @@ let rec (desugar_stmt : Obj.magic (Obj.repr (let uu___ = desugar_term env head in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1515,7 +1515,7 @@ let rec (desugar_stmt : | (uu___3, t, _opens) -> desugar_slprop env t) returns_annot in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -1524,7 +1524,7 @@ let rec (desugar_stmt : Obj.magic returns_annot1 in let uu___2 = Obj.magic - (FStar_Class_Monad.mapM + (FStarC_Class_Monad.mapM PulseSyntaxExtension_Err.err_monad () () (fun uu___3 -> @@ -1533,7 +1533,7 @@ let rec (desugar_stmt : uu___3) (Obj.magic branches)) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -1558,7 +1558,7 @@ let rec (desugar_stmt : Obj.magic (Obj.repr (let uu___ = desugar_stmt env guard in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1571,7 +1571,7 @@ let rec (desugar_stmt : | (env1, bv) -> let uu___3 = desugar_slprop env1 invariant in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> @@ -1580,12 +1580,12 @@ let rec (desugar_stmt : let uu___4 = PulseSyntaxExtension_SyntaxWrapper.close_term inv - bv.FStar_Syntax_Syntax.index in + bv.FStarC_Syntax_Syntax.index in Obj.magic (PulseSyntaxExtension_Err.return uu___4)) uu___4)) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -1593,7 +1593,7 @@ let rec (desugar_stmt : let invariant1 = Obj.magic invariant1 in let uu___2 = desugar_stmt env body in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -1616,7 +1616,7 @@ let rec (desugar_stmt : Obj.magic (Obj.repr (let uu___ = desugar_slprop env slprop in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1632,7 +1632,7 @@ let rec (desugar_stmt : "introduce expects an existential formula" s.PulseSyntaxExtension_Sugar.range1 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () uu___1 (fun uu___2 -> @@ -1640,7 +1640,7 @@ let rec (desugar_stmt : let uu___2 = Obj.magic uu___2 in let uu___3 = Obj.magic - (FStar_Class_Monad.mapM + (FStarC_Class_Monad.mapM PulseSyntaxExtension_Err.err_monad () () (fun uu___4 -> @@ -1649,7 +1649,7 @@ let rec (desugar_stmt : uu___4) (Obj.magic witnesses)) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> @@ -1675,7 +1675,7 @@ let rec (desugar_stmt : Obj.magic (Obj.repr (let uu___ = desugar_slprop env p1 in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1683,7 +1683,7 @@ let rec (desugar_stmt : let p11 = Obj.magic p11 in let uu___1 = desugar_slprop env p2 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -1691,7 +1691,7 @@ let rec (desugar_stmt : let p21 = Obj.magic p21 in let uu___2 = desugar_slprop env q1 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -1700,7 +1700,7 @@ let rec (desugar_stmt : let uu___3 = desugar_slprop env q2 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) @@ -1712,7 +1712,7 @@ let rec (desugar_stmt : desugar_stmt env b1 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -1729,7 +1729,7 @@ let rec (desugar_stmt : desugar_stmt env b2 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -1768,7 +1768,7 @@ let rec (desugar_stmt : Obj.magic (Obj.repr (let uu___ = tosyntax env n1 in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1776,13 +1776,13 @@ let rec (desugar_stmt : let n11 = Obj.magic n11 in let uu___1 = Obj.magic - (FStar_Class_Monad.mapM + (FStarC_Class_Monad.mapM PulseSyntaxExtension_Err.err_monad () () (fun uu___2 -> (Obj.magic (tosyntax env)) uu___2) (Obj.magic names)) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -1790,7 +1790,7 @@ let rec (desugar_stmt : let names1 = Obj.magic names1 in let uu___2 = desugar_stmt env body in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -1809,7 +1809,7 @@ let rec (desugar_stmt : let all_names = n11 :: names1 in let opens_tm1 = - FStar_Compiler_List.fold_left + FStarC_Compiler_List.fold_left (fun names2 -> fun n -> let uu___4 @@ -1841,7 +1841,7 @@ let rec (desugar_stmt : (let uu___4 = desugar_slprop env v in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -1856,7 +1856,7 @@ let rec (desugar_stmt : let b = let uu___5 = - FStar_Ident.id_of_text + FStarC_Ident.id_of_text "_" in let uu___6 = @@ -1870,7 +1870,7 @@ let rec (desugar_stmt : opens_tm opens_opt in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -1900,7 +1900,7 @@ let rec (desugar_stmt : (let uu___4 = desugar_term env t in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -1926,7 +1926,7 @@ let rec (desugar_stmt : desugar_slprop env1 v in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -1941,7 +1941,7 @@ let rec (desugar_stmt : let v2 = PulseSyntaxExtension_SyntaxWrapper.close_term v1 - bv.FStar_Syntax_Syntax.index in + bv.FStarC_Syntax_Syntax.index in let b = PulseSyntaxExtension_SyntaxWrapper.mk_binder x t1 in @@ -1950,7 +1950,7 @@ let rec (desugar_stmt : opens_tm opens_opt in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -1972,7 +1972,7 @@ let rec (desugar_stmt : uu___7))) uu___5))) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) @@ -1982,7 +1982,7 @@ let rec (desugar_stmt : Obj.magic returns_1 in let tt = - FStar_Compiler_List.fold_right + FStarC_Compiler_List.fold_right (fun nm -> fun body2 -> @@ -2012,7 +2012,7 @@ let rec (desugar_stmt : uu___2))) uu___1)))) uu___1 uu___ and (desugar_branch : PulseSyntaxExtension_Env.env_t -> - (FStar_Parser_AST.pattern * PulseSyntaxExtension_Sugar.stmt) -> + (FStarC_Parser_AST.pattern * PulseSyntaxExtension_Sugar.stmt) -> PulseSyntaxExtension_SyntaxWrapper.branch PulseSyntaxExtension_Err.err) = fun uu___1 -> @@ -2024,7 +2024,7 @@ and (desugar_branch : | (p, e) -> let uu___1 = desugar_pat env p in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -2038,7 +2038,7 @@ and (desugar_branch : | (env1, bvs) -> let uu___4 = desugar_stmt env1 e in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___4) (fun uu___5 -> @@ -2046,9 +2046,9 @@ and (desugar_branch : let e1 = Obj.magic e1 in let e2 = let uu___5 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun v -> - v.FStar_Syntax_Syntax.index) + v.FStarC_Syntax_Syntax.index) bvs in PulseSyntaxExtension_SyntaxWrapper.close_st_term_n e1 uu___5 in @@ -2058,35 +2058,35 @@ and (desugar_branch : uu___2))) uu___1 uu___ and (desugar_pat : PulseSyntaxExtension_Env.env_t -> - FStar_Parser_AST.pattern -> - (PulseSyntaxExtension_SyntaxWrapper.pattern * FStar_Ident.ident + FStarC_Parser_AST.pattern -> + (PulseSyntaxExtension_SyntaxWrapper.pattern * FStarC_Ident.ident Prims.list) PulseSyntaxExtension_Err.err) = fun uu___1 -> fun uu___ -> (fun env -> fun p -> - let r = p.FStar_Parser_AST.prange in - match p.FStar_Parser_AST.pat with - | FStar_Parser_AST.PatVar (id, uu___, uu___1) -> + let r = p.FStarC_Parser_AST.prange in + match p.FStarC_Parser_AST.pat with + | FStarC_Parser_AST.PatVar (id, uu___, uu___1) -> Obj.magic (Obj.repr (let uu___2 = let uu___3 = - let uu___4 = FStar_Ident.string_of_id id in + let uu___4 = FStarC_Ident.string_of_id id in PulseSyntaxExtension_SyntaxWrapper.pat_var uu___4 r in (uu___3, [id]) in PulseSyntaxExtension_Err.return uu___2)) - | FStar_Parser_AST.PatWild uu___ -> + | FStarC_Parser_AST.PatWild uu___ -> Obj.magic (Obj.repr - (let id = FStar_Ident.mk_ident ("_", r) in + (let id = FStarC_Ident.mk_ident ("_", r) in let uu___1 = let uu___2 = PulseSyntaxExtension_SyntaxWrapper.pat_var "_" r in (uu___2, [id]) in PulseSyntaxExtension_Err.return uu___1)) - | FStar_Parser_AST.PatConst c -> + | FStarC_Parser_AST.PatConst c -> Obj.magic (Obj.repr (let c1 = desugar_const c in @@ -2095,11 +2095,11 @@ and (desugar_pat : PulseSyntaxExtension_SyntaxWrapper.pat_constant c1 r in (uu___1, []) in PulseSyntaxExtension_Err.return uu___)) - | FStar_Parser_AST.PatName lid -> + | FStarC_Parser_AST.PatName lid -> Obj.magic (Obj.repr (let uu___ = desugar_datacon env lid in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -2113,15 +2113,15 @@ and (desugar_pat : Obj.magic (PulseSyntaxExtension_Err.return uu___1)) uu___1))) - | FStar_Parser_AST.PatApp - ({ FStar_Parser_AST.pat = FStar_Parser_AST.PatName lid; - FStar_Parser_AST.prange = uu___;_}, + | FStarC_Parser_AST.PatApp + ({ FStarC_Parser_AST.pat = FStarC_Parser_AST.PatName lid; + FStarC_Parser_AST.prange = uu___;_}, args) -> Obj.magic (Obj.repr (let uu___1 = desugar_datacon env lid in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -2129,21 +2129,21 @@ and (desugar_pat : let fv = Obj.magic fv in let uu___2 = Obj.magic - (FStar_Class_Monad.mapM + (FStarC_Class_Monad.mapM PulseSyntaxExtension_Err.err_monad () () (fun uu___3 -> (fun p1 -> let p1 = Obj.magic p1 in - match p1.FStar_Parser_AST.pat with - | FStar_Parser_AST.PatVar + match p1.FStarC_Parser_AST.pat with + | FStarC_Parser_AST.PatVar (id, uu___3, uu___4) -> Obj.magic (PulseSyntaxExtension_Err.return id) - | FStar_Parser_AST.PatWild uu___3 + | FStarC_Parser_AST.PatWild uu___3 -> let uu___4 = - FStar_Ident.mk_ident ("_", r) in + FStarC_Ident.mk_ident ("_", r) in Obj.magic (PulseSyntaxExtension_Err.return uu___4) @@ -2154,17 +2154,17 @@ and (desugar_pat : r)) uu___3) (Obj.magic args)) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> (fun idents -> let idents = Obj.magic idents in let strs = - FStar_Compiler_List.map - FStar_Ident.string_of_id idents in + FStarC_Compiler_List.map + FStarC_Ident.string_of_id idents in let pats = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun s -> PulseSyntaxExtension_SyntaxWrapper.pat_var s r) strs in @@ -2185,7 +2185,7 @@ and (desugar_bind : PulseSyntaxExtension_Env.env_t -> PulseSyntaxExtension_Sugar.stmt'__LetBinding__payload -> PulseSyntaxExtension_Sugar.stmt -> - FStar_Compiler_Range_Type.range -> + FStarC_Compiler_Range_Type.range -> PulseSyntaxExtension_SyntaxWrapper.st_term PulseSyntaxExtension_Err.err) = @@ -2200,18 +2200,18 @@ and (desugar_bind : let uu___ = desugar_term_opt env lb.PulseSyntaxExtension_Sugar.typ in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> (fun annot -> let annot = Obj.magic annot in let id = - match (lb.PulseSyntaxExtension_Sugar.pat).FStar_Parser_AST.pat + match (lb.PulseSyntaxExtension_Sugar.pat).FStarC_Parser_AST.pat with - | FStar_Parser_AST.PatWild uu___1 -> - FStar_Ident.mk_ident ("_", r) - | FStar_Parser_AST.PatVar + | FStarC_Parser_AST.PatWild uu___1 -> + FStarC_Ident.mk_ident ("_", r) + | FStarC_Parser_AST.PatVar (id1, uu___1, uu___2) -> id1 in let b = PulseSyntaxExtension_SyntaxWrapper.mk_binder @@ -2223,7 +2223,7 @@ and (desugar_bind : | (env1, bv) -> let uu___3 = desugar_stmt env1 s2 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> @@ -2232,12 +2232,12 @@ and (desugar_bind : let uu___4 = PulseSyntaxExtension_SyntaxWrapper.close_st_term s21 - bv.FStar_Syntax_Syntax.index in + bv.FStarC_Syntax_Syntax.index in Obj.magic (PulseSyntaxExtension_Err.return uu___4)) uu___4)) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -2307,7 +2307,7 @@ and (desugar_bind : let uu___3 = desugar_lambda env lam in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -2341,7 +2341,7 @@ and (desugar_bind : (let uu___2 = tosyntax env e11 in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -2385,7 +2385,7 @@ and (desugar_bind : (let uu___2 = desugar_stmt env e in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -2422,7 +2422,7 @@ and (desugar_bind : let uu___2 = desugar_term env init in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -2440,7 +2440,7 @@ and (desugar_bind : desugar_term env len in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -2469,7 +2469,7 @@ and (desugar_bind : let uu___2 = desugar_term env e11 in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -2508,7 +2508,7 @@ and (desugar_bind : let uu___2 = desugar_term env init in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -2526,7 +2526,7 @@ and (desugar_bind : desugar_term env len in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -2555,7 +2555,7 @@ and (desugar_bind : let uu___2 = desugar_term env e11 in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -2596,7 +2596,7 @@ and (desugar_sequence : fun r -> let uu___ = desugar_stmt env s1 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -2604,7 +2604,7 @@ and (desugar_sequence : let s11 = Obj.magic s11 in let uu___1 = desugar_stmt env s2 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -2612,7 +2612,7 @@ and (desugar_sequence : let s21 = Obj.magic s21 in let annot = let uu___2 = - FStar_Ident.id_of_text "_" in + FStarC_Ident.id_of_text "_" in let uu___3 = PulseSyntaxExtension_SyntaxWrapper.tm_unknown r in @@ -2655,7 +2655,7 @@ and (desugar_proof_hint_with_binders : PulseSyntaxExtension_SyntaxWrapper.tm_fvar assume_fv in let uu___ = desugar_slprop env p in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -2671,7 +2671,7 @@ and (desugar_proof_hint_with_binders : let uu___2 = let uu___3 = PulseSyntaxExtension_SyntaxWrapper.tm_expr - FStar_Syntax_Syntax.unit_const + FStarC_Syntax_Syntax.unit_const r in PulseSyntaxExtension_SyntaxWrapper.tm_ghost_return uu___3 r in @@ -2680,7 +2680,7 @@ and (desugar_proof_hint_with_binders : | FStar_Pervasives_Native.Some s2 -> desugar_stmt env s2 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -2688,7 +2688,7 @@ and (desugar_proof_hint_with_binders : let s2 = Obj.magic s2 in let annot = let uu___2 = - FStar_Ident.id_of_text + FStarC_Ident.id_of_text "_" in let uu___3 = PulseSyntaxExtension_SyntaxWrapper.tm_unknown @@ -2711,7 +2711,7 @@ and (desugar_proof_hint_with_binders : (Obj.repr (PulseSyntaxExtension_Err.fail "'assume' cannot have binders" - b1.FStar_Parser_AST.brange)) + b1.FStarC_Parser_AST.brange)) | PulseSyntaxExtension_Sugar.ProofHintWithBinders { PulseSyntaxExtension_Sugar.hint_type = hint_type; PulseSyntaxExtension_Sugar.binders = bs;_} @@ -2719,7 +2719,7 @@ and (desugar_proof_hint_with_binders : Obj.magic (Obj.repr (let uu___ = desugar_binders env bs in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -2728,14 +2728,14 @@ and (desugar_proof_hint_with_binders : match uu___1 with | (env1, binders, bvs) -> let vars = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun bv -> - bv.FStar_Syntax_Syntax.index) + bv.FStarC_Syntax_Syntax.index) bvs in let uu___2 = desugar_hint_type env1 hint_type in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -2748,7 +2748,7 @@ and (desugar_proof_hint_with_binders : let uu___4 = let uu___5 = PulseSyntaxExtension_SyntaxWrapper.tm_expr - FStar_Syntax_Syntax.unit_const + FStarC_Syntax_Syntax.unit_const r in PulseSyntaxExtension_SyntaxWrapper.tm_ghost_return uu___5 r in @@ -2759,7 +2759,7 @@ and (desugar_proof_hint_with_binders : desugar_stmt env1 s2 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) @@ -2768,7 +2768,7 @@ and (desugar_proof_hint_with_binders : let s2 = Obj.magic s2 in let binders1 = - FStar_Compiler_List.map + FStarC_Compiler_List.map FStar_Pervasives_Native.snd binders in let sub = @@ -2807,7 +2807,7 @@ and (desugar_binders : (PulseSyntaxExtension_SyntaxWrapper.qualifier FStar_Pervasives_Native.option * PulseSyntaxExtension_SyntaxWrapper.binder) Prims.list * - FStar_Syntax_Syntax.bv Prims.list) PulseSyntaxExtension_Err.err) + FStarC_Syntax_Syntax.bv Prims.list) PulseSyntaxExtension_Err.err) = fun uu___1 -> fun uu___ -> @@ -2824,13 +2824,13 @@ and (desugar_binders : | b::bs2 -> Obj.magic (Obj.repr - (let rng = b.FStar_Parser_AST.brange in + (let rng = b.FStarC_Parser_AST.brange in let uu___ = PulseSyntaxExtension_Env.destruct_binder b in match uu___ with | (aq, b1, t, attrs) -> let uu___1 = desugar_term env1 t in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -2838,7 +2838,7 @@ and (desugar_binders : let t1 = Obj.magic t1 in let uu___2 = Obj.magic - (FStar_Class_Monad.mapM + (FStarC_Class_Monad.mapM PulseSyntaxExtension_Err.err_monad () () (fun uu___3 -> @@ -2846,7 +2846,7 @@ and (desugar_binders : (desugar_term env1)) uu___3) (Obj.magic attrs)) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -2861,7 +2861,7 @@ and (desugar_binders : let uu___4 = aux env2 bs2 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___4) @@ -2881,7 +2881,7 @@ and (desugar_binders : as_qual aq rng in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -2908,7 +2908,7 @@ and (desugar_binders : uu___ in let uu___ = aux env bs in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> @@ -2917,7 +2917,7 @@ and (desugar_binders : | (env1, bs1, bvs) -> let uu___2 = let uu___3 = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun uu___4 -> match uu___4 with | (aq, b, t, attrs) -> @@ -2945,7 +2945,7 @@ and (desugar_lambda : PulseSyntaxExtension_Sugar.range2 = range;_} -> let uu___1 = desugar_binders env binders in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -2969,7 +2969,7 @@ and (desugar_lambda : env1 c in let uu___4 = idents_as_binders env1 fvs in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___4) (fun uu___5 -> @@ -2988,7 +2988,7 @@ and (desugar_lambda : desugar_computation_type env2 c in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___6) @@ -3007,7 +3007,7 @@ and (desugar_lambda : uu___7))) uu___5))) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> @@ -3018,7 +3018,7 @@ and (desugar_lambda : let uu___5 = let uu___6 = let uu___7 = - FStar_Options_Ext.get + FStarC_Options_Ext.get "pulse:rvalues" in uu___7 <> "" in if uu___6 @@ -3029,7 +3029,7 @@ and (desugar_lambda : PulseSyntaxExtension_Err.return body in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___5) (fun uu___6 -> @@ -3040,7 +3040,7 @@ and (desugar_lambda : desugar_stmt env2 body1 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -3057,7 +3057,7 @@ and (desugar_lambda : faux bs1 bvs1 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -3071,7 +3071,7 @@ and (desugar_lambda : qbs in let uu___8 = - FStar_Compiler_List.fold_right + FStarC_Compiler_List.fold_right (fun uu___9 -> fun @@ -3155,11 +3155,11 @@ and (desugar_decl : fun bs -> fun res -> let r = - FStar_Ident.range_of_id + FStarC_Ident.range_of_id res.PulseSyntaxExtension_Sugar.return_name in let uu___ = desugar_binders env1 bs in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -3169,14 +3169,14 @@ and (desugar_decl : | (env2, bs', uu___2) -> let uu___3 = comp_to_ast_term res in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> (fun res_t -> let res_t = Obj.magic res_t in let bs'' = - FStar_Compiler_List.map + FStarC_Compiler_List.map (fun b -> let uu___4 = PulseSyntaxExtension_Env.destruct_binder @@ -3184,25 +3184,25 @@ and (desugar_decl : match uu___4 with | (q, x, ty, uu___5) -> - FStar_Parser_AST.mk_binder - (FStar_Parser_AST.Annotated + FStarC_Parser_AST.mk_binder + (FStarC_Parser_AST.Annotated (x, ty)) r - FStar_Parser_AST.Expr + FStarC_Parser_AST.Expr q) bs in let last = - FStar_Compiler_List.last + FStarC_Compiler_List.last bs'' in let init = - FStar_Compiler_List.init + FStarC_Compiler_List.init bs'' in let bs''1 = FStar_List_Tot_Base.op_At init [last] in let uu___4 = - FStar_Parser_AST.mk_term - (FStar_Parser_AST.Product + FStarC_Parser_AST.mk_term + (FStarC_Parser_AST.Product (bs''1, res_t)) r - FStar_Parser_AST.Expr in + FStarC_Parser_AST.Expr in Obj.magic (PulseSyntaxExtension_Err.return uu___4)) uu___4))) @@ -3227,7 +3227,7 @@ and (desugar_decl : -> let uu___1 = desugar_binders env binders in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -3240,7 +3240,7 @@ and (desugar_decl : ascription in let uu___3 = idents_as_binders env1 fvs in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> @@ -3258,7 +3258,7 @@ and (desugar_decl : desugar_computation_type env2 ascription in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___5) (fun uu___6 -> @@ -3268,7 +3268,7 @@ and (desugar_decl : let uu___6 = let uu___7 = let uu___8 = - FStar_Options_Ext.get + FStarC_Options_Ext.get "pulse:rvalues" in uu___8 <> "" in if uu___7 @@ -3279,7 +3279,7 @@ and (desugar_decl : PulseSyntaxExtension_Err.return body in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -3297,7 +3297,7 @@ and (desugar_decl : env2) measure in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -3323,7 +3323,7 @@ and (desugar_decl : measure binders ascription in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -3341,7 +3341,7 @@ and (desugar_decl : desugar_term env2 ty in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -3387,7 +3387,7 @@ and (desugar_decl : bs1, bvs1))) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -3412,7 +3412,7 @@ and (desugar_decl : env3 body1 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -3432,7 +3432,7 @@ and (desugar_decl : faux bs2 bvs2 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -3481,7 +3481,7 @@ and (desugar_decl : -> let uu___1 = desugar_binders env binders in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -3506,7 +3506,7 @@ and (desugar_decl : Obj.magic (Obj.repr (let uu___4 = desugar_term env1 t in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___4) (fun uu___5 -> @@ -3519,7 +3519,7 @@ and (desugar_decl : (PulseSyntaxExtension_Err.return uu___5)) uu___5))) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> @@ -3528,7 +3528,7 @@ and (desugar_decl : let uu___4 = desugar_lambda env1 body in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___4) (fun uu___5 -> @@ -3539,7 +3539,7 @@ and (desugar_decl : PulseSyntaxExtension_Err.map2 faux bs bvs in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___5) @@ -3573,7 +3573,7 @@ and (desugar_decl : -> let uu___1 = desugar_binders env binders in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -3586,7 +3586,7 @@ and (desugar_decl : ascription in let uu___3 = idents_as_binders env1 fvs in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> @@ -3604,7 +3604,7 @@ and (desugar_decl : desugar_computation_type env2 ascription in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___5) (fun uu___6 -> @@ -3615,7 +3615,7 @@ and (desugar_decl : PulseSyntaxExtension_Err.map2 faux bs1 bvs1 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -3651,8 +3651,8 @@ and (desugar_decl : uu___6))) uu___4))) uu___2))) uu___1 uu___ let (reinitialize_env : - FStar_Syntax_DsEnv.env -> - FStar_Ident.lident -> + FStarC_Syntax_DsEnv.env -> + FStarC_Ident.lident -> PulseSyntaxExtension_Env.name Prims.list -> (Prims.string * PulseSyntaxExtension_Env.name) Prims.list -> PulseSyntaxExtension_Env.env_t) @@ -3661,35 +3661,35 @@ let (reinitialize_env : fun curmod -> fun open_namespaces -> fun module_abbrevs -> - let dsenv1 = FStar_Syntax_DsEnv.set_current_module dsenv curmod in + let dsenv1 = FStarC_Syntax_DsEnv.set_current_module dsenv curmod in let dsenv2 = - FStar_Compiler_List.fold_right + FStarC_Compiler_List.fold_right (fun ns -> fun env -> let uu___ = - FStar_Ident.lid_of_path ns PulseSyntaxExtension_Env.r_ in - FStar_Syntax_DsEnv.push_namespace env uu___ - FStar_Syntax_Syntax.Unrestricted) open_namespaces dsenv1 in + FStarC_Ident.lid_of_path ns PulseSyntaxExtension_Env.r_ in + FStarC_Syntax_DsEnv.push_namespace env uu___ + FStarC_Syntax_Syntax.Unrestricted) open_namespaces dsenv1 in let dsenv3 = - FStar_Syntax_DsEnv.push_namespace dsenv2 curmod - FStar_Syntax_Syntax.Unrestricted in + FStarC_Syntax_DsEnv.push_namespace dsenv2 curmod + FStarC_Syntax_Syntax.Unrestricted in let dsenv4 = - FStar_Compiler_List.fold_left + FStarC_Compiler_List.fold_left (fun env -> fun uu___ -> match uu___ with | (m, n) -> - let uu___1 = FStar_Ident.id_of_text m in + let uu___1 = FStarC_Ident.id_of_text m in let uu___2 = - FStar_Ident.lid_of_path n + FStarC_Ident.lid_of_path n PulseSyntaxExtension_Env.r_ in - FStar_Syntax_DsEnv.push_module_abbrev env uu___1 + FStarC_Syntax_DsEnv.push_module_abbrev env uu___1 uu___2) dsenv3 module_abbrevs in { PulseSyntaxExtension_Env.dsenv = dsenv4; PulseSyntaxExtension_Env.local_refs = [] } -let (mk_env : FStar_Syntax_DsEnv.env -> PulseSyntaxExtension_Env.env_t) = +let (mk_env : FStarC_Syntax_DsEnv.env -> PulseSyntaxExtension_Env.env_t) = fun dsenv -> { PulseSyntaxExtension_Env.dsenv = dsenv; diff --git a/src/ocaml/plugin/generated/PulseSyntaxExtension_Env.ml b/src/ocaml/plugin/generated/PulseSyntaxExtension_Env.ml index 3ce405288..1b6437a3d 100644 --- a/src/ocaml/plugin/generated/PulseSyntaxExtension_Env.ml +++ b/src/ocaml/plugin/generated/PulseSyntaxExtension_Env.ml @@ -1,87 +1,87 @@ open Prims -let (r_ : FStar_Compiler_Range_Type.range) = - FStar_Compiler_Range_Type.dummyRange -let (admit_lid : FStar_Ident.lident) = - FStar_Ident.lid_of_path ["Prims"; "admit"] r_ -let (pulse_lib_core_lid : Prims.string -> FStar_Ident.lident) = +let (r_ : FStarC_Compiler_Range_Type.range) = + FStarC_Compiler_Range_Type.dummyRange +let (admit_lid : FStarC_Ident.lident) = + FStarC_Ident.lid_of_path ["Prims"; "admit"] r_ +let (pulse_lib_core_lid : Prims.string -> FStarC_Ident.lident) = fun l -> - FStar_Ident.lid_of_path + FStarC_Ident.lid_of_path (FStar_List_Tot_Base.op_At ["Pulse"; "Lib"; "Core"] [l]) r_ -let (pulse_lib_ref_lid : Prims.string -> FStar_Ident.lident) = +let (pulse_lib_ref_lid : Prims.string -> FStarC_Ident.lident) = fun l -> - FStar_Ident.lid_of_path + FStarC_Ident.lid_of_path (FStar_List_Tot_Base.op_At ["Pulse"; "Lib"; "Reference"] [l]) r_ -let (assume_lid : FStar_Ident.lident) = pulse_lib_core_lid "assume_" -let (prims_exists_lid : FStar_Ident.lident) = - FStar_Ident.lid_of_path ["Prims"; "l_Exists"] r_ -let (prims_forall_lid : FStar_Ident.lident) = - FStar_Ident.lid_of_path ["Prims"; "l_Forall"] r_ -let (unreachable_lid : FStar_Ident.lident) = pulse_lib_core_lid "unreachable" -let (forall_lid : FStar_Ident.lident) = pulse_lib_core_lid "op_forall_Star" -let (exists_lid : FStar_Ident.lident) = pulse_lib_core_lid "op_exists_Star" -let (star_lid : FStar_Ident.lident) = pulse_lib_core_lid "op_Star_Star" -let (emp_lid : FStar_Ident.lident) = pulse_lib_core_lid "emp" -let (pure_lid : FStar_Ident.lident) = pulse_lib_core_lid "pure" -let (stt_lid : FStar_Ident.lident) = pulse_lib_core_lid "stt" -let (assign_lid : FStar_Ident.lident) = pulse_lib_ref_lid "op_Colon_Equals" -let (stt_ghost_lid : FStar_Ident.lident) = pulse_lib_core_lid "stt_ghost" -let (stt_unobservable_lid : FStar_Ident.lident) = +let (assume_lid : FStarC_Ident.lident) = pulse_lib_core_lid "assume_" +let (prims_exists_lid : FStarC_Ident.lident) = + FStarC_Ident.lid_of_path ["Prims"; "l_Exists"] r_ +let (prims_forall_lid : FStarC_Ident.lident) = + FStarC_Ident.lid_of_path ["Prims"; "l_Forall"] r_ +let (unreachable_lid : FStarC_Ident.lident) = pulse_lib_core_lid "unreachable" +let (forall_lid : FStarC_Ident.lident) = pulse_lib_core_lid "op_forall_Star" +let (exists_lid : FStarC_Ident.lident) = pulse_lib_core_lid "op_exists_Star" +let (star_lid : FStarC_Ident.lident) = pulse_lib_core_lid "op_Star_Star" +let (emp_lid : FStarC_Ident.lident) = pulse_lib_core_lid "emp" +let (pure_lid : FStarC_Ident.lident) = pulse_lib_core_lid "pure" +let (stt_lid : FStarC_Ident.lident) = pulse_lib_core_lid "stt" +let (assign_lid : FStarC_Ident.lident) = pulse_lib_ref_lid "op_Colon_Equals" +let (stt_ghost_lid : FStarC_Ident.lident) = pulse_lib_core_lid "stt_ghost" +let (stt_unobservable_lid : FStarC_Ident.lident) = pulse_lib_core_lid "stt_unobservable" -let (stt_atomic_lid : FStar_Ident.lident) = pulse_lib_core_lid "stt_atomic" +let (stt_atomic_lid : FStarC_Ident.lident) = pulse_lib_core_lid "stt_atomic" let (op_colon_equals_lid : - FStar_Compiler_Range_Type.range -> FStar_Ident.lident) = - fun r -> FStar_Ident.lid_of_path ["op_Colon_Equals"] r + FStarC_Compiler_Range_Type.range -> FStarC_Ident.lident) = + fun r -> FStarC_Ident.lid_of_path ["op_Colon_Equals"] r let (op_array_assignment_lid : - FStar_Compiler_Range_Type.range -> FStar_Ident.lident) = - fun r -> FStar_Ident.lid_of_path ["op_Array_Assignment"] r -let (op_bang_lid : FStar_Ident.lident) = pulse_lib_ref_lid "op_Bang" -let (read : FStar_Ident.ident -> FStar_Parser_AST.term) = + FStarC_Compiler_Range_Type.range -> FStarC_Ident.lident) = + fun r -> FStarC_Ident.lid_of_path ["op_Array_Assignment"] r +let (op_bang_lid : FStarC_Ident.lident) = pulse_lib_ref_lid "op_Bang" +let (read : FStarC_Ident.ident -> FStarC_Parser_AST.term) = fun x -> - let range = FStar_Ident.range_of_id x in - let level = FStar_Parser_AST.Un in + let range = FStarC_Ident.range_of_id x in + let level = FStarC_Parser_AST.Un in let head = { - FStar_Parser_AST.tm = (FStar_Parser_AST.Var op_bang_lid); - FStar_Parser_AST.range = range; - FStar_Parser_AST.level = level + FStarC_Parser_AST.tm = (FStarC_Parser_AST.Var op_bang_lid); + FStarC_Parser_AST.range = range; + FStarC_Parser_AST.level = level } in let arg = let uu___ = - let uu___1 = FStar_Ident.lid_of_ids [x] in - FStar_Parser_AST.Var uu___1 in + let uu___1 = FStarC_Ident.lid_of_ids [x] in + FStarC_Parser_AST.Var uu___1 in { - FStar_Parser_AST.tm = uu___; - FStar_Parser_AST.range = range; - FStar_Parser_AST.level = level + FStarC_Parser_AST.tm = uu___; + FStarC_Parser_AST.range = range; + FStarC_Parser_AST.level = level } in { - FStar_Parser_AST.tm = - (FStar_Parser_AST.App (head, arg, FStar_Parser_AST.Nothing)); - FStar_Parser_AST.range = range; - FStar_Parser_AST.level = level + FStarC_Parser_AST.tm = + (FStarC_Parser_AST.App (head, arg, FStarC_Parser_AST.Nothing)); + FStarC_Parser_AST.range = range; + FStarC_Parser_AST.level = level } type env_t = { - dsenv: FStar_Syntax_DsEnv.env ; - local_refs: FStar_Ident.ident Prims.list } -let (__proj__Mkenv_t__item__dsenv : env_t -> FStar_Syntax_DsEnv.env) = + dsenv: FStarC_Syntax_DsEnv.env ; + local_refs: FStarC_Ident.ident Prims.list } +let (__proj__Mkenv_t__item__dsenv : env_t -> FStarC_Syntax_DsEnv.env) = fun projectee -> match projectee with | { dsenv; local_refs;_} -> dsenv let (__proj__Mkenv_t__item__local_refs : - env_t -> FStar_Ident.ident Prims.list) = + env_t -> FStarC_Ident.ident Prims.list) = fun projectee -> match projectee with | { dsenv; local_refs;_} -> local_refs type name = Prims.string Prims.list let (push_bv : - env_t -> FStar_Ident.ident -> (env_t * FStar_Syntax_Syntax.bv)) = + env_t -> FStarC_Ident.ident -> (env_t * FStarC_Syntax_Syntax.bv)) = fun env -> fun x -> - let uu___ = FStar_Syntax_DsEnv.push_bv env.dsenv x in + let uu___ = FStarC_Syntax_DsEnv.push_bv env.dsenv x in match uu___ with | (dsenv, bv) -> ({ dsenv; local_refs = (env.local_refs) }, bv) let rec (push_bvs : env_t -> - FStar_Ident.ident Prims.list -> - (env_t * FStar_Syntax_Syntax.bv Prims.list)) + FStarC_Ident.ident Prims.list -> + (env_t * FStarC_Syntax_Syntax.bv Prims.list)) = fun env -> fun xs -> @@ -93,54 +93,54 @@ let rec (push_bvs : | (env1, bv) -> let uu___1 = push_bvs env1 xs1 in (match uu___1 with | (env2, bvs) -> (env2, (bv :: bvs)))) -let (push_namespace : env_t -> FStar_Ident.lident -> env_t) = +let (push_namespace : env_t -> FStarC_Ident.lident -> env_t) = fun env -> fun lid -> let dsenv = - FStar_Syntax_DsEnv.push_namespace env.dsenv lid - FStar_Syntax_Syntax.Unrestricted in + FStarC_Syntax_DsEnv.push_namespace env.dsenv lid + FStarC_Syntax_Syntax.Unrestricted in { dsenv; local_refs = (env.local_refs) } let (resolve_lid : env_t -> - FStar_Ident.lident -> FStar_Ident.lident PulseSyntaxExtension_Err.err) + FStarC_Ident.lident -> FStarC_Ident.lident PulseSyntaxExtension_Err.err) = fun env -> fun lid -> - let uu___ = FStar_Syntax_DsEnv.try_lookup_lid env.dsenv lid in + let uu___ = FStarC_Syntax_DsEnv.try_lookup_lid env.dsenv lid in match uu___ with | FStar_Pervasives_Native.None -> let uu___1 = let uu___2 = - FStar_Class_Show.show FStar_Ident.showable_lident lid in - FStar_Compiler_Util.format1 "Name %s not found" uu___2 in + FStarC_Class_Show.show FStarC_Ident.showable_lident lid in + FStarC_Compiler_Util.format1 "Name %s not found" uu___2 in let uu___2 = - FStar_Class_HasRange.pos PulseSyntaxExtension_Err.hasRange_lident + FStarC_Class_HasRange.pos PulseSyntaxExtension_Err.hasRange_lident lid in PulseSyntaxExtension_Err.fail uu___1 uu___2 | FStar_Pervasives_Native.Some t -> let uu___1 = - let uu___2 = FStar_Syntax_Subst.compress t in - uu___2.FStar_Syntax_Syntax.n in + let uu___2 = FStarC_Syntax_Subst.compress t in + uu___2.FStarC_Syntax_Syntax.n in (match uu___1 with - | FStar_Syntax_Syntax.Tm_fvar fv -> - let uu___2 = FStar_Syntax_Syntax.lid_of_fv fv in + | FStarC_Syntax_Syntax.Tm_fvar fv -> + let uu___2 = FStarC_Syntax_Syntax.lid_of_fv fv in PulseSyntaxExtension_Err.return uu___2 | uu___2 -> let uu___3 = let uu___4 = - FStar_Class_Show.show FStar_Ident.showable_lident lid in + FStarC_Class_Show.show FStarC_Ident.showable_lident lid in let uu___5 = - FStar_Class_Show.show FStar_Syntax_Print.showable_term t in - FStar_Compiler_Util.format2 + FStarC_Class_Show.show FStarC_Syntax_Print.showable_term t in + FStarC_Compiler_Util.format2 "Name %s resolved unexpectedly to %s" uu___4 uu___5 in let uu___4 = - FStar_Class_HasRange.pos + FStarC_Class_HasRange.pos PulseSyntaxExtension_Err.hasRange_lident lid in PulseSyntaxExtension_Err.fail uu___3 uu___4) let (resolve_names : env_t -> - FStar_Ident.lident Prims.list FStar_Pervasives_Native.option -> - FStar_Ident.lident Prims.list FStar_Pervasives_Native.option + FStarC_Ident.lident Prims.list FStar_Pervasives_Native.option -> + FStarC_Ident.lident Prims.list FStar_Pervasives_Native.option PulseSyntaxExtension_Err.err) = fun uu___1 -> @@ -158,12 +158,12 @@ let (resolve_names : (Obj.repr (let uu___ = Obj.magic - (FStar_Class_Monad.mapM + (FStarC_Class_Monad.mapM PulseSyntaxExtension_Err.err_monad () () (fun uu___1 -> (Obj.magic (resolve_lid env)) uu___1) (Obj.magic ns1)) in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -174,44 +174,44 @@ let (resolve_names : (FStar_Pervasives_Native.Some ns2))) uu___1)))) uu___1 uu___ let (destruct_binder : - FStar_Parser_AST.binder -> - (FStar_Parser_AST.aqual * FStar_Ident.ident * FStar_Parser_AST.term * - FStar_Parser_AST.term Prims.list)) + FStarC_Parser_AST.binder -> + (FStarC_Parser_AST.aqual * FStarC_Ident.ident * FStarC_Parser_AST.term * + FStarC_Parser_AST.term Prims.list)) = fun b -> - let attrs = b.FStar_Parser_AST.battributes in - match b.FStar_Parser_AST.b with - | FStar_Parser_AST.Annotated (x, t) -> - ((b.FStar_Parser_AST.aqual), x, t, attrs) - | FStar_Parser_AST.TAnnotated (x, t) -> - ((b.FStar_Parser_AST.aqual), x, t, attrs) - | FStar_Parser_AST.NoName t -> - let uu___ = FStar_Ident.id_of_text "_" in - ((b.FStar_Parser_AST.aqual), uu___, t, attrs) - | FStar_Parser_AST.Variable x -> + let attrs = b.FStarC_Parser_AST.battributes in + match b.FStarC_Parser_AST.b with + | FStarC_Parser_AST.Annotated (x, t) -> + ((b.FStarC_Parser_AST.aqual), x, t, attrs) + | FStarC_Parser_AST.TAnnotated (x, t) -> + ((b.FStarC_Parser_AST.aqual), x, t, attrs) + | FStarC_Parser_AST.NoName t -> + let uu___ = FStarC_Ident.id_of_text "_" in + ((b.FStarC_Parser_AST.aqual), uu___, t, attrs) + | FStarC_Parser_AST.Variable x -> let uu___ = - let uu___1 = FStar_Ident.range_of_id x in - FStar_Parser_AST.mk_term FStar_Parser_AST.Wild uu___1 - FStar_Parser_AST.Un in - ((b.FStar_Parser_AST.aqual), x, uu___, attrs) - | FStar_Parser_AST.TVariable x -> + let uu___1 = FStarC_Ident.range_of_id x in + FStarC_Parser_AST.mk_term FStarC_Parser_AST.Wild uu___1 + FStarC_Parser_AST.Un in + ((b.FStarC_Parser_AST.aqual), x, uu___, attrs) + | FStarC_Parser_AST.TVariable x -> let uu___ = - let uu___1 = FStar_Ident.range_of_id x in - FStar_Parser_AST.mk_term FStar_Parser_AST.Wild uu___1 - FStar_Parser_AST.Un in - ((b.FStar_Parser_AST.aqual), x, uu___, attrs) + let uu___1 = FStarC_Ident.range_of_id x in + FStarC_Parser_AST.mk_term FStarC_Parser_AST.Wild uu___1 + FStarC_Parser_AST.Un in + ((b.FStarC_Parser_AST.aqual), x, uu___, attrs) let free_vars_list : 'a . - (env_t -> 'a -> FStar_Ident.ident Prims.list) -> - env_t -> 'a Prims.list -> FStar_Ident.ident Prims.list - = fun f -> fun env -> fun xs -> FStar_Compiler_List.collect (f env) xs + (env_t -> 'a -> FStarC_Ident.ident Prims.list) -> + env_t -> 'a Prims.list -> FStarC_Ident.ident Prims.list + = fun f -> fun env -> fun xs -> FStarC_Compiler_List.collect (f env) xs let rec (free_vars_term : - env_t -> FStar_Parser_AST.term -> FStar_Ident.ident Prims.list) = - fun env -> fun t -> FStar_ToSyntax_ToSyntax.free_vars false env.dsenv t + env_t -> FStarC_Parser_AST.term -> FStarC_Ident.ident Prims.list) = + fun env -> fun t -> FStarC_ToSyntax_ToSyntax.free_vars false env.dsenv t and (free_vars_binders : env_t -> PulseSyntaxExtension_Sugar.binders -> - (env_t * FStar_Ident.ident Prims.list)) + (env_t * FStarC_Ident.ident Prims.list)) = fun env -> fun bs -> @@ -234,7 +234,7 @@ and (free_vars_binders : (FStar_List_Tot_Base.op_At fvs (FStar_List_Tot_Base.op_At fvs_attrs res))))) let (free_vars_slprop : - env_t -> PulseSyntaxExtension_Sugar.slprop -> FStar_Ident.ident Prims.list) + env_t -> PulseSyntaxExtension_Sugar.slprop -> FStarC_Ident.ident Prims.list) = fun env -> fun t -> @@ -243,7 +243,7 @@ let (free_vars_slprop : let (free_vars_comp : env_t -> PulseSyntaxExtension_Sugar.computation_type -> - FStar_Ident.ident Prims.list) + FStarC_Ident.ident Prims.list) = fun env -> fun c -> @@ -262,39 +262,39 @@ let (free_vars_comp : c.PulseSyntaxExtension_Sugar.postcondition in FStar_List_Tot_Base.op_At uu___2 uu___3 in FStar_List_Tot_Base.op_At uu___ uu___1 in - FStar_Class_Ord.dedup FStar_Syntax_Syntax.ord_ident ids + FStarC_Class_Ord.dedup FStarC_Syntax_Syntax.ord_ident ids let (pat_vars : - FStar_Parser_AST.pattern -> - FStar_Ident.ident Prims.list PulseSyntaxExtension_Err.err) + FStarC_Parser_AST.pattern -> + FStarC_Ident.ident Prims.list PulseSyntaxExtension_Err.err) = fun uu___ -> (fun p -> - let r = p.FStar_Parser_AST.prange in - match p.FStar_Parser_AST.pat with - | FStar_Parser_AST.PatVar (id, uu___, uu___1) -> + let r = p.FStarC_Parser_AST.prange in + match p.FStarC_Parser_AST.pat with + | FStarC_Parser_AST.PatVar (id, uu___, uu___1) -> Obj.magic (Obj.repr (PulseSyntaxExtension_Err.return [id])) - | FStar_Parser_AST.PatWild uu___ -> + | FStarC_Parser_AST.PatWild uu___ -> Obj.magic (Obj.repr (PulseSyntaxExtension_Err.return [])) - | FStar_Parser_AST.PatConst uu___ -> + | FStarC_Parser_AST.PatConst uu___ -> Obj.magic (Obj.repr (PulseSyntaxExtension_Err.return [])) - | FStar_Parser_AST.PatName uu___ -> + | FStarC_Parser_AST.PatName uu___ -> Obj.magic (Obj.repr (PulseSyntaxExtension_Err.return [])) - | FStar_Parser_AST.PatApp (uu___, args) -> + | FStarC_Parser_AST.PatApp (uu___, args) -> Obj.magic (Obj.repr (let uu___1 = Obj.magic - (FStar_Class_Monad.mapM + (FStarC_Class_Monad.mapM PulseSyntaxExtension_Err.err_monad () () (fun uu___2 -> (fun p1 -> let p1 = Obj.magic p1 in - match p1.FStar_Parser_AST.pat with - | FStar_Parser_AST.PatVar (id, uu___2, uu___3) + match p1.FStarC_Parser_AST.pat with + | FStarC_Parser_AST.PatVar (id, uu___2, uu___3) -> Obj.magic (PulseSyntaxExtension_Err.return [id]) - | FStar_Parser_AST.PatWild uu___2 -> + | FStarC_Parser_AST.PatWild uu___2 -> Obj.magic (PulseSyntaxExtension_Err.return []) | uu___2 -> @@ -302,7 +302,7 @@ let (pat_vars : (PulseSyntaxExtension_Err.fail "invalid pattern: no deep patterns allowed" r)) uu___2) (Obj.magic args)) in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> diff --git a/src/ocaml/plugin/generated/PulseSyntaxExtension_Err.ml b/src/ocaml/plugin/generated/PulseSyntaxExtension_Err.ml index ef2aa0e6a..7a4a4d813 100644 --- a/src/ocaml/plugin/generated/PulseSyntaxExtension_Err.ml +++ b/src/ocaml/plugin/generated/PulseSyntaxExtension_Err.ml @@ -1,17 +1,17 @@ open Prims -let (hasRange_ident : FStar_Ident.ident FStar_Class_HasRange.hasRange) = +let (hasRange_ident : FStarC_Ident.ident FStarC_Class_HasRange.hasRange) = { - FStar_Class_HasRange.pos = FStar_Ident.range_of_id; - FStar_Class_HasRange.setPos = FStar_Ident.set_id_range + FStarC_Class_HasRange.pos = FStarC_Ident.range_of_id; + FStarC_Class_HasRange.setPos = FStarC_Ident.set_id_range } -let (hasRange_lident : FStar_Ident.lident FStar_Class_HasRange.hasRange) = +let (hasRange_lident : FStarC_Ident.lident FStarC_Class_HasRange.hasRange) = { - FStar_Class_HasRange.pos = FStar_Ident.range_of_lid; - FStar_Class_HasRange.setPos = - (fun x -> fun y -> FStar_Ident.set_lid_range y x) + FStarC_Class_HasRange.pos = FStarC_Ident.range_of_lid; + FStarC_Class_HasRange.setPos = + (fun x -> fun y -> FStarC_Ident.set_lid_range y x) } type error = - (Prims.string * FStar_Compiler_Range_Type.range) + (Prims.string * FStarC_Compiler_Range_Type.range) FStar_Pervasives_Native.option type 'a err = Prims.nat -> (('a, error) FStar_Pervasives.either * Prims.nat) let bind_err : @@ -29,12 +29,12 @@ let bind_err : | (FStar_Pervasives.Inr e, ctr1) -> ((FStar_Pervasives.Inr e), ctr1) let return : 'a . 'a -> 'a err = fun x -> fun ctr -> ((FStar_Pervasives.Inl x), ctr) -let (err_monad : unit err FStar_Class_Monad.monad) = +let (err_monad : unit err FStarC_Class_Monad.monad) = { - FStar_Class_Monad.return = + FStarC_Class_Monad.return = (fun uu___1 -> fun uu___ -> (fun uu___ -> Obj.magic return) uu___1 uu___); - FStar_Class_Monad.op_let_Bang = + FStarC_Class_Monad.op_let_Bang = (fun uu___3 -> fun uu___2 -> fun uu___1 -> @@ -42,14 +42,14 @@ let (err_monad : unit err FStar_Class_Monad.monad) = (fun uu___1 -> fun uu___ -> Obj.magic bind_err) uu___3 uu___2 uu___1 uu___) } -let fail : 'a . Prims.string -> FStar_Compiler_Range_Type.range -> 'a err = +let fail : 'a . Prims.string -> FStarC_Compiler_Range_Type.range -> 'a err = fun message -> fun range -> fun ctr -> ((FStar_Pervasives.Inr (FStar_Pervasives_Native.Some (message, range))), ctr) let (fail_if : - Prims.bool -> Prims.string -> FStar_Compiler_Range_Type.range -> unit err) + Prims.bool -> Prims.string -> FStarC_Compiler_Range_Type.range -> unit err) = fun b -> fun message -> fun range -> if b then fail message range else return () @@ -76,7 +76,7 @@ let map_err_opt : Obj.magic (Obj.repr (let uu___ = f v in - FStar_Class_Monad.op_let_Bang err_monad () () + FStarC_Class_Monad.op_let_Bang err_monad () () (Obj.magic uu___) (fun uu___1 -> (fun v' -> @@ -100,7 +100,7 @@ let rec map2 : Obj.magic (Obj.repr (let uu___ = map2 f xx yy in - FStar_Class_Monad.op_let_Bang err_monad () () + FStarC_Class_Monad.op_let_Bang err_monad () () (Obj.magic uu___) (fun uu___1 -> (fun r -> @@ -112,12 +112,12 @@ let rec map2 : Obj.magic (Obj.repr (fail "map2: mismatch" - FStar_Compiler_Range_Type.dummyRange))) uu___2 + FStarC_Compiler_Range_Type.dummyRange))) uu___2 uu___1 uu___ let left : 'a 'b . ('a, 'b) FStar_Pervasives.either -> - FStar_Compiler_Range_Type.range -> 'a err + FStarC_Compiler_Range_Type.range -> 'a err = fun f -> fun r -> @@ -127,7 +127,7 @@ let left : let right : 'a 'b . ('a, 'b) FStar_Pervasives.either -> - FStar_Compiler_Range_Type.range -> 'b err + FStarC_Compiler_Range_Type.range -> 'b err = fun f -> fun r -> diff --git a/src/ocaml/plugin/generated/PulseSyntaxExtension_Sugar.ml b/src/ocaml/plugin/generated/PulseSyntaxExtension_Sugar.ml index 765ac5971..02d628de1 100644 --- a/src/ocaml/plugin/generated/PulseSyntaxExtension_Sugar.ml +++ b/src/ocaml/plugin/generated/PulseSyntaxExtension_Sugar.ml @@ -1,16 +1,16 @@ open Prims -type rng = FStar_Compiler_Range_Type.range -let (dummyRange : FStar_Compiler_Range_Type.range) = - FStar_Compiler_Range_Type.dummyRange -type binder = FStar_Parser_AST.binder +type rng = FStarC_Compiler_Range_Type.range +let (dummyRange : FStarC_Compiler_Range_Type.range) = + FStarC_Compiler_Range_Type.dummyRange +type binder = FStarC_Parser_AST.binder type binders = binder Prims.list type slprop' = - | SLPropTerm of FStar_Parser_AST.term + | SLPropTerm of FStarC_Parser_AST.term and slprop = { v: slprop' ; vrange: rng } let (uu___is_SLPropTerm : slprop' -> Prims.bool) = fun projectee -> true -let (__proj__SLPropTerm__item___0 : slprop' -> FStar_Parser_AST.term) = +let (__proj__SLPropTerm__item___0 : slprop' -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | SLPropTerm _0 -> _0 let (__proj__Mkslprop__item__v : slprop -> slprop') = fun projectee -> match projectee with | { v; vrange;_} -> v @@ -32,10 +32,10 @@ type computation_type = { tag: st_comp_tag ; precondition: slprop ; - return_name: FStar_Ident.ident ; - return_type: FStar_Parser_AST.term ; + return_name: FStarC_Ident.ident ; + return_type: FStarC_Parser_AST.term ; postcondition: slprop ; - opens: FStar_Parser_AST.term FStar_Pervasives_Native.option ; + opens: FStarC_Parser_AST.term FStar_Pervasives_Native.option ; range: rng } let (__proj__Mkcomputation_type__item__tag : computation_type -> st_comp_tag) = @@ -50,13 +50,13 @@ let (__proj__Mkcomputation_type__item__precondition : | { tag; precondition; return_name; return_type; postcondition; opens; range;_} -> precondition let (__proj__Mkcomputation_type__item__return_name : - computation_type -> FStar_Ident.ident) = + computation_type -> FStarC_Ident.ident) = fun projectee -> match projectee with | { tag; precondition; return_name; return_type; postcondition; opens; range;_} -> return_name let (__proj__Mkcomputation_type__item__return_type : - computation_type -> FStar_Parser_AST.term) = + computation_type -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | { tag; precondition; return_name; return_type; postcondition; opens; @@ -68,7 +68,7 @@ let (__proj__Mkcomputation_type__item__postcondition : | { tag; precondition; return_name; return_type; postcondition; opens; range;_} -> postcondition let (__proj__Mkcomputation_type__item__opens : - computation_type -> FStar_Parser_AST.term FStar_Pervasives_Native.option) = + computation_type -> FStarC_Parser_AST.term FStar_Pervasives_Native.option) = fun projectee -> match projectee with | { tag; precondition; return_name; return_type; postcondition; opens; @@ -85,22 +85,22 @@ let (uu___is_MUT : mut_or_ref -> Prims.bool) = fun projectee -> match projectee with | MUT -> true | uu___ -> false let (uu___is_REF : mut_or_ref -> Prims.bool) = fun projectee -> match projectee with | REF -> true | uu___ -> false -let (showable_mut_or_ref : mut_or_ref FStar_Class_Show.showable) = +let (showable_mut_or_ref : mut_or_ref FStarC_Class_Show.showable) = { - FStar_Class_Show.show = + FStarC_Class_Show.show = (fun i -> match i with | MUT -> "MUT" | REF -> "REF") } type hint_type = | ASSERT of slprop | ASSUME of slprop - | UNFOLD of (FStar_Ident.lident Prims.list FStar_Pervasives_Native.option * + | UNFOLD of (FStarC_Ident.lident Prims.list FStar_Pervasives_Native.option * slprop) - | FOLD of (FStar_Ident.lident Prims.list FStar_Pervasives_Native.option * + | FOLD of (FStarC_Ident.lident Prims.list FStar_Pervasives_Native.option * slprop) - | RENAME of ((FStar_Parser_AST.term * FStar_Parser_AST.term) Prims.list * - slprop FStar_Pervasives_Native.option * FStar_Parser_AST.term + | RENAME of ((FStarC_Parser_AST.term * FStarC_Parser_AST.term) Prims.list * + slprop FStar_Pervasives_Native.option * FStarC_Parser_AST.term FStar_Pervasives_Native.option) - | REWRITE of (slprop * slprop * FStar_Parser_AST.term + | REWRITE of (slprop * slprop * FStarC_Parser_AST.term FStar_Pervasives_Native.option) | WILD | SHOW_PROOF_STATE of rng @@ -116,27 +116,27 @@ let (uu___is_UNFOLD : hint_type -> Prims.bool) = fun projectee -> match projectee with | UNFOLD _0 -> true | uu___ -> false let (__proj__UNFOLD__item___0 : hint_type -> - (FStar_Ident.lident Prims.list FStar_Pervasives_Native.option * slprop)) + (FStarC_Ident.lident Prims.list FStar_Pervasives_Native.option * slprop)) = fun projectee -> match projectee with | UNFOLD _0 -> _0 let (uu___is_FOLD : hint_type -> Prims.bool) = fun projectee -> match projectee with | FOLD _0 -> true | uu___ -> false let (__proj__FOLD__item___0 : hint_type -> - (FStar_Ident.lident Prims.list FStar_Pervasives_Native.option * slprop)) + (FStarC_Ident.lident Prims.list FStar_Pervasives_Native.option * slprop)) = fun projectee -> match projectee with | FOLD _0 -> _0 let (uu___is_RENAME : hint_type -> Prims.bool) = fun projectee -> match projectee with | RENAME _0 -> true | uu___ -> false let (__proj__RENAME__item___0 : hint_type -> - ((FStar_Parser_AST.term * FStar_Parser_AST.term) Prims.list * slprop - FStar_Pervasives_Native.option * FStar_Parser_AST.term + ((FStarC_Parser_AST.term * FStarC_Parser_AST.term) Prims.list * slprop + FStar_Pervasives_Native.option * FStarC_Parser_AST.term FStar_Pervasives_Native.option)) = fun projectee -> match projectee with | RENAME _0 -> _0 let (uu___is_REWRITE : hint_type -> Prims.bool) = fun projectee -> match projectee with | REWRITE _0 -> true | uu___ -> false let (__proj__REWRITE__item___0 : hint_type -> - (slprop * slprop * FStar_Parser_AST.term FStar_Pervasives_Native.option)) + (slprop * slprop * FStarC_Parser_AST.term FStar_Pervasives_Native.option)) = fun projectee -> match projectee with | REWRITE _0 -> _0 let (uu___is_WILD : hint_type -> Prims.bool) = fun projectee -> match projectee with | WILD -> true | uu___ -> false @@ -145,67 +145,67 @@ let (uu___is_SHOW_PROOF_STATE : hint_type -> Prims.bool) = match projectee with | SHOW_PROOF_STATE _0 -> true | uu___ -> false let (__proj__SHOW_PROOF_STATE__item___0 : hint_type -> rng) = fun projectee -> match projectee with | SHOW_PROOF_STATE _0 -> _0 -let (showable_slprop : slprop FStar_Class_Show.showable) = +let (showable_slprop : slprop FStarC_Class_Show.showable) = { - FStar_Class_Show.show = + FStarC_Class_Show.show = (fun s -> match s.v with | SLPropTerm t -> - FStar_Class_Show.show FStar_Parser_AST.showable_term t) + FStarC_Class_Show.show FStarC_Parser_AST.showable_term t) } -let (showable_hint_type : hint_type FStar_Class_Show.showable) = +let (showable_hint_type : hint_type FStarC_Class_Show.showable) = { - FStar_Class_Show.show = + FStarC_Class_Show.show = (fun i -> match i with | ASSERT s -> - let uu___ = FStar_Class_Show.show showable_slprop s in + let uu___ = FStarC_Class_Show.show showable_slprop s in Prims.strcat "ASSERT " uu___ | ASSUME s -> - let uu___ = FStar_Class_Show.show showable_slprop s in + let uu___ = FStarC_Class_Show.show showable_slprop s in Prims.strcat "ASSUME " uu___ | UNFOLD (ns, s) -> let uu___ = let uu___1 = - FStar_Class_Show.show - (FStar_Class_Show.show_option - (FStar_Class_Show.show_list FStar_Ident.showable_lident)) + FStarC_Class_Show.show + (FStarC_Class_Show.show_option + (FStarC_Class_Show.show_list FStarC_Ident.showable_lident)) ns in let uu___2 = - let uu___3 = FStar_Class_Show.show showable_slprop s in + let uu___3 = FStarC_Class_Show.show showable_slprop s in Prims.strcat " " uu___3 in Prims.strcat uu___1 uu___2 in Prims.strcat "UNFOLD " uu___ | FOLD (ns, s) -> let uu___ = let uu___1 = - FStar_Class_Show.show - (FStar_Class_Show.show_option - (FStar_Class_Show.show_list FStar_Ident.showable_lident)) + FStarC_Class_Show.show + (FStarC_Class_Show.show_option + (FStarC_Class_Show.show_list FStarC_Ident.showable_lident)) ns in let uu___2 = - let uu___3 = FStar_Class_Show.show showable_slprop s in + let uu___3 = FStarC_Class_Show.show showable_slprop s in Prims.strcat " " uu___3 in Prims.strcat uu___1 uu___2 in Prims.strcat "FOLD " uu___ | RENAME (ts, g, t) -> let uu___ = let uu___1 = - FStar_Class_Show.show - (FStar_Class_Show.show_list - (FStar_Class_Show.show_tuple2 - FStar_Parser_AST.showable_term - FStar_Parser_AST.showable_term)) ts in + FStarC_Class_Show.show + (FStarC_Class_Show.show_list + (FStarC_Class_Show.show_tuple2 + FStarC_Parser_AST.showable_term + FStarC_Parser_AST.showable_term)) ts in let uu___2 = let uu___3 = let uu___4 = - FStar_Class_Show.show - (FStar_Class_Show.show_option showable_slprop) g in + FStarC_Class_Show.show + (FStarC_Class_Show.show_option showable_slprop) g in let uu___5 = let uu___6 = - FStar_Class_Show.show - (FStar_Class_Show.show_option - FStar_Parser_AST.showable_term) t in + FStarC_Class_Show.show + (FStarC_Class_Show.show_option + FStarC_Parser_AST.showable_term) t in Prims.strcat " " uu___6 in Prims.strcat uu___4 uu___5 in Prims.strcat " " uu___3 in @@ -213,15 +213,15 @@ let (showable_hint_type : hint_type FStar_Class_Show.showable) = Prims.strcat "RENAME " uu___ | REWRITE (s1, s2, t) -> let uu___ = - let uu___1 = FStar_Class_Show.show showable_slprop s1 in + let uu___1 = FStarC_Class_Show.show showable_slprop s1 in let uu___2 = let uu___3 = - let uu___4 = FStar_Class_Show.show showable_slprop s2 in + let uu___4 = FStarC_Class_Show.show showable_slprop s2 in let uu___5 = let uu___6 = - FStar_Class_Show.show - (FStar_Class_Show.show_option - FStar_Parser_AST.showable_term) t in + FStarC_Class_Show.show + (FStarC_Class_Show.show_option + FStarC_Parser_AST.showable_term) t in Prims.strcat " " uu___6 in Prims.strcat uu___4 uu___5 in Prims.strcat " " uu___3 in @@ -231,55 +231,55 @@ let (showable_hint_type : hint_type FStar_Class_Show.showable) = | SHOW_PROOF_STATE r -> "SHOW_PROOF_STATE ...") } type array_init = { - init: FStar_Parser_AST.term ; - len: FStar_Parser_AST.term } -let (__proj__Mkarray_init__item__init : array_init -> FStar_Parser_AST.term) + init: FStarC_Parser_AST.term ; + len: FStarC_Parser_AST.term } +let (__proj__Mkarray_init__item__init : array_init -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | { init; len;_} -> init -let (__proj__Mkarray_init__item__len : array_init -> FStar_Parser_AST.term) = +let (__proj__Mkarray_init__item__len : array_init -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | { init; len;_} -> len type ensures_slprop = - ((FStar_Ident.ident * FStar_Parser_AST.term) FStar_Pervasives_Native.option - * slprop * FStar_Parser_AST.term FStar_Pervasives_Native.option) + ((FStarC_Ident.ident * FStarC_Parser_AST.term) FStar_Pervasives_Native.option + * slprop * FStarC_Parser_AST.term FStar_Pervasives_Native.option) type stmt'__Expr__payload = { - e: FStar_Parser_AST.term } + e: FStarC_Parser_AST.term } and stmt'__Assignment__payload = { - lhs: FStar_Parser_AST.term ; - value: FStar_Parser_AST.term } + lhs: FStarC_Parser_AST.term ; + value: FStarC_Parser_AST.term } and stmt'__ArrayAssignment__payload = { - arr: FStar_Parser_AST.term ; - index: FStar_Parser_AST.term ; - value1: FStar_Parser_AST.term } + arr: FStarC_Parser_AST.term ; + index: FStarC_Parser_AST.term ; + value1: FStarC_Parser_AST.term } and stmt'__LetBinding__payload = { qualifier: mut_or_ref FStar_Pervasives_Native.option ; - pat: FStar_Parser_AST.pattern ; - typ: FStar_Parser_AST.term FStar_Pervasives_Native.option ; + pat: FStarC_Parser_AST.pattern ; + typ: FStarC_Parser_AST.term FStar_Pervasives_Native.option ; init1: let_init FStar_Pervasives_Native.option } and stmt'__Block__payload = { stmt: stmt } and stmt'__If__payload = { - head: FStar_Parser_AST.term ; + head: FStarC_Parser_AST.term ; join_slprop: ensures_slprop FStar_Pervasives_Native.option ; then_: stmt ; else_opt: stmt FStar_Pervasives_Native.option } and stmt'__Match__payload = { - head1: FStar_Parser_AST.term ; + head1: FStarC_Parser_AST.term ; returns_annot: ensures_slprop FStar_Pervasives_Native.option ; - branches: (FStar_Parser_AST.pattern * stmt) Prims.list } + branches: (FStarC_Parser_AST.pattern * stmt) Prims.list } and stmt'__While__payload = { guard: stmt ; - id: FStar_Ident.ident ; + id: FStarC_Ident.ident ; invariant: slprop ; body: stmt } and stmt'__Introduce__payload = { slprop: slprop ; - witnesses: FStar_Parser_AST.term Prims.list } + witnesses: FStarC_Parser_AST.term Prims.list } and stmt'__Sequence__payload = { s1: stmt ; s2: stmt } @@ -297,11 +297,11 @@ and stmt'__ProofHintWithBinders__payload = binders: binders } and stmt'__WithInvariants__payload = { - names: FStar_Parser_AST.term Prims.list ; + names: FStarC_Parser_AST.term Prims.list ; body1: stmt ; returns_: ensures_slprop FStar_Pervasives_Native.option } and stmt' = - | Open of FStar_Ident.lident + | Open of FStarC_Ident.lident | Expr of stmt'__Expr__payload | Assignment of stmt'__Assignment__payload | ArrayAssignment of stmt'__ArrayAssignment__payload @@ -326,41 +326,41 @@ and lambda = range2: rng } and fn_defn = { - id1: FStar_Ident.ident ; + id1: FStarC_Ident.ident ; is_rec: Prims.bool ; binders2: binders ; ascription1: - (computation_type, FStar_Parser_AST.term FStar_Pervasives_Native.option) + (computation_type, FStarC_Parser_AST.term FStar_Pervasives_Native.option) FStar_Pervasives.either ; - measure: FStar_Parser_AST.term FStar_Pervasives_Native.option ; + measure: FStarC_Parser_AST.term FStar_Pervasives_Native.option ; body3: (stmt, lambda) FStar_Pervasives.either ; - decorations: FStar_Parser_AST.decoration Prims.list ; + decorations: FStarC_Parser_AST.decoration Prims.list ; range3: rng } and let_init = | Array_initializer of array_init - | Default_initializer of FStar_Parser_AST.term + | Default_initializer of FStarC_Parser_AST.term | Lambda_initializer of fn_defn | Stmt_initializer of stmt let (__proj__Mkstmt'__Expr__payload__item__e : - stmt'__Expr__payload -> FStar_Parser_AST.term) = + stmt'__Expr__payload -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | { e;_} -> e let (__proj__Mkstmt'__Assignment__payload__item__lhs : - stmt'__Assignment__payload -> FStar_Parser_AST.term) = + stmt'__Assignment__payload -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | { lhs; value;_} -> lhs let (__proj__Mkstmt'__Assignment__payload__item__value : - stmt'__Assignment__payload -> FStar_Parser_AST.term) = + stmt'__Assignment__payload -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | { lhs; value;_} -> value let (__proj__Mkstmt'__ArrayAssignment__payload__item__arr : - stmt'__ArrayAssignment__payload -> FStar_Parser_AST.term) = + stmt'__ArrayAssignment__payload -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | { arr; index; value1 = value;_} -> arr let (__proj__Mkstmt'__ArrayAssignment__payload__item__index : - stmt'__ArrayAssignment__payload -> FStar_Parser_AST.term) = + stmt'__ArrayAssignment__payload -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | { arr; index; value1 = value;_} -> index let (__proj__Mkstmt'__ArrayAssignment__payload__item__value : - stmt'__ArrayAssignment__payload -> FStar_Parser_AST.term) = + stmt'__ArrayAssignment__payload -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | { arr; index; value1 = value;_} -> value let (__proj__Mkstmt'__LetBinding__payload__item__qualifier : @@ -369,12 +369,12 @@ let (__proj__Mkstmt'__LetBinding__payload__item__qualifier : match projectee with | { qualifier; pat; typ; init1 = init;_} -> qualifier let (__proj__Mkstmt'__LetBinding__payload__item__pat : - stmt'__LetBinding__payload -> FStar_Parser_AST.pattern) = + stmt'__LetBinding__payload -> FStarC_Parser_AST.pattern) = fun projectee -> match projectee with | { qualifier; pat; typ; init1 = init;_} -> pat let (__proj__Mkstmt'__LetBinding__payload__item__typ : stmt'__LetBinding__payload -> - FStar_Parser_AST.term FStar_Pervasives_Native.option) + FStarC_Parser_AST.term FStar_Pervasives_Native.option) = fun projectee -> match projectee with | { qualifier; pat; typ; init1 = init;_} -> typ @@ -386,7 +386,7 @@ let (__proj__Mkstmt'__Block__payload__item__stmt : stmt'__Block__payload -> stmt) = fun projectee -> match projectee with | { stmt = stmt1;_} -> stmt1 let (__proj__Mkstmt'__If__payload__item__head : - stmt'__If__payload -> FStar_Parser_AST.term) = + stmt'__If__payload -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | { head; join_slprop; then_; else_opt;_} -> head let (__proj__Mkstmt'__If__payload__item__join_slprop : @@ -404,7 +404,7 @@ let (__proj__Mkstmt'__If__payload__item__else_opt : match projectee with | { head; join_slprop; then_; else_opt;_} -> else_opt let (__proj__Mkstmt'__Match__payload__item__head : - stmt'__Match__payload -> FStar_Parser_AST.term) = + stmt'__Match__payload -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | { head1 = head; returns_annot; branches;_} -> head let (__proj__Mkstmt'__Match__payload__item__returns_annot : @@ -413,7 +413,7 @@ let (__proj__Mkstmt'__Match__payload__item__returns_annot : match projectee with | { head1 = head; returns_annot; branches;_} -> returns_annot let (__proj__Mkstmt'__Match__payload__item__branches : - stmt'__Match__payload -> (FStar_Parser_AST.pattern * stmt) Prims.list) = + stmt'__Match__payload -> (FStarC_Parser_AST.pattern * stmt) Prims.list) = fun projectee -> match projectee with | { head1 = head; returns_annot; branches;_} -> branches @@ -422,7 +422,7 @@ let (__proj__Mkstmt'__While__payload__item__guard : fun projectee -> match projectee with | { guard; id; invariant; body;_} -> guard let (__proj__Mkstmt'__While__payload__item__id : - stmt'__While__payload -> FStar_Ident.ident) = + stmt'__While__payload -> FStarC_Ident.ident) = fun projectee -> match projectee with | { guard; id; invariant; body;_} -> id let (__proj__Mkstmt'__While__payload__item__invariant : @@ -438,7 +438,7 @@ let (__proj__Mkstmt'__Introduce__payload__item__slprop : fun projectee -> match projectee with | { slprop = slprop1; witnesses;_} -> slprop1 let (__proj__Mkstmt'__Introduce__payload__item__witnesses : - stmt'__Introduce__payload -> FStar_Parser_AST.term Prims.list) = + stmt'__Introduce__payload -> FStarC_Parser_AST.term Prims.list) = fun projectee -> match projectee with | { slprop = slprop1; witnesses;_} -> witnesses let (__proj__Mkstmt'__Sequence__payload__item__s1 : @@ -476,7 +476,7 @@ let (__proj__Mkstmt'__ProofHintWithBinders__payload__item__binders : match projectee with | { hint_type = hint_type1; binders = binders1;_} -> binders1 let (__proj__Mkstmt'__WithInvariants__payload__item__names : - stmt'__WithInvariants__payload -> FStar_Parser_AST.term Prims.list) = + stmt'__WithInvariants__payload -> FStarC_Parser_AST.term Prims.list) = fun projectee -> match projectee with | { names; body1 = body; returns_;_} -> names let (__proj__Mkstmt'__WithInvariants__payload__item__body : @@ -491,7 +491,7 @@ let (__proj__Mkstmt'__WithInvariants__payload__item__returns_ : match projectee with | { names; body1 = body; returns_;_} -> returns_ let (uu___is_Open : stmt' -> Prims.bool) = fun projectee -> match projectee with | Open _0 -> true | uu___ -> false -let (__proj__Open__item___0 : stmt' -> FStar_Ident.lident) = +let (__proj__Open__item___0 : stmt' -> FStarC_Ident.lident) = fun projectee -> match projectee with | Open _0 -> _0 let (uu___is_Expr : stmt' -> Prims.bool) = fun projectee -> match projectee with | Expr _0 -> true | uu___ -> false @@ -577,7 +577,7 @@ let (__proj__Mklambda__item__range : lambda -> rng) = fun projectee -> match projectee with | { binders1; ascription; body2 = body; range2 = range;_} -> range -let (__proj__Mkfn_defn__item__id : fn_defn -> FStar_Ident.ident) = +let (__proj__Mkfn_defn__item__id : fn_defn -> FStarC_Ident.ident) = fun projectee -> match projectee with | { id1 = id; is_rec; binders2 = binders1; ascription1 = ascription; @@ -594,7 +594,7 @@ let (__proj__Mkfn_defn__item__binders : fn_defn -> binders) = measure; body3 = body; decorations; range3 = range;_} -> binders1 let (__proj__Mkfn_defn__item__ascription : fn_defn -> - (computation_type, FStar_Parser_AST.term FStar_Pervasives_Native.option) + (computation_type, FStarC_Parser_AST.term FStar_Pervasives_Native.option) FStar_Pervasives.either) = fun projectee -> @@ -602,7 +602,7 @@ let (__proj__Mkfn_defn__item__ascription : | { id1 = id; is_rec; binders2 = binders1; ascription1 = ascription; measure; body3 = body; decorations; range3 = range;_} -> ascription let (__proj__Mkfn_defn__item__measure : - fn_defn -> FStar_Parser_AST.term FStar_Pervasives_Native.option) = + fn_defn -> FStarC_Parser_AST.term FStar_Pervasives_Native.option) = fun projectee -> match projectee with | { id1 = id; is_rec; binders2 = binders1; ascription1 = ascription; @@ -614,7 +614,7 @@ let (__proj__Mkfn_defn__item__body : | { id1 = id; is_rec; binders2 = binders1; ascription1 = ascription; measure; body3 = body; decorations; range3 = range;_} -> body let (__proj__Mkfn_defn__item__decorations : - fn_defn -> FStar_Parser_AST.decoration Prims.list) = + fn_defn -> FStarC_Parser_AST.decoration Prims.list) = fun projectee -> match projectee with | { id1 = id; is_rec; binders2 = binders1; ascription1 = ascription; @@ -633,7 +633,7 @@ let (uu___is_Default_initializer : let_init -> Prims.bool) = fun projectee -> match projectee with | Default_initializer _0 -> true | uu___ -> false let (__proj__Default_initializer__item___0 : - let_init -> FStar_Parser_AST.term) = + let_init -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | Default_initializer _0 -> _0 let (uu___is_Lambda_initializer : let_init -> Prims.bool) = fun projectee -> @@ -645,9 +645,9 @@ let (uu___is_Stmt_initializer : let_init -> Prims.bool) = match projectee with | Stmt_initializer _0 -> true | uu___ -> false let (__proj__Stmt_initializer__item___0 : let_init -> stmt) = fun projectee -> match projectee with | Stmt_initializer _0 -> _0 -let (showable_let_init : let_init FStar_Class_Show.showable) = +let (showable_let_init : let_init FStarC_Class_Show.showable) = { - FStar_Class_Show.show = + FStarC_Class_Show.show = (fun i -> match i with | Array_initializer a -> "Array_initializer ..." @@ -657,15 +657,15 @@ let (showable_let_init : let_init FStar_Class_Show.showable) = } type fn_decl = { - id2: FStar_Ident.ident ; + id2: FStarC_Ident.ident ; binders3: binders ; ascription2: - (computation_type, FStar_Parser_AST.term FStar_Pervasives_Native.option) + (computation_type, FStarC_Parser_AST.term FStar_Pervasives_Native.option) FStar_Pervasives.either ; - decorations1: FStar_Parser_AST.decoration Prims.list ; + decorations1: FStarC_Parser_AST.decoration Prims.list ; range4: rng } -let (__proj__Mkfn_decl__item__id : fn_decl -> FStar_Ident.ident) = +let (__proj__Mkfn_decl__item__id : fn_decl -> FStarC_Ident.ident) = fun projectee -> match projectee with | { id2 = id; binders3 = binders1; ascription2 = ascription; @@ -677,7 +677,7 @@ let (__proj__Mkfn_decl__item__binders : fn_decl -> binders) = decorations1 = decorations; range4 = range;_} -> binders1 let (__proj__Mkfn_decl__item__ascription : fn_decl -> - (computation_type, FStar_Parser_AST.term FStar_Pervasives_Native.option) + (computation_type, FStarC_Parser_AST.term FStar_Pervasives_Native.option) FStar_Pervasives.either) = fun projectee -> @@ -685,7 +685,7 @@ let (__proj__Mkfn_decl__item__ascription : | { id2 = id; binders3 = binders1; ascription2 = ascription; decorations1 = decorations; range4 = range;_} -> ascription let (__proj__Mkfn_decl__item__decorations : - fn_decl -> FStar_Parser_AST.decoration Prims.list) = + fn_decl -> FStarC_Parser_AST.decoration Prims.list) = fun projectee -> match projectee with | { id2 = id; binders3 = binders1; ascription2 = ascription; @@ -726,8 +726,8 @@ let (tag_of_stmt : stmt -> Prims.string) = "ProofHintWithBinders" | WithInvariants { names = uu___; body1 = uu___1; returns_ = uu___2;_} -> "WithInvariants" -let (tagged_stmt : stmt FStar_Class_Tagged.tagged) = - { FStar_Class_Tagged.tag_of = tag_of_stmt } +let (tagged_stmt : stmt FStarC_Class_Tagged.tagged) = + { FStarC_Class_Tagged.tag_of = tag_of_stmt } let (record_string : (Prims.string * Prims.string) Prims.list -> Prims.string) = fun fs -> @@ -738,30 +738,30 @@ let (record_string : (fun uu___ -> match uu___ with | (f, s) -> Prims.strcat f (Prims.strcat " = " s)) fs)) "}") -let (showable_pattern : FStar_Parser_AST.pattern FStar_Class_Show.showable) = - { FStar_Class_Show.show = FStar_Parser_AST.pat_to_string } -let (showable_a_term : FStar_Parser_AST.term FStar_Class_Show.showable) = - { FStar_Class_Show.show = FStar_Parser_AST.term_to_string } -let (showable_a_binder : FStar_Parser_AST.binder FStar_Class_Show.showable) = - { FStar_Class_Show.show = FStar_Parser_AST.binder_to_string } +let (showable_pattern : FStarC_Parser_AST.pattern FStarC_Class_Show.showable) = + { FStarC_Class_Show.show = FStarC_Parser_AST.pat_to_string } +let (showable_a_term : FStarC_Parser_AST.term FStarC_Class_Show.showable) = + { FStarC_Class_Show.show = FStarC_Parser_AST.term_to_string } +let (showable_a_binder : FStarC_Parser_AST.binder FStarC_Class_Show.showable) = + { FStarC_Class_Show.show = FStarC_Parser_AST.binder_to_string } let rec (stmt_to_string : stmt -> Prims.string) = fun s -> match s.s with | Open l -> - let uu___ = FStar_Class_Show.show FStar_Ident.showable_lident l in + let uu___ = FStarC_Class_Show.show FStarC_Ident.showable_lident l in Prims.strcat "Open " uu___ | Expr { e;_} -> - let uu___ = FStar_Class_Show.show showable_a_term e in + let uu___ = FStarC_Class_Show.show showable_a_term e in Prims.strcat "Expr " uu___ | Assignment { lhs; value;_} -> let uu___ = let uu___1 = let uu___2 = - let uu___3 = FStar_Class_Show.show showable_a_term lhs in + let uu___3 = FStarC_Class_Show.show showable_a_term lhs in ("lhs", uu___3) in let uu___3 = let uu___4 = - let uu___5 = FStar_Class_Show.show showable_a_term value in + let uu___5 = FStarC_Class_Show.show showable_a_term value in ("value", uu___5) in [uu___4] in uu___2 :: uu___3 in @@ -771,15 +771,15 @@ let rec (stmt_to_string : stmt -> Prims.string) = let uu___ = let uu___1 = let uu___2 = - let uu___3 = FStar_Class_Show.show showable_a_term arr in + let uu___3 = FStarC_Class_Show.show showable_a_term arr in ("arr", uu___3) in let uu___3 = let uu___4 = - let uu___5 = FStar_Class_Show.show showable_a_term index in + let uu___5 = FStarC_Class_Show.show showable_a_term index in ("index", uu___5) in let uu___5 = let uu___6 = - let uu___7 = FStar_Class_Show.show showable_a_term value in + let uu___7 = FStarC_Class_Show.show showable_a_term value in ("value", uu___7) in [uu___6] in uu___4 :: uu___5 in @@ -791,25 +791,25 @@ let rec (stmt_to_string : stmt -> Prims.string) = let uu___1 = let uu___2 = let uu___3 = - FStar_Class_Show.show - (FStar_Class_Show.show_option showable_mut_or_ref) + FStarC_Class_Show.show + (FStarC_Class_Show.show_option showable_mut_or_ref) qualifier in ("qualifier", uu___3) in let uu___3 = let uu___4 = - let uu___5 = FStar_Class_Show.show showable_pattern pat in + let uu___5 = FStarC_Class_Show.show showable_pattern pat in ("pat", uu___5) in let uu___5 = let uu___6 = let uu___7 = - FStar_Class_Show.show - (FStar_Class_Show.show_option showable_a_term) typ in + FStarC_Class_Show.show + (FStarC_Class_Show.show_option showable_a_term) typ in ("typ", uu___7) in let uu___7 = let uu___8 = let uu___9 = - FStar_Class_Show.show - (FStar_Class_Show.show_option showable_let_init) init in + FStarC_Class_Show.show + (FStarC_Class_Show.show_option showable_let_init) init in ("init", uu___9) in [uu___8] in uu___6 :: uu___7 in @@ -825,19 +825,19 @@ let rec (stmt_to_string : stmt -> Prims.string) = let uu___ = let uu___1 = let uu___2 = - let uu___3 = FStar_Class_Show.show showable_a_term head in + let uu___3 = FStarC_Class_Show.show showable_a_term head in ("head", uu___3) in let uu___3 = let uu___4 = let uu___5 = - FStar_Class_Show.show - (FStar_Class_Show.show_option - (FStar_Class_Show.show_tuple3 - (FStar_Class_Show.show_option - (FStar_Class_Show.show_tuple2 - FStar_Ident.showable_ident showable_a_term)) + FStarC_Class_Show.show + (FStarC_Class_Show.show_option + (FStarC_Class_Show.show_tuple3 + (FStarC_Class_Show.show_option + (FStarC_Class_Show.show_tuple2 + FStarC_Ident.showable_ident showable_a_term)) showable_slprop - (FStar_Class_Show.show_option showable_a_term))) + (FStarC_Class_Show.show_option showable_a_term))) join_slprop in ("join_slprop", uu___5) in let uu___5 = @@ -846,7 +846,7 @@ let rec (stmt_to_string : stmt -> Prims.string) = let uu___7 = let uu___8 = let uu___9 = - FStar_Common.string_of_option stmt_to_string else_opt in + FStarC_Common.string_of_option stmt_to_string else_opt in ("else_opt", uu___9) in [uu___8] in uu___6 :: uu___7 in @@ -858,25 +858,25 @@ let rec (stmt_to_string : stmt -> Prims.string) = let uu___ = let uu___1 = let uu___2 = - let uu___3 = FStar_Class_Show.show showable_a_term head in + let uu___3 = FStarC_Class_Show.show showable_a_term head in ("head", uu___3) in let uu___3 = let uu___4 = let uu___5 = - FStar_Class_Show.show - (FStar_Class_Show.show_option - (FStar_Class_Show.show_tuple3 - (FStar_Class_Show.show_option - (FStar_Class_Show.show_tuple2 - FStar_Ident.showable_ident showable_a_term)) + FStarC_Class_Show.show + (FStarC_Class_Show.show_option + (FStarC_Class_Show.show_tuple3 + (FStarC_Class_Show.show_option + (FStarC_Class_Show.show_tuple2 + FStarC_Ident.showable_ident showable_a_term)) showable_slprop - (FStar_Class_Show.show_option showable_a_term))) + (FStarC_Class_Show.show_option showable_a_term))) returns_annot in ("returns_annot", uu___5) in let uu___5 = let uu___6 = let uu___7 = - (FStar_Common.string_of_list ()) branch_to_string + (FStarC_Common.string_of_list ()) branch_to_string branches in ("branches", uu___7) in [uu___6] in @@ -892,12 +892,12 @@ let rec (stmt_to_string : stmt -> Prims.string) = let uu___3 = let uu___4 = let uu___5 = - FStar_Class_Show.show FStar_Ident.showable_ident id in + FStarC_Class_Show.show FStarC_Ident.showable_ident id in ("id", uu___5) in let uu___5 = let uu___6 = let uu___7 = - FStar_Class_Show.show showable_slprop invariant in + FStarC_Class_Show.show showable_slprop invariant in ("invariant", uu___7) in let uu___7 = let uu___8 = @@ -912,13 +912,13 @@ let rec (stmt_to_string : stmt -> Prims.string) = let uu___ = let uu___1 = let uu___2 = - let uu___3 = FStar_Class_Show.show showable_slprop slprop1 in + let uu___3 = FStarC_Class_Show.show showable_slprop slprop1 in ("slprop", uu___3) in let uu___3 = let uu___4 = let uu___5 = - (FStar_Common.string_of_list ()) - (FStar_Class_Show.show showable_a_term) witnesses in + (FStarC_Common.string_of_list ()) + (FStarC_Class_Show.show showable_a_term) witnesses in ("witnesses", uu___5) in [uu___4] in uu___2 :: uu___3 in @@ -938,19 +938,19 @@ let rec (stmt_to_string : stmt -> Prims.string) = let uu___ = let uu___1 = let uu___2 = - let uu___3 = FStar_Class_Show.show showable_slprop p1 in + let uu___3 = FStarC_Class_Show.show showable_slprop p1 in ("p1", uu___3) in let uu___3 = let uu___4 = - let uu___5 = FStar_Class_Show.show showable_slprop p2 in + let uu___5 = FStarC_Class_Show.show showable_slprop p2 in ("p2", uu___5) in let uu___5 = let uu___6 = - let uu___7 = FStar_Class_Show.show showable_slprop q1 in + let uu___7 = FStarC_Class_Show.show showable_slprop q1 in ("q1", uu___7) in let uu___7 = let uu___8 = - let uu___9 = FStar_Class_Show.show showable_slprop q2 in + let uu___9 = FStarC_Class_Show.show showable_slprop q2 in ("q2", uu___9) in let uu___9 = let uu___10 = @@ -971,13 +971,13 @@ let rec (stmt_to_string : stmt -> Prims.string) = let uu___1 = let uu___2 = let uu___3 = - FStar_Class_Show.show showable_hint_type hint_type1 in + FStarC_Class_Show.show showable_hint_type hint_type1 in ("hint_type", uu___3) in let uu___3 = let uu___4 = let uu___5 = - FStar_Class_Show.show - (FStar_Class_Show.show_list showable_a_binder) binders1 in + FStarC_Class_Show.show + (FStarC_Class_Show.show_list showable_a_binder) binders1 in ("binders", uu___5) in [uu___4] in uu___2 :: uu___3 in @@ -988,8 +988,8 @@ let rec (stmt_to_string : stmt -> Prims.string) = let uu___1 = let uu___2 = let uu___3 = - (FStar_Common.string_of_list ()) - (FStar_Class_Show.show showable_a_term) names in + (FStarC_Common.string_of_list ()) + (FStarC_Class_Show.show showable_a_term) names in ("names", uu___3) in let uu___3 = let uu___4 = @@ -997,14 +997,14 @@ let rec (stmt_to_string : stmt -> Prims.string) = let uu___5 = let uu___6 = let uu___7 = - FStar_Common.string_of_option - (FStar_Class_Show.show - (FStar_Class_Show.show_tuple3 - (FStar_Class_Show.show_option - (FStar_Class_Show.show_tuple2 - FStar_Ident.showable_ident showable_a_term)) + FStarC_Common.string_of_option + (FStarC_Class_Show.show + (FStarC_Class_Show.show_tuple3 + (FStarC_Class_Show.show_option + (FStarC_Class_Show.show_tuple2 + FStarC_Ident.showable_ident showable_a_term)) showable_slprop - (FStar_Class_Show.show_option showable_a_term))) + (FStarC_Class_Show.show_option showable_a_term))) returns_ in ("returns_", uu___7) in [uu___6] in @@ -1012,17 +1012,17 @@ let rec (stmt_to_string : stmt -> Prims.string) = uu___2 :: uu___3 in record_string uu___1 in Prims.strcat "WithInvariants " uu___ -and (branch_to_string : (FStar_Parser_AST.pattern * stmt) -> Prims.string) = +and (branch_to_string : (FStarC_Parser_AST.pattern * stmt) -> Prims.string) = fun b -> let uu___ = b in match uu___ with | (p, s) -> - let uu___1 = FStar_Class_Show.show showable_pattern p in + let uu___1 = FStarC_Class_Show.show showable_pattern p in let uu___2 = let uu___3 = stmt_to_string s in Prims.strcat " -> " uu___3 in Prims.strcat uu___1 uu___2 -let (showable_stmt : stmt FStar_Class_Show.showable) = - { FStar_Class_Show.show = stmt_to_string } +let (showable_stmt : stmt FStarC_Class_Show.showable) = + { FStarC_Class_Show.show = stmt_to_string } type decl = | FnDefn of fn_defn | FnDecl of fn_decl @@ -1034,15 +1034,15 @@ let (uu___is_FnDecl : decl -> Prims.bool) = fun projectee -> match projectee with | FnDecl _0 -> true | uu___ -> false let (__proj__FnDecl__item___0 : decl -> fn_decl) = fun projectee -> match projectee with | FnDecl _0 -> _0 -let (eq_ident : FStar_Ident.ident -> FStar_Ident.ident -> Prims.bool) = +let (eq_ident : FStarC_Ident.ident -> FStarC_Ident.ident -> Prims.bool) = fun i1 -> fun i2 -> - FStar_Class_Deq.op_Equals_Question FStar_Syntax_Syntax.deq_univ_name i1 + FStarC_Class_Deq.op_Equals_Question FStarC_Syntax_Syntax.deq_univ_name i1 i2 -let (eq_lident : FStar_Ident.lident -> FStar_Ident.lident -> Prims.bool) = +let (eq_lident : FStarC_Ident.lident -> FStarC_Ident.lident -> Prims.bool) = fun i1 -> fun i2 -> - FStar_Class_Deq.op_Equals_Question FStar_Syntax_Syntax.deq_fv i1 i2 + FStarC_Class_Deq.op_Equals_Question FStarC_Syntax_Syntax.deq_fv i1 i2 let rec forall2 : 'a . ('a -> 'a -> Prims.bool) -> 'a Prims.list -> 'a Prims.list -> Prims.bool @@ -1080,20 +1080,20 @@ and (eq_fn_decl : fn_decl -> fn_decl -> Prims.bool) = fun f1 -> fun f2 -> ((eq_ident f1.id2 f2.id2) && - (forall2 FStar_Parser_AST_Util.eq_binder f1.binders3 f2.binders3)) + (forall2 FStarC_Parser_AST_Util.eq_binder f1.binders3 f2.binders3)) && (eq_ascription f1.ascription2 f2.ascription2) and (eq_fn_defn : fn_defn -> fn_defn -> Prims.bool) = fun f1 -> fun f2 -> (((((eq_ident f1.id1 f2.id1) && (f1.is_rec = f2.is_rec)) && - (forall2 FStar_Parser_AST_Util.eq_binder f1.binders2 f2.binders2)) + (forall2 FStarC_Parser_AST_Util.eq_binder f1.binders2 f2.binders2)) && (eq_ascription f1.ascription1 f2.ascription1)) - && (eq_opt FStar_Parser_AST_Util.eq_term f1.measure f2.measure)) + && (eq_opt FStarC_Parser_AST_Util.eq_term f1.measure f2.measure)) && (eq_body f1.body3 f2.body3) and (eq_ascription : - (computation_type, FStar_Parser_AST.term FStar_Pervasives_Native.option) + (computation_type, FStarC_Parser_AST.term FStar_Pervasives_Native.option) FStar_Pervasives.either -> - (computation_type, FStar_Parser_AST.term FStar_Pervasives_Native.option) + (computation_type, FStarC_Parser_AST.term FStar_Pervasives_Native.option) FStar_Pervasives.either -> Prims.bool) = fun a1 -> @@ -1102,7 +1102,7 @@ and (eq_ascription : | (FStar_Pervasives.Inl c1, FStar_Pervasives.Inl c2) -> eq_computation_type c1 c2 | (FStar_Pervasives.Inr t1, FStar_Pervasives.Inr t2) -> - eq_opt FStar_Parser_AST_Util.eq_term t1 t2 + eq_opt FStarC_Parser_AST_Util.eq_term t1 t2 | (uu___, uu___1) -> false and (eq_computation_type : computation_type -> computation_type -> Prims.bool) = @@ -1110,16 +1110,16 @@ and (eq_computation_type : fun c2 -> (((((c1.tag = c2.tag) && (eq_slprop c1.precondition c2.precondition)) && (eq_ident c1.return_name c2.return_name)) - && (FStar_Parser_AST_Util.eq_term c1.return_type c2.return_type)) + && (FStarC_Parser_AST_Util.eq_term c1.return_type c2.return_type)) && (eq_slprop c1.postcondition c2.postcondition)) - && (eq_opt FStar_Parser_AST_Util.eq_term c1.opens c2.opens) + && (eq_opt FStarC_Parser_AST_Util.eq_term c1.opens c2.opens) and (eq_slprop : slprop -> slprop -> Prims.bool) = fun s1 -> fun s2 -> eq_slprop' s1.v s2.v and (eq_slprop' : slprop' -> slprop' -> Prims.bool) = fun s1 -> fun s2 -> match (s1, s2) with - | (SLPropTerm t1, SLPropTerm t2) -> FStar_Parser_AST_Util.eq_term t1 t2 + | (SLPropTerm t1, SLPropTerm t2) -> FStarC_Parser_AST_Util.eq_term t1 t2 and (eq_body : (stmt, lambda) FStar_Pervasives.either -> (stmt, lambda) FStar_Pervasives.either -> Prims.bool) @@ -1137,33 +1137,33 @@ and (eq_stmt' : stmt' -> stmt' -> Prims.bool) = fun s2 -> match (s1, s2) with | (Open l1, Open l2) -> eq_lident l1 l2 - | (Expr e1, Expr e2) -> FStar_Parser_AST_Util.eq_term e1.e e2.e + | (Expr e1, Expr e2) -> FStarC_Parser_AST_Util.eq_term e1.e e2.e | (Assignment { lhs = l1; value = v1;_}, Assignment { lhs = l2; value = v2;_}) -> - (FStar_Parser_AST_Util.eq_term l1 l2) && - (FStar_Parser_AST_Util.eq_term v1 v2) + (FStarC_Parser_AST_Util.eq_term l1 l2) && + (FStarC_Parser_AST_Util.eq_term v1 v2) | (ArrayAssignment { arr = a1; index = i1; value1 = v1;_}, ArrayAssignment { arr = a2; index = i2; value1 = v2;_}) -> - ((FStar_Parser_AST_Util.eq_term a1 a2) && - (FStar_Parser_AST_Util.eq_term i1 i2)) - && (FStar_Parser_AST_Util.eq_term v1 v2) + ((FStarC_Parser_AST_Util.eq_term a1 a2) && + (FStarC_Parser_AST_Util.eq_term i1 i2)) + && (FStarC_Parser_AST_Util.eq_term v1 v2) | (LetBinding { qualifier = q1; pat = pat1; typ = t1; init1;_}, LetBinding { qualifier = q2; pat = pat2; typ = t2; init1 = init2;_}) -> (((eq_opt eq_mut_or_ref q1 q2) && - (FStar_Parser_AST_Util.eq_pattern pat1 pat2)) - && (eq_opt FStar_Parser_AST_Util.eq_term t1 t2)) + (FStarC_Parser_AST_Util.eq_pattern pat1 pat2)) + && (eq_opt FStarC_Parser_AST_Util.eq_term t1 t2)) && (eq_opt eq_let_init init1 init2) | (Block { stmt = s11;_}, Block { stmt = s21;_}) -> eq_stmt s11 s21 | (If { head = h1; join_slprop = j1; then_ = t1; else_opt = e1;_}, If { head = h2; join_slprop = j2; then_ = t2; else_opt = e2;_}) -> - (((FStar_Parser_AST_Util.eq_term h1 h2) && + (((FStarC_Parser_AST_Util.eq_term h1 h2) && (eq_opt eq_ensures_slprop j1 j2)) && (eq_stmt t1 t2)) && (eq_opt eq_stmt e1 e2) | (Match { head1 = h1; returns_annot = r1; branches = b1;_}, Match { head1 = h2; returns_annot = r2; branches = b2;_}) -> - ((FStar_Parser_AST_Util.eq_term h1 h2) && + ((FStarC_Parser_AST_Util.eq_term h1 h2) && (eq_opt eq_ensures_slprop r1 r2)) && (forall2 @@ -1171,7 +1171,7 @@ and (eq_stmt' : stmt' -> stmt' -> Prims.bool) = fun uu___1 -> match (uu___, uu___1) with | ((p1, s11), (p2, s21)) -> - (FStar_Parser_AST_Util.eq_pattern p1 p2) && + (FStarC_Parser_AST_Util.eq_pattern p1 p2) && (eq_stmt s11 s21)) b1 b2) | (While { guard = g1; id = id1; invariant = i1; body = b1;_}, While { guard = g2; id = id2; invariant = i2; body = b2;_}) -> @@ -1180,7 +1180,7 @@ and (eq_stmt' : stmt' -> stmt' -> Prims.bool) = | (Introduce { slprop = s11; witnesses = w1;_}, Introduce { slprop = s21; witnesses = w2;_}) -> (eq_slprop s11 s21) && - (forall2 FStar_Parser_AST_Util.eq_term w1 w2) + (forall2 FStarC_Parser_AST_Util.eq_term w1 w2) | (Sequence { s1 = s11; s2 = s21;_}, Sequence { s1 = s1'; s2 = s2';_}) -> (eq_stmt s11 s1') && (eq_stmt s21 s2') | (Parallel { p1; p2; q1; q2; b1; b2;_}, Parallel @@ -1192,10 +1192,10 @@ and (eq_stmt' : stmt' -> stmt' -> Prims.bool) = | (ProofHintWithBinders { hint_type = ht1; binders = bs1;_}, ProofHintWithBinders { hint_type = ht2; binders = bs2;_}) -> (eq_hint_type ht1 ht2) && - (forall2 FStar_Parser_AST_Util.eq_binder bs1 bs2) + (forall2 FStarC_Parser_AST_Util.eq_binder bs1 bs2) | (WithInvariants { names = n1; body1 = b1; returns_ = r1;_}, WithInvariants { names = n2; body1 = b2; returns_ = r2;_}) -> - ((forall2 FStar_Parser_AST_Util.eq_term n1 n2) && (eq_stmt b1 b2)) + ((forall2 FStarC_Parser_AST_Util.eq_term n1 n2) && (eq_stmt b1 b2)) && (eq_opt eq_ensures_slprop r1 r2) | uu___ -> false and (eq_let_init : let_init -> let_init -> Prims.bool) = @@ -1204,15 +1204,15 @@ and (eq_let_init : let_init -> let_init -> Prims.bool) = match (i1, i2) with | (Array_initializer a1, Array_initializer a2) -> eq_array_init a1 a2 | (Default_initializer t1, Default_initializer t2) -> - FStar_Parser_AST_Util.eq_term t1 t2 + FStarC_Parser_AST_Util.eq_term t1 t2 | (Lambda_initializer l1, Lambda_initializer l2) -> eq_fn_defn l1 l2 | (Stmt_initializer s1, Stmt_initializer s2) -> eq_stmt s1 s2 | (uu___, uu___1) -> false and (eq_array_init : array_init -> array_init -> Prims.bool) = fun a1 -> fun a2 -> - (FStar_Parser_AST_Util.eq_term a1.init a2.init) && - (FStar_Parser_AST_Util.eq_term a1.len a2.len) + (FStarC_Parser_AST_Util.eq_term a1.init a2.init) && + (FStarC_Parser_AST_Util.eq_term a1.len a2.len) and (eq_hint_type : hint_type -> hint_type -> Prims.bool) = fun h1 -> fun h2 -> @@ -1229,13 +1229,13 @@ and (eq_hint_type : hint_type -> hint_type -> Prims.bool) = fun uu___1 -> match (uu___, uu___1) with | ((t11, t21), (t1', t2')) -> - (FStar_Parser_AST_Util.eq_term t11 t1') && - (FStar_Parser_AST_Util.eq_term t21 t2')) ts1 ts2) + (FStarC_Parser_AST_Util.eq_term t11 t1') && + (FStarC_Parser_AST_Util.eq_term t21 t2')) ts1 ts2) && (eq_opt eq_slprop g1 g2)) - && (eq_opt FStar_Parser_AST_Util.eq_term t1 t2) + && (eq_opt FStarC_Parser_AST_Util.eq_term t1 t2) | (REWRITE (s1, s1', t1), REWRITE (s2, s2', t2)) -> ((eq_slprop s1 s2) && (eq_slprop s1' s2')) && - (eq_opt FStar_Parser_AST_Util.eq_term t1 t2) + (eq_opt FStarC_Parser_AST_Util.eq_term t1 t2) | (WILD, WILD) -> true | (SHOW_PROOF_STATE r1, SHOW_PROOF_STATE r2) -> true | (uu___, uu___1) -> false @@ -1254,13 +1254,13 @@ and (eq_ensures_slprop : ensures_slprop -> ensures_slprop -> Prims.bool) = match (uu___2, uu___3) with | ((i1, t11), (i2, t21)) -> (eq_ident i1 i2) && - (FStar_Parser_AST_Util.eq_term t11 t21)) h1 h2) + (FStarC_Parser_AST_Util.eq_term t11 t21)) h1 h2) && (eq_slprop s1 s2)) - && (eq_opt FStar_Parser_AST_Util.eq_term t1 t2)) + && (eq_opt FStarC_Parser_AST_Util.eq_term t1 t2)) and (eq_lambda : lambda -> lambda -> Prims.bool) = fun l1 -> fun l2 -> - ((forall2 FStar_Parser_AST_Util.eq_binder l1.binders1 l2.binders1) && + ((forall2 FStarC_Parser_AST_Util.eq_binder l1.binders1 l2.binders1) && (eq_opt eq_computation_type l1.ascription l2.ascription)) && (eq_stmt l1.body2 l2.body2) and (eq_mut_or_ref : mut_or_ref -> mut_or_ref -> Prims.bool) = @@ -1288,89 +1288,89 @@ let ieither : match e with | FStar_Pervasives.Inl x -> f x | FStar_Pervasives.Inr x -> g x -let rec (scan_decl : FStar_Parser_AST.dep_scan_callbacks -> decl -> unit) = +let rec (scan_decl : FStarC_Parser_AST.dep_scan_callbacks -> decl -> unit) = fun cbs -> fun d -> match d with | FnDefn f -> scan_fn_defn cbs f | FnDecl d1 -> scan_fn_decl cbs d1 -and (scan_fn_decl : FStar_Parser_AST.dep_scan_callbacks -> fn_decl -> unit) = +and (scan_fn_decl : FStarC_Parser_AST.dep_scan_callbacks -> fn_decl -> unit) = fun cbs -> fun f -> iter (scan_binder cbs) f.binders3; scan_ascription cbs f.ascription2 -and (scan_fn_defn : FStar_Parser_AST.dep_scan_callbacks -> fn_defn -> unit) = +and (scan_fn_defn : FStarC_Parser_AST.dep_scan_callbacks -> fn_defn -> unit) = fun cbs -> fun f -> iter (scan_binder cbs) f.binders2; ieither (scan_computation_type cbs) - (iopt cbs.FStar_Parser_AST.scan_term) f.ascription1; - iopt cbs.FStar_Parser_AST.scan_term f.measure; + (iopt cbs.FStarC_Parser_AST.scan_term) f.ascription1; + iopt cbs.FStarC_Parser_AST.scan_term f.measure; ieither (scan_stmt cbs) (scan_lambda cbs) f.body3 -and (scan_binder : FStar_Parser_AST.dep_scan_callbacks -> binder -> unit) = - fun cbs -> fun b -> cbs.FStar_Parser_AST.scan_binder b +and (scan_binder : FStarC_Parser_AST.dep_scan_callbacks -> binder -> unit) = + fun cbs -> fun b -> cbs.FStarC_Parser_AST.scan_binder b and (scan_ascription : - FStar_Parser_AST.dep_scan_callbacks -> - (computation_type, FStar_Parser_AST.term FStar_Pervasives_Native.option) + FStarC_Parser_AST.dep_scan_callbacks -> + (computation_type, FStarC_Parser_AST.term FStar_Pervasives_Native.option) FStar_Pervasives.either -> unit) = fun cbs -> fun a -> ieither (scan_computation_type cbs) - (iopt cbs.FStar_Parser_AST.scan_term) a + (iopt cbs.FStarC_Parser_AST.scan_term) a and (scan_computation_type : - FStar_Parser_AST.dep_scan_callbacks -> computation_type -> unit) = + FStarC_Parser_AST.dep_scan_callbacks -> computation_type -> unit) = fun cbs -> fun c -> scan_slprop cbs c.precondition; - cbs.FStar_Parser_AST.scan_term c.return_type; + cbs.FStarC_Parser_AST.scan_term c.return_type; scan_slprop cbs c.postcondition; - iopt cbs.FStar_Parser_AST.scan_term c.opens -and (scan_slprop : FStar_Parser_AST.dep_scan_callbacks -> slprop -> unit) = + iopt cbs.FStarC_Parser_AST.scan_term c.opens +and (scan_slprop : FStarC_Parser_AST.dep_scan_callbacks -> slprop -> unit) = fun cbs -> fun s -> let uu___ = s.v in - match uu___ with | SLPropTerm s1 -> cbs.FStar_Parser_AST.scan_term s1 -and (scan_lambda : FStar_Parser_AST.dep_scan_callbacks -> lambda -> unit) = + match uu___ with | SLPropTerm s1 -> cbs.FStarC_Parser_AST.scan_term s1 +and (scan_lambda : FStarC_Parser_AST.dep_scan_callbacks -> lambda -> unit) = fun cbs -> fun l -> iter (scan_binder cbs) l.binders1; iopt (scan_computation_type cbs) l.ascription; scan_stmt cbs l.body2 -and (scan_stmt : FStar_Parser_AST.dep_scan_callbacks -> stmt -> unit) = +and (scan_stmt : FStarC_Parser_AST.dep_scan_callbacks -> stmt -> unit) = fun cbs -> fun s -> match s.s with - | Open l -> cbs.FStar_Parser_AST.add_open l - | Expr e -> cbs.FStar_Parser_AST.scan_term e.e + | Open l -> cbs.FStarC_Parser_AST.add_open l + | Expr e -> cbs.FStarC_Parser_AST.scan_term e.e | Assignment { lhs = l; value = v;_} -> - (cbs.FStar_Parser_AST.scan_term l; cbs.FStar_Parser_AST.scan_term v) + (cbs.FStarC_Parser_AST.scan_term l; cbs.FStarC_Parser_AST.scan_term v) | ArrayAssignment { arr = a; index = i; value1 = v;_} -> - (cbs.FStar_Parser_AST.scan_term a; - cbs.FStar_Parser_AST.scan_term i; - cbs.FStar_Parser_AST.scan_term v) + (cbs.FStarC_Parser_AST.scan_term a; + cbs.FStarC_Parser_AST.scan_term i; + cbs.FStarC_Parser_AST.scan_term v) | LetBinding { qualifier = q; pat = p; typ = t; init1 = init;_} -> (iopt (scan_let_init cbs) init; - cbs.FStar_Parser_AST.scan_pattern p; - iopt cbs.FStar_Parser_AST.scan_term t) + cbs.FStarC_Parser_AST.scan_pattern p; + iopt cbs.FStarC_Parser_AST.scan_term t) | Block { stmt = s1;_} -> scan_stmt cbs s1 | If { head = h; join_slprop = j; then_ = t; else_opt = e;_} -> - (cbs.FStar_Parser_AST.scan_term h; + (cbs.FStarC_Parser_AST.scan_term h; iopt (scan_ensures_slprop cbs) j; scan_stmt cbs t; iopt (scan_stmt cbs) e) | Match { head1 = h; returns_annot = r; branches = b;_} -> - (cbs.FStar_Parser_AST.scan_term h; + (cbs.FStarC_Parser_AST.scan_term h; iopt (scan_ensures_slprop cbs) r; iter (fun uu___2 -> match uu___2 with | (p, s1) -> - (cbs.FStar_Parser_AST.scan_pattern p; scan_stmt cbs s1)) + (cbs.FStarC_Parser_AST.scan_pattern p; scan_stmt cbs s1)) b) | While { guard = g; id; invariant = i; body = b;_} -> (scan_stmt cbs g; scan_slprop cbs i; scan_stmt cbs b) | Introduce { slprop = s1; witnesses = w;_} -> - (scan_slprop cbs s1; iter cbs.FStar_Parser_AST.scan_term w) + (scan_slprop cbs s1; iter cbs.FStarC_Parser_AST.scan_term w) | Sequence { s1; s2;_} -> (scan_stmt cbs s1; scan_stmt cbs s2) | Parallel { p1; p2; q1; q2; b1; b2;_} -> (scan_slprop cbs p1; @@ -1382,22 +1382,22 @@ and (scan_stmt : FStar_Parser_AST.dep_scan_callbacks -> stmt -> unit) = | ProofHintWithBinders { hint_type = ht; binders = bs;_} -> (scan_hint_type cbs ht; iter (scan_binder cbs) bs) | WithInvariants { names = n; body1 = b; returns_ = r;_} -> - (iter cbs.FStar_Parser_AST.scan_term n; + (iter cbs.FStarC_Parser_AST.scan_term n; scan_stmt cbs b; iopt (scan_ensures_slprop cbs) r) -and (scan_let_init : FStar_Parser_AST.dep_scan_callbacks -> let_init -> unit) +and (scan_let_init : FStarC_Parser_AST.dep_scan_callbacks -> let_init -> unit) = fun cbs -> fun i -> match i with | Array_initializer a -> - (cbs.FStar_Parser_AST.scan_term a.init; - cbs.FStar_Parser_AST.scan_term a.len) - | Default_initializer t -> cbs.FStar_Parser_AST.scan_term t + (cbs.FStarC_Parser_AST.scan_term a.init; + cbs.FStarC_Parser_AST.scan_term a.len) + | Default_initializer t -> cbs.FStarC_Parser_AST.scan_term t | Lambda_initializer l -> scan_fn_defn cbs l | Stmt_initializer s -> scan_stmt cbs s and (scan_ensures_slprop : - FStar_Parser_AST.dep_scan_callbacks -> ensures_slprop -> unit) = + FStarC_Parser_AST.dep_scan_callbacks -> ensures_slprop -> unit) = fun cbs -> fun e -> let uu___ = e in @@ -1406,11 +1406,11 @@ and (scan_ensures_slprop : (iopt (fun uu___2 -> match uu___2 with - | (i, t1) -> cbs.FStar_Parser_AST.scan_term t1) h; + | (i, t1) -> cbs.FStarC_Parser_AST.scan_term t1) h; scan_slprop cbs s; - iopt cbs.FStar_Parser_AST.scan_term t) + iopt cbs.FStarC_Parser_AST.scan_term t) and (scan_hint_type : - FStar_Parser_AST.dep_scan_callbacks -> hint_type -> unit) = + FStarC_Parser_AST.dep_scan_callbacks -> hint_type -> unit) = fun cbs -> fun h -> match h with @@ -1423,14 +1423,14 @@ and (scan_hint_type : (fun uu___1 -> match uu___1 with | (t1, t2) -> - (cbs.FStar_Parser_AST.scan_term t1; - cbs.FStar_Parser_AST.scan_term t2)) ts; + (cbs.FStarC_Parser_AST.scan_term t1; + cbs.FStarC_Parser_AST.scan_term t2)) ts; iopt (scan_slprop cbs) g; - iopt cbs.FStar_Parser_AST.scan_term t) + iopt cbs.FStarC_Parser_AST.scan_term t) | REWRITE (s1, s2, t) -> (scan_slprop cbs s1; scan_slprop cbs s2; - iopt cbs.FStar_Parser_AST.scan_term t) + iopt cbs.FStarC_Parser_AST.scan_term t) | WILD -> () | SHOW_PROOF_STATE uu___ -> () let (range_of_decl : decl -> rng) = @@ -1438,10 +1438,10 @@ let (range_of_decl : decl -> rng) = let (mk_comp : st_comp_tag -> slprop -> - FStar_Ident.ident -> - FStar_Parser_AST.term -> + FStarC_Ident.ident -> + FStarC_Parser_AST.term -> slprop -> - FStar_Parser_AST.term FStar_Pervasives_Native.option -> + FStarC_Parser_AST.term FStar_Pervasives_Native.option -> rng -> computation_type) = fun tag -> @@ -1461,7 +1461,7 @@ let (mk_comp : range } let (add_decorations : - decl -> FStar_Parser_AST.decoration Prims.list -> decl) = + decl -> FStarC_Parser_AST.decoration Prims.list -> decl) = fun d -> fun ds -> match d with @@ -1486,19 +1486,19 @@ let (add_decorations : decorations1 = (FStar_List_Tot_Base.append ds f.decorations1); range4 = (f.range4) } -let (mk_expr : FStar_Parser_AST.term -> stmt') = fun e -> Expr { e } -let (mk_assignment : FStar_Parser_AST.term -> FStar_Parser_AST.term -> stmt') +let (mk_expr : FStarC_Parser_AST.term -> stmt') = fun e -> Expr { e } +let (mk_assignment : FStarC_Parser_AST.term -> FStarC_Parser_AST.term -> stmt') = fun id -> fun value -> Assignment { lhs = id; value } let (mk_array_assignment : - FStar_Parser_AST.term -> - FStar_Parser_AST.term -> FStar_Parser_AST.term -> stmt') + FStarC_Parser_AST.term -> + FStarC_Parser_AST.term -> FStarC_Parser_AST.term -> stmt') = fun arr -> fun index -> fun value -> ArrayAssignment { arr; index; value1 = value } let (mk_let_binding : mut_or_ref FStar_Pervasives_Native.option -> - FStar_Parser_AST.pattern -> - FStar_Parser_AST.term FStar_Pervasives_Native.option -> + FStarC_Parser_AST.pattern -> + FStarC_Parser_AST.term FStar_Pervasives_Native.option -> let_init FStar_Pervasives_Native.option -> stmt') = fun qualifier -> @@ -1506,7 +1506,7 @@ let (mk_let_binding : fun typ -> fun init -> LetBinding { qualifier; pat; typ; init1 = init } let (mk_block : stmt -> stmt') = fun stmt1 -> Block { stmt = stmt1 } let (mk_if : - FStar_Parser_AST.term -> + FStarC_Parser_AST.term -> ensures_slprop FStar_Pervasives_Native.option -> stmt -> stmt FStar_Pervasives_Native.option -> stmt') = @@ -1514,33 +1514,33 @@ let (mk_if : fun join_slprop -> fun then_ -> fun else_opt -> If { head; join_slprop; then_; else_opt } let (mk_match : - FStar_Parser_AST.term -> + FStarC_Parser_AST.term -> ensures_slprop FStar_Pervasives_Native.option -> - (FStar_Parser_AST.pattern * stmt) Prims.list -> stmt') + (FStarC_Parser_AST.pattern * stmt) Prims.list -> stmt') = fun head -> fun returns_annot -> fun branches -> Match { head1 = head; returns_annot; branches } -let (mk_while : stmt -> FStar_Ident.ident -> slprop -> stmt -> stmt') = +let (mk_while : stmt -> FStarC_Ident.ident -> slprop -> stmt -> stmt') = fun guard -> fun id -> fun invariant -> fun body -> While { guard; id; invariant; body } -let (mk_intro : slprop -> FStar_Parser_AST.term Prims.list -> stmt') = +let (mk_intro : slprop -> FStarC_Parser_AST.term Prims.list -> stmt') = fun slprop1 -> fun witnesses -> Introduce { slprop = slprop1; witnesses } let (mk_sequence : stmt -> stmt -> stmt') = fun s1 -> fun s2 -> Sequence { s1; s2 } let (mk_stmt : stmt' -> rng -> stmt) = fun s -> fun range -> { s; range1 = range } let (mk_fn_defn : - FStar_Ident.ident -> + FStarC_Ident.ident -> Prims.bool -> binders -> (computation_type, - FStar_Parser_AST.term FStar_Pervasives_Native.option) + FStarC_Parser_AST.term FStar_Pervasives_Native.option) FStar_Pervasives.either -> - FStar_Parser_AST.term FStar_Pervasives_Native.option -> + FStarC_Parser_AST.term FStar_Pervasives_Native.option -> (stmt, lambda) FStar_Pervasives.either -> - FStar_Parser_AST.decoration Prims.list -> rng -> fn_defn) + FStarC_Parser_AST.decoration Prims.list -> rng -> fn_defn) = fun id -> fun is_rec -> @@ -1561,12 +1561,12 @@ let (mk_fn_defn : range3 = range } let (mk_fn_decl : - FStar_Ident.ident -> + FStarC_Ident.ident -> binders -> (computation_type, - FStar_Parser_AST.term FStar_Pervasives_Native.option) + FStarC_Parser_AST.term FStar_Pervasives_Native.option) FStar_Pervasives.either -> - FStar_Parser_AST.decoration Prims.list -> rng -> fn_decl) + FStarC_Parser_AST.decoration Prims.list -> rng -> fn_decl) = fun id -> fun binders1 -> @@ -1580,7 +1580,7 @@ let (mk_fn_decl : decorations1 = decorations; range4 = range } -let (mk_open : FStar_Ident.lident -> stmt') = fun lid -> Open lid +let (mk_open : FStarC_Ident.lident -> stmt') = fun lid -> Open lid let (mk_par : slprop -> slprop -> slprop -> slprop -> stmt -> stmt -> stmt') = fun p1 -> @@ -1599,7 +1599,7 @@ let (mk_lambda : fun range -> { binders1 = bs; ascription; body2 = body; range2 = range } let (mk_with_invs : - FStar_Parser_AST.term Prims.list -> + FStarC_Parser_AST.term Prims.list -> stmt -> ensures_slprop FStar_Pervasives_Native.option -> stmt') = fun names -> diff --git a/src/ocaml/plugin/generated/PulseSyntaxExtension_TransformRValues.ml b/src/ocaml/plugin/generated/PulseSyntaxExtension_TransformRValues.ml index fb2351125..4e0f326f5 100644 --- a/src/ocaml/plugin/generated/PulseSyntaxExtension_TransformRValues.ml +++ b/src/ocaml/plugin/generated/PulseSyntaxExtension_TransformRValues.ml @@ -1,6 +1,6 @@ open Prims type mutvar_entry = - (FStar_Ident.ident * FStar_Syntax_Syntax.bv * FStar_Ident.ident + (FStarC_Ident.ident * FStarC_Syntax_Syntax.bv * FStarC_Ident.ident FStar_Pervasives_Native.option) type menv = { @@ -10,14 +10,14 @@ let (__proj__Mkmenv__item__map : menv -> mutvar_entry Prims.list) = fun projectee -> match projectee with | { map; env;_} -> map let (__proj__Mkmenv__item__env : menv -> PulseSyntaxExtension_Env.env_t) = fun projectee -> match projectee with | { map; env;_} -> env -let (menv_push_ns : menv -> FStar_Ident.lid -> menv) = +let (menv_push_ns : menv -> FStarC_Ident.lid -> menv) = fun m -> fun ns -> let uu___ = PulseSyntaxExtension_Env.push_namespace m.env ns in { map = (m.map); env = uu___ } let (menv_push_bv : menv -> - FStar_Ident.ident -> + FStarC_Ident.ident -> PulseSyntaxExtension_Sugar.mut_or_ref FStar_Pervasives_Native.option -> Prims.bool -> menv) = @@ -40,7 +40,7 @@ let (menv_push_bv : env = (m1.env) } else m1 -let (menv_push_bvs : menv -> FStar_Ident.ident Prims.list -> menv) = +let (menv_push_bvs : menv -> FStarC_Ident.ident Prims.list -> menv) = fun m -> fun xs -> let uu___ = @@ -49,58 +49,58 @@ let (menv_push_bvs : menv -> FStar_Ident.ident Prims.list -> menv) = { map = (m.map); env = uu___ } let (is_mut : menv -> - FStar_Syntax_Syntax.bv -> - FStar_Ident.ident FStar_Pervasives_Native.option + FStarC_Syntax_Syntax.bv -> + FStarC_Ident.ident FStar_Pervasives_Native.option FStar_Pervasives_Native.option) = fun m -> fun x -> let uu___ = - FStar_Compiler_List.tryFind + FStarC_Compiler_List.tryFind (fun uu___1 -> match uu___1 with - | (uu___2, y, uu___3) -> FStar_Syntax_Syntax.bv_eq x y) + | (uu___2, y, uu___3) -> FStarC_Syntax_Syntax.bv_eq x y) m.map in match uu___ with | FStar_Pervasives_Native.None -> FStar_Pervasives_Native.None | FStar_Pervasives_Native.Some (uu___1, uu___2, curval) -> FStar_Pervasives_Native.Some curval -type needs_derefs = (FStar_Ident.ident * FStar_Ident.ident) Prims.list +type needs_derefs = (FStarC_Ident.ident * FStarC_Ident.ident) Prims.list let (fresh_var : - FStar_Ident.ident -> FStar_Ident.ident PulseSyntaxExtension_Err.err) = + FStarC_Ident.ident -> FStarC_Ident.ident PulseSyntaxExtension_Err.err) = fun uu___ -> (fun nm -> Obj.magic - (FStar_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic PulseSyntaxExtension_Err.next_ctr) (fun uu___ -> (fun ctr -> let ctr = Obj.magic ctr in let s = let uu___ = - FStar_Class_Show.show FStar_Ident.showable_ident nm in + FStarC_Class_Show.show FStarC_Ident.showable_ident nm in let uu___1 = let uu___2 = - FStar_Class_Show.show - (FStar_Class_Show.printableshow + FStarC_Class_Show.show + (FStarC_Class_Show.printableshow FStar_Class_Printable.printable_nat) ctr in Prims.strcat "@" uu___2 in Prims.strcat uu___ uu___1 in let uu___ = let uu___1 = - let uu___2 = FStar_Ident.range_of_id nm in (s, uu___2) in - FStar_Ident.mk_ident uu___1 in + let uu___2 = FStarC_Ident.range_of_id nm in (s, uu___2) in + FStarC_Ident.mk_ident uu___1 in Obj.magic (PulseSyntaxExtension_Err.return uu___)) uu___))) uu___ -let (bind_curval : menv -> FStar_Ident.ident -> FStar_Ident.ident -> menv) = +let (bind_curval : menv -> FStarC_Ident.ident -> FStarC_Ident.ident -> menv) = fun m -> fun x -> fun curval -> let uu___ = - FStar_Compiler_List.tryFind + FStarC_Compiler_List.tryFind (fun uu___1 -> match uu___1 with - | (y, uu___2, uu___3) -> FStar_Ident.ident_equals x y) + | (y, uu___2, uu___3) -> FStarC_Ident.ident_equals x y) m.map in match uu___ with | FStar_Pervasives_Native.None -> failwith "Impossible 1" @@ -110,14 +110,14 @@ let (bind_curval : menv -> FStar_Ident.ident -> FStar_Ident.ident -> menv) = (m.map)); env = (m.env) } -let (clear_curval : menv -> FStar_Ident.ident -> menv) = +let (clear_curval : menv -> FStarC_Ident.ident -> menv) = fun m -> fun x -> let uu___ = - FStar_Compiler_List.tryFind + FStarC_Compiler_List.tryFind (fun uu___1 -> match uu___1 with - | (y, uu___2, uu___3) -> FStar_Ident.ident_equals x y) m.map in + | (y, uu___2, uu___3) -> FStarC_Ident.ident_equals x y) m.map in match uu___ with | FStar_Pervasives_Native.None -> failwith "Impossible 2" | FStar_Pervasives_Native.Some (x1, bv, uu___1) -> @@ -128,35 +128,35 @@ let (clear_curval : menv -> FStar_Ident.ident -> menv) = let (bind_curvals : menv -> needs_derefs -> menv) = fun m -> fun l -> - FStar_Compiler_List.fold_left + FStarC_Compiler_List.fold_left (fun m1 -> fun uu___ -> match uu___ with | (x, y) -> bind_curval m1 x y) m l let (resolve_mut : menv -> - FStar_Parser_AST.term -> mutvar_entry FStar_Pervasives_Native.option) + FStarC_Parser_AST.term -> mutvar_entry FStar_Pervasives_Native.option) = fun m -> fun e -> - match e.FStar_Parser_AST.tm with - | FStar_Parser_AST.Var l -> + match e.FStarC_Parser_AST.tm with + | FStarC_Parser_AST.Var l -> let topt = - FStar_Syntax_DsEnv.try_lookup_lid + FStarC_Syntax_DsEnv.try_lookup_lid (m.env).PulseSyntaxExtension_Env.dsenv l in (match topt with | FStar_Pervasives_Native.Some - { FStar_Syntax_Syntax.n = FStar_Syntax_Syntax.Tm_name x; - FStar_Syntax_Syntax.pos = uu___; - FStar_Syntax_Syntax.vars = uu___1; - FStar_Syntax_Syntax.hash_code = uu___2;_} + { FStarC_Syntax_Syntax.n = FStarC_Syntax_Syntax.Tm_name x; + FStarC_Syntax_Syntax.pos = uu___; + FStarC_Syntax_Syntax.vars = uu___1; + FStarC_Syntax_Syntax.hash_code = uu___2;_} -> - FStar_Compiler_List.tryFind + FStarC_Compiler_List.tryFind (fun uu___3 -> match uu___3 with - | (uu___4, y, uu___5) -> FStar_Syntax_Syntax.bv_eq x y) + | (uu___4, y, uu___5) -> FStarC_Syntax_Syntax.bv_eq x y) m.map | uu___ -> FStar_Pervasives_Native.None) | uu___ -> FStar_Pervasives_Native.None -let (maybe_clear_curval : menv -> FStar_Parser_AST.term -> menv) = +let (maybe_clear_curval : menv -> FStarC_Parser_AST.term -> menv) = fun m -> fun x -> let uu___ = resolve_mut m x in @@ -167,31 +167,31 @@ let (maybe_clear_curval : menv -> FStar_Parser_AST.term -> menv) = map = ((x1, y, FStar_Pervasives_Native.None) :: (m.map)); env = (m.env) } -let (read : FStar_Ident.ident -> FStar_Parser_AST.term) = +let (read : FStarC_Ident.ident -> FStarC_Parser_AST.term) = fun x -> - let range = FStar_Ident.range_of_id x in - let level = FStar_Parser_AST.Un in + let range = FStarC_Ident.range_of_id x in + let level = FStarC_Parser_AST.Un in let head = { - FStar_Parser_AST.tm = - (FStar_Parser_AST.Var PulseSyntaxExtension_Env.op_bang_lid); - FStar_Parser_AST.range = range; - FStar_Parser_AST.level = level + FStarC_Parser_AST.tm = + (FStarC_Parser_AST.Var PulseSyntaxExtension_Env.op_bang_lid); + FStarC_Parser_AST.range = range; + FStarC_Parser_AST.level = level } in let arg = let uu___ = - let uu___1 = FStar_Ident.lid_of_ids [x] in - FStar_Parser_AST.Var uu___1 in + let uu___1 = FStarC_Ident.lid_of_ids [x] in + FStarC_Parser_AST.Var uu___1 in { - FStar_Parser_AST.tm = uu___; - FStar_Parser_AST.range = range; - FStar_Parser_AST.level = level + FStarC_Parser_AST.tm = uu___; + FStarC_Parser_AST.range = range; + FStarC_Parser_AST.level = level } in { - FStar_Parser_AST.tm = - (FStar_Parser_AST.App (head, arg, FStar_Parser_AST.Nothing)); - FStar_Parser_AST.range = range; - FStar_Parser_AST.level = level + FStarC_Parser_AST.tm = + (FStarC_Parser_AST.App (head, arg, FStarC_Parser_AST.Nothing)); + FStarC_Parser_AST.range = range; + FStarC_Parser_AST.level = level } let (add_derefs_in_scope : needs_derefs -> @@ -199,16 +199,16 @@ let (add_derefs_in_scope : = fun n -> fun p -> - FStar_Compiler_List.fold_right + FStarC_Compiler_List.fold_right (fun uu___ -> fun p1 -> match uu___ with | (x, y) -> let lb = let pat = - let uu___1 = FStar_Ident.range_of_id y in - FStar_Parser_AST.mk_pattern - (FStar_Parser_AST.PatVar + let uu___1 = FStarC_Ident.range_of_id y in + FStarC_Parser_AST.mk_pattern + (FStarC_Parser_AST.PatVar (y, FStar_Pervasives_Native.None, [])) uu___1 in let uu___1 = let uu___2 = @@ -242,21 +242,21 @@ let (add_derefs_in_scope : PulseSyntaxExtension_Sugar.range1 = (p1.PulseSyntaxExtension_Sugar.range1) }) n p -let (term'_of_id : FStar_Ident.ident -> FStar_Parser_AST.term') = +let (term'_of_id : FStarC_Ident.ident -> FStarC_Parser_AST.term') = fun y -> - let uu___ = FStar_Ident.lid_of_ids [y] in FStar_Parser_AST.Var uu___ + let uu___ = FStarC_Ident.lid_of_ids [y] in FStarC_Parser_AST.Var uu___ let rec (transform_term : menv -> - FStar_Parser_AST.term -> - (FStar_Parser_AST.term * needs_derefs * menv) + FStarC_Parser_AST.term -> + (FStarC_Parser_AST.term * needs_derefs * menv) PulseSyntaxExtension_Err.err) = fun uu___1 -> fun uu___ -> (fun m -> fun e -> - match e.FStar_Parser_AST.tm with - | FStar_Parser_AST.Var uu___ -> + match e.FStarC_Parser_AST.tm with + | FStarC_Parser_AST.Var uu___ -> Obj.magic (Obj.repr (let uu___1 = resolve_mut m e in @@ -268,7 +268,7 @@ let rec (transform_term : (x, uu___2, FStar_Pervasives_Native.None) -> Obj.repr (let uu___3 = fresh_var x in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> @@ -278,14 +278,14 @@ let rec (transform_term : let uu___5 = let uu___6 = let uu___7 = - FStar_Ident.lid_of_ids [y] in - FStar_Parser_AST.Var uu___7 in + FStarC_Ident.lid_of_ids [y] in + FStarC_Parser_AST.Var uu___7 in { - FStar_Parser_AST.tm = uu___6; - FStar_Parser_AST.range = - (e.FStar_Parser_AST.range); - FStar_Parser_AST.level = - (e.FStar_Parser_AST.level) + FStarC_Parser_AST.tm = uu___6; + FStarC_Parser_AST.range = + (e.FStarC_Parser_AST.range); + FStarC_Parser_AST.level = + (e.FStarC_Parser_AST.level) } in let uu___6 = bind_curval m x y in (uu___5, [(x, y)], uu___6) in @@ -298,23 +298,23 @@ let rec (transform_term : (let uu___4 = let uu___5 = let uu___6 = - let uu___7 = FStar_Ident.lid_of_ids [y] in - FStar_Parser_AST.Var uu___7 in + let uu___7 = FStarC_Ident.lid_of_ids [y] in + FStarC_Parser_AST.Var uu___7 in { - FStar_Parser_AST.tm = uu___6; - FStar_Parser_AST.range = - (e.FStar_Parser_AST.range); - FStar_Parser_AST.level = - (e.FStar_Parser_AST.level) + FStarC_Parser_AST.tm = uu___6; + FStarC_Parser_AST.range = + (e.FStarC_Parser_AST.range); + FStarC_Parser_AST.level = + (e.FStarC_Parser_AST.level) } in (uu___5, [], m) in PulseSyntaxExtension_Err.return uu___4))) - | FStar_Parser_AST.Op (id, tms) -> + | FStarC_Parser_AST.Op (id, tms) -> Obj.magic (Obj.repr (let uu___ = Obj.magic - (FStar_Class_Monad.foldM_left + (FStarC_Class_Monad.foldM_left PulseSyntaxExtension_Err.err_monad () () (fun uu___2 -> fun uu___1 -> @@ -326,7 +326,7 @@ let rec (transform_term : | (tms1, needs, m1) -> let uu___2 = transform_term m1 tm in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -344,7 +344,7 @@ let rec (transform_term : m'))) uu___3))) uu___2 uu___1) (Obj.magic ([], [], m)) (Obj.magic tms)) in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -354,23 +354,23 @@ let rec (transform_term : | (tms1, needs, m1) -> let e1 = { - FStar_Parser_AST.tm = - (FStar_Parser_AST.Op + FStarC_Parser_AST.tm = + (FStarC_Parser_AST.Op (id, - (FStar_Compiler_List.rev tms1))); - FStar_Parser_AST.range = - (e.FStar_Parser_AST.range); - FStar_Parser_AST.level = - (e.FStar_Parser_AST.level) + (FStarC_Compiler_List.rev tms1))); + FStarC_Parser_AST.range = + (e.FStarC_Parser_AST.range); + FStarC_Parser_AST.level = + (e.FStarC_Parser_AST.level) } in Obj.magic (PulseSyntaxExtension_Err.return (e1, needs, m1))) uu___1))) - | FStar_Parser_AST.App (head, arg, imp) -> + | FStarC_Parser_AST.App (head, arg, imp) -> Obj.magic (Obj.repr (let uu___ = transform_term m head in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -380,7 +380,7 @@ let rec (transform_term : | (head1, needs, m1) -> let uu___2 = transform_term m1 arg in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -390,13 +390,13 @@ let rec (transform_term : | (arg1, needs', m2) -> let e1 = { - FStar_Parser_AST.tm = - (FStar_Parser_AST.App + FStarC_Parser_AST.tm = + (FStarC_Parser_AST.App (head1, arg1, imp)); - FStar_Parser_AST.range = - (e.FStar_Parser_AST.range); - FStar_Parser_AST.level = - (e.FStar_Parser_AST.level) + FStarC_Parser_AST.range = + (e.FStarC_Parser_AST.range); + FStarC_Parser_AST.level = + (e.FStarC_Parser_AST.level) } in Obj.magic (PulseSyntaxExtension_Err.return @@ -404,11 +404,11 @@ let rec (transform_term : (FStar_List_Tot_Base.op_At needs needs'), m2))) uu___3))) uu___1))) - | FStar_Parser_AST.Ascribed (e1, t, topt, b) -> + | FStarC_Parser_AST.Ascribed (e1, t, topt, b) -> Obj.magic (Obj.repr (let uu___ = transform_term m e1 in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -418,22 +418,22 @@ let rec (transform_term : | (e2, needs, m1) -> let e3 = { - FStar_Parser_AST.tm = - (FStar_Parser_AST.Ascribed + FStarC_Parser_AST.tm = + (FStarC_Parser_AST.Ascribed (e2, t, topt, b)); - FStar_Parser_AST.range = - (e2.FStar_Parser_AST.range); - FStar_Parser_AST.level = - (e2.FStar_Parser_AST.level) + FStarC_Parser_AST.range = + (e2.FStarC_Parser_AST.range); + FStarC_Parser_AST.level = + (e2.FStarC_Parser_AST.level) } in Obj.magic (PulseSyntaxExtension_Err.return (e3, needs, m1))) uu___1))) - | FStar_Parser_AST.Paren e1 -> + | FStarC_Parser_AST.Paren e1 -> Obj.magic (Obj.repr (let uu___ = transform_term m e1 in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -443,22 +443,22 @@ let rec (transform_term : | (e2, needs, m1) -> let e3 = { - FStar_Parser_AST.tm = - (FStar_Parser_AST.Paren e2); - FStar_Parser_AST.range = - (e2.FStar_Parser_AST.range); - FStar_Parser_AST.level = - (e2.FStar_Parser_AST.level) + FStarC_Parser_AST.tm = + (FStarC_Parser_AST.Paren e2); + FStarC_Parser_AST.range = + (e2.FStarC_Parser_AST.range); + FStarC_Parser_AST.level = + (e2.FStarC_Parser_AST.level) } in Obj.magic (PulseSyntaxExtension_Err.return (e3, needs, m1))) uu___1))) - | FStar_Parser_AST.Construct (lid, tms) -> + | FStarC_Parser_AST.Construct (lid, tms) -> Obj.magic (Obj.repr (let uu___ = Obj.magic - (FStar_Class_Monad.foldM_left + (FStarC_Class_Monad.foldM_left PulseSyntaxExtension_Err.err_monad () () (fun uu___2 -> fun uu___1 -> @@ -470,7 +470,7 @@ let rec (transform_term : | ((tms1, needs, m1), (tm, imp)) -> let uu___3 = transform_term m1 tm in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> @@ -489,7 +489,7 @@ let rec (transform_term : m'))) uu___4))) uu___2 uu___1) (Obj.magic ([], [], m)) (Obj.magic tms)) in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -499,24 +499,24 @@ let rec (transform_term : | (tms1, needs, m1) -> let e1 = { - FStar_Parser_AST.tm = - (FStar_Parser_AST.Construct + FStarC_Parser_AST.tm = + (FStarC_Parser_AST.Construct (lid, - (FStar_Compiler_List.rev tms1))); - FStar_Parser_AST.range = - (e.FStar_Parser_AST.range); - FStar_Parser_AST.level = - (e.FStar_Parser_AST.level) + (FStarC_Compiler_List.rev tms1))); + FStarC_Parser_AST.range = + (e.FStarC_Parser_AST.range); + FStarC_Parser_AST.level = + (e.FStarC_Parser_AST.level) } in Obj.magic (PulseSyntaxExtension_Err.return (e1, needs, m1))) uu___1))) - | FStar_Parser_AST.LetOpen (l, t) -> + | FStarC_Parser_AST.LetOpen (l, t) -> Obj.magic (Obj.repr (let m1 = menv_push_ns m l in let uu___ = transform_term m1 t in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -552,7 +552,7 @@ let rec (transform_stmt_with_reads : Obj.magic (Obj.repr (let uu___ = transform_stmt_with_reads m s1 in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -562,7 +562,7 @@ let rec (transform_stmt_with_reads : | (s11, needs, m1) -> let uu___2 = transform_stmt m1 s2 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -598,7 +598,7 @@ let rec (transform_stmt_with_reads : Obj.magic (Obj.repr (let uu___ = transform_term m e in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -625,7 +625,7 @@ let rec (transform_stmt_with_reads : Obj.magic (Obj.repr (let uu___ = transform_term m value in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -658,7 +658,7 @@ let rec (transform_stmt_with_reads : Obj.magic (Obj.repr (let uu___ = transform_term m arr in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -668,7 +668,7 @@ let rec (transform_stmt_with_reads : | (arr1, arr_needs, m1) -> let uu___2 = transform_term m1 index in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -679,7 +679,7 @@ let rec (transform_stmt_with_reads : let uu___4 = transform_term m2 value in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___4) (fun uu___5 -> @@ -742,12 +742,12 @@ let rec (transform_stmt_with_reads : FStar_Pervasives_Native.Some (PulseSyntaxExtension_Sugar.Default_initializer e1) in - match e.FStar_Parser_AST.tm with - | FStar_Parser_AST.Var zlid -> + match e.FStarC_Parser_AST.tm with + | FStarC_Parser_AST.Var zlid -> Obj.repr (let uu___1 = let uu___2 = - FStar_Ident.ids_of_lid zlid in + FStarC_Ident.ids_of_lid zlid in (qualifier, uu___2) in match uu___1 with | (FStar_Pervasives_Native.None, @@ -770,14 +770,14 @@ let rec (transform_stmt_with_reads : let uu___8 = term'_of_id y in { - FStar_Parser_AST.tm + FStarC_Parser_AST.tm = uu___8; - FStar_Parser_AST.range + FStarC_Parser_AST.range = - (e.FStar_Parser_AST.range); - FStar_Parser_AST.level + (e.FStarC_Parser_AST.range); + FStarC_Parser_AST.level = - (e.FStar_Parser_AST.level) + (e.FStarC_Parser_AST.level) } in mk_init uu___7 in (uu___6, [], m) in @@ -800,7 +800,7 @@ let rec (transform_stmt_with_reads : Obj.repr (let uu___3 = transform_term m e in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> @@ -819,7 +819,7 @@ let rec (transform_stmt_with_reads : | uu___1 -> Obj.repr (let uu___2 = transform_term m e in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -840,7 +840,7 @@ let rec (transform_stmt_with_reads : Obj.magic (Obj.repr (let uu___1 = transform_term m init1 in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -851,7 +851,7 @@ let rec (transform_stmt_with_reads : let uu___3 = transform_term m1 len in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> @@ -891,7 +891,7 @@ let rec (transform_stmt_with_reads : (Obj.repr (PulseSyntaxExtension_Err.fail "Lambdas are not yet supported" range)) in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -908,14 +908,14 @@ let rec (transform_stmt_with_reads : let uu___2 = PulseSyntaxExtension_Env.pat_vars pat in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> (fun vs -> let vs = Obj.magic vs in let m2 = - FStar_Compiler_List.fold_left + FStarC_Compiler_List.fold_left (fun m3 -> fun v -> menv_push_bv m3 v @@ -950,7 +950,7 @@ let rec (transform_stmt_with_reads : Obj.magic (Obj.repr (let uu___ = transform_stmt m stmt in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -979,7 +979,7 @@ let rec (transform_stmt_with_reads : Obj.magic (Obj.repr (let uu___ = transform_term m head in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -989,7 +989,7 @@ let rec (transform_stmt_with_reads : | (head1, needs, m1) -> let uu___2 = transform_stmt m1 then_ in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -1010,7 +1010,7 @@ let rec (transform_stmt_with_reads : (let uu___4 = transform_stmt m1 else_ in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___4) @@ -1025,7 +1025,7 @@ let rec (transform_stmt_with_reads : else_1))) uu___5))) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___3) (fun uu___4 -> @@ -1066,7 +1066,7 @@ let rec (transform_stmt_with_reads : Obj.magic (Obj.repr (let uu___ = transform_term m head in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1076,7 +1076,7 @@ let rec (transform_stmt_with_reads : | (head1, needs, m1) -> let uu___2 = Obj.magic - (FStar_Class_Monad.mapM + (FStarC_Class_Monad.mapM PulseSyntaxExtension_Err.err_monad () () (fun uu___3 -> @@ -1088,7 +1088,7 @@ let rec (transform_stmt_with_reads : PulseSyntaxExtension_Env.pat_vars p1 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___4) @@ -1103,7 +1103,7 @@ let rec (transform_stmt_with_reads : transform_stmt m2 s in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic @@ -1122,7 +1122,7 @@ let rec (transform_stmt_with_reads : uu___5))) uu___3) (Obj.magic branches)) in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___2) (fun uu___3 -> @@ -1159,7 +1159,7 @@ let rec (transform_stmt_with_reads : Obj.magic (Obj.repr (let uu___ = transform_stmt m guard in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1167,7 +1167,7 @@ let rec (transform_stmt_with_reads : let guard1 = Obj.magic guard1 in let uu___1 = transform_stmt m body in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -1205,7 +1205,7 @@ let rec (transform_stmt_with_reads : Obj.magic (Obj.repr (let uu___ = transform_stmt m b1 in - FStar_Class_Monad.op_let_Bang + FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> @@ -1213,7 +1213,7 @@ let rec (transform_stmt_with_reads : let b11 = Obj.magic b11 in let uu___1 = transform_stmt m b2 in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___1) (fun uu___2 -> @@ -1262,7 +1262,7 @@ and (transform_stmt : fun p -> let uu___ = transform_stmt_with_reads m p in Obj.magic - (FStar_Class_Monad.op_let_Bang + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () () (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> diff --git a/src/ocaml/plugin/generated/Pulse_Checker.ml b/src/ocaml/plugin/generated/Pulse_Checker.ml index b41c1ace1..1ded7a041 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker.ml @@ -488,7 +488,7 @@ let (trace : fun pre -> fun rng -> let uu___ = - FStar_Tactics_V2_Builtins.norm_well_typed_term + FStarC_Tactics_V2_Builtins.norm_well_typed_term (Pulse_Typing.elab_env g) [FStar_Pervasives.unascribe; FStar_Pervasives.primops; @@ -560,7 +560,7 @@ let (trace : (fun uu___4 -> FStar_Tactics_Effect.lift_div_tac (fun uu___5 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "TRACE. Current context:") uu___4)) in FStar_Tactics_Effect.tac_bind @@ -625,7 +625,7 @@ let (trace : (fun uu___7 -> FStar_Tactics_Effect.lift_div_tac (fun uu___8 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "Typing environment (units elided): ") uu___7)) in @@ -675,7 +675,7 @@ let (trace : (fun uu___10 -> FStar_Tactics_Effect.lift_div_tac (fun uu___11 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -851,7 +851,7 @@ let (maybe_trace : fun pre -> fun rng -> let uu___ = - let uu___1 = FStar_Tactics_V2_Builtins.ext_getv "pulse:trace" in + let uu___1 = FStarC_Tactics_V2_Builtins.ext_getv "pulse:trace" in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -883,7 +883,7 @@ let (maybe_trace : (fun trace_opt -> let uu___1 = let uu___2 = - FStar_Tactics_V2_Builtins.ext_getv "pulse:trace_full" in + FStarC_Tactics_V2_Builtins.ext_getv "pulse:trace_full" in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1145,7 +1145,7 @@ let rec (check : Pulse_Checker_Base.check_t) = = let uu___20 = - FStar_Tactics_V2_Builtins.range_to_string + FStarC_Tactics_V2_Builtins.range_to_string t.Pulse_Syntax_Base.range1 in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1338,7 +1338,7 @@ let rec (check : Pulse_Checker_Base.check_t) = (fun uu___8 -> (fun uu___8 -> Obj.magic - (FStar_Tactics_V2_Builtins.print + (FStarC_Tactics_V2_Builtins.print uu___8)) uu___8))) else diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Abs.ml b/src/ocaml/plugin/generated/Pulse_Checker_Abs.ml index ce15f9bc8..4945dba3d 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Abs.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Abs.ml @@ -29,7 +29,7 @@ let (debug_abs : (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> - Obj.magic (FStar_Tactics_V2_Builtins.print uu___1)) + Obj.magic (FStarC_Tactics_V2_Builtins.print uu___1)) uu___1))) else Obj.magic @@ -550,7 +550,7 @@ let (qualifier_compat : Pulse_Typing_Env.env -> Pulse_Syntax_Base.range -> Pulse_Syntax_Base.qualifier FStar_Pervasives_Native.option -> - FStar_Reflection_V2_Data.aqualv -> + FStarC_Reflection_V2_Data.aqualv -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun uu___3 -> @@ -563,27 +563,27 @@ let (qualifier_compat : fun q' -> match (q, q') with | (FStar_Pervasives_Native.None, - FStar_Reflection_V2_Data.Q_Explicit) -> + FStarC_Reflection_V2_Data.Q_Explicit) -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac (fun uu___ -> ()))) | (FStar_Pervasives_Native.Some (Pulse_Syntax_Base.Implicit), - FStar_Reflection_V2_Data.Q_Implicit) -> + FStarC_Reflection_V2_Data.Q_Implicit) -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac (fun uu___ -> ()))) | (FStar_Pervasives_Native.Some (Pulse_Syntax_Base.Implicit), - FStar_Reflection_V2_Data.Q_Meta uu___) -> + FStarC_Reflection_V2_Data.Q_Meta uu___) -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac (fun uu___1 -> ()))) | (FStar_Pervasives_Native.Some (Pulse_Syntax_Base.TcArg), - FStar_Reflection_V2_Data.Q_Meta uu___) -> + FStarC_Reflection_V2_Data.Q_Meta uu___) -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac @@ -607,7 +607,7 @@ let rec (rebuild_abs : let uu___ = debug_abs g (fun uu___1 -> - let uu___2 = FStar_Tactics_V2_Builtins.term_to_string annot in + let uu___2 = FStarC_Tactics_V2_Builtins.term_to_string annot in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -679,18 +679,18 @@ let rec (rebuild_abs : (fun uu___1 -> (fun uu___1 -> match ((t.Pulse_Syntax_Base.term1), - (FStar_Reflection_V2_Builtins.inspect_ln annot)) + (FStarC_Reflection_V2_Builtins.inspect_ln annot)) with | (Pulse_Syntax_Base.Tm_Abs { Pulse_Syntax_Base.b = b; Pulse_Syntax_Base.q = q; Pulse_Syntax_Base.ascription = asc; Pulse_Syntax_Base.body = body;_}, - FStar_Reflection_V2_Data.Tv_Arrow (b', c')) -> + FStarC_Reflection_V2_Data.Tv_Arrow (b', c')) -> let uu___2 = Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> - FStar_Reflection_V2_Builtins.inspect_binder b')) in + FStarC_Reflection_V2_Builtins.inspect_binder b')) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -709,7 +709,7 @@ let rec (rebuild_abs : let uu___3 = qualifier_compat g (b.Pulse_Syntax_Base.binder_ppname).Pulse_Syntax_Base.range - q b'1.FStar_Reflection_V2_Data.qual in + q b'1.FStarC_Reflection_V2_Data.qual in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -735,7 +735,7 @@ let rec (rebuild_abs : Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___6 -> - b'1.FStar_Reflection_V2_Data.sort2)) in + b'1.FStarC_Reflection_V2_Data.sort2)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -761,7 +761,7 @@ let rec (rebuild_abs : Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___7 -> - FStar_Reflection_V2_Builtins.inspect_comp + FStarC_Reflection_V2_Builtins.inspect_comp c')) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -786,7 +786,7 @@ let rec (rebuild_abs : (fun comp -> match comp with - | FStar_Reflection_V2_Data.C_Total + | FStarC_Reflection_V2_Data.C_Total res_ty -> Obj.magic (Obj.repr @@ -905,7 +905,7 @@ let rec (rebuild_abs : = let uu___9 = - FStar_Tactics_V2_Builtins.term_to_string + FStarC_Tactics_V2_Builtins.term_to_string res_ty in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -965,7 +965,7 @@ let rec (rebuild_abs : (Pulse_Typing_Env.fail g (FStar_Pervasives_Native.Some - (FStar_Reflection_V2_Builtins.range_of_term + (FStarC_Reflection_V2_Builtins.range_of_term res_ty)) uu___9)) uu___9)) @@ -1204,7 +1204,7 @@ let rec (rebuild_abs : = let uu___9 = - FStar_Tactics_V2_Builtins.term_to_string + FStarC_Tactics_V2_Builtins.term_to_string annot in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1273,7 +1273,7 @@ let rec (rebuild_abs : | uu___2 -> let uu___3 = let uu___4 = - FStar_Tactics_V2_Builtins.term_to_string annot in + FStarC_Tactics_V2_Builtins.term_to_string annot in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1694,7 +1694,7 @@ let (check_effect_annotation : let uu___5 = FStar_Tactics_V2_Derived.with_policy - FStar_Tactics_Types.ForceSMT + FStarC_Tactics_Types.ForceSMT (fun uu___6 -> Pulse_Checker_Pure.try_check_prop_validity @@ -1768,7 +1768,7 @@ let (check_effect_annotation : (fun uu___12 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -1834,7 +1834,7 @@ let (check_effect_annotation : (fun uu___15 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -1866,7 +1866,7 @@ let (check_effect_annotation : (fun uu___14 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat uu___13 (Pulse_PP.text "are opened"))) in @@ -1897,7 +1897,7 @@ let (check_effect_annotation : (fun uu___13 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat uu___10 uu___12)))) uu___10) in @@ -2117,7 +2117,7 @@ let (check_effect_annotation : let uu___5 = FStar_Tactics_V2_Derived.with_policy - FStar_Tactics_Types.ForceSMT + FStarC_Tactics_Types.ForceSMT (fun uu___6 -> Pulse_Checker_Pure.try_check_prop_validity @@ -2191,7 +2191,7 @@ let (check_effect_annotation : (fun uu___12 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -2257,7 +2257,7 @@ let (check_effect_annotation : (fun uu___15 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -2289,7 +2289,7 @@ let (check_effect_annotation : (fun uu___14 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat uu___13 (Pulse_PP.text "are opened"))) in @@ -2320,7 +2320,7 @@ let (check_effect_annotation : (fun uu___13 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat uu___10 uu___12)))) uu___10) in @@ -2472,7 +2472,7 @@ let (check_effect_annotation : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.arbitrary_string + FStarC_Pprint.arbitrary_string uu___8)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2495,7 +2495,7 @@ let (check_effect_annotation : (fun uu___7 -> FStar_Tactics_Effect.lift_div_tac (fun uu___8 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -2547,7 +2547,7 @@ let (check_effect_annotation : (fun uu___10 -> FStar_Tactics_Effect.lift_div_tac (fun uu___11 -> - FStar_Pprint.arbitrary_string + FStarC_Pprint.arbitrary_string uu___10)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2570,7 +2570,7 @@ let (check_effect_annotation : (fun uu___9 -> FStar_Tactics_Effect.lift_div_tac (fun uu___10 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -2598,7 +2598,7 @@ let (check_effect_annotation : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat uu___6 uu___8)))) uu___6) in FStar_Tactics_Effect.tac_bind @@ -3914,7 +3914,7 @@ let rec (check_abs_core : inames -> let uu___17 = - FStar_Tactics_V2_Builtins.norm_well_typed_term + FStarC_Tactics_V2_Builtins.norm_well_typed_term (Pulse_Typing.elab_env g) [FStar_Pervasives.primops; diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Admit.ml b/src/ocaml/plugin/generated/Pulse_Checker_Admit.ml index bc3cb9f02..dfe94ae2d 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Admit.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Admit.ml @@ -709,7 +709,7 @@ let (check : -> let uu___13 = - FStar_Tactics_V2_Builtins.ide + FStarC_Tactics_V2_Builtins.ide () in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -740,7 +740,7 @@ let (check : = let uu___15 = - FStar_Tactics_V2_Builtins.ext_getv + FStarC_Tactics_V2_Builtins.ext_getv "pulse:no_admit_diag" in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -807,7 +807,7 @@ let (check : (Obj.repr (let uu___16 = - FStar_Tactics_V2_Builtins.norm_well_typed_term + FStarC_Tactics_V2_Builtins.norm_well_typed_term (Pulse_Typing.elab_env g1) [FStar_Pervasives.unascribe; @@ -936,7 +936,7 @@ let (check : (fun uu___22 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "Current context:") uu___21)) in diff --git a/src/ocaml/plugin/generated/Pulse_Checker_AssertWithBinders.ml b/src/ocaml/plugin/generated/Pulse_Checker_AssertWithBinders.ml index 7c169bd9f..ca3deecb4 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_AssertWithBinders.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_AssertWithBinders.ml @@ -19,11 +19,11 @@ let (head_show_proof_state : Pulse_Syntax_Base.st_term -> Prims.bool) = | uu___ -> false let (handle_head_immediately : Pulse_Syntax_Base.st_term -> Prims.bool) = fun st -> (head_wild st) || (head_show_proof_state st) -let (is_host_term : FStar_Reflection_Types.term -> Prims.bool) = +let (is_host_term : FStarC_Reflection_Types.term -> Prims.bool) = fun t -> Prims.op_Negation - (FStar_Reflection_V2_Data.uu___is_Tv_Unknown - (FStar_Reflection_V2_Builtins.inspect_ln t)) + (FStarC_Reflection_V2_Data.uu___is_Tv_Unknown + (FStarC_Reflection_V2_Builtins.inspect_ln t)) let (debug_log : Pulse_Typing_Env.env -> (unit -> (Prims.string, unit) FStar_Tactics_Effect.tac_repr) -> @@ -44,7 +44,7 @@ let option_must : | FStar_Pervasives_Native.None -> Obj.magic (FStar_Tactics_V2_Derived.fail msg)) uu___1 uu___ let rec (refl_abs_binders : - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> Pulse_Syntax_Base.binder Prims.list -> (Pulse_Syntax_Base.binder Prims.list, unit) FStar_Tactics_Effect.tac_repr) @@ -53,15 +53,15 @@ let rec (refl_abs_binders : fun uu___ -> (fun t -> fun acc -> - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_Abs (b, body) -> + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_Abs (b, body) -> Obj.magic (Obj.repr (let uu___ = Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___1 -> - FStar_Reflection_V2_Builtins.inspect_binder b)) in + FStarC_Reflection_V2_Builtins.inspect_binder b)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -79,10 +79,10 @@ let rec (refl_abs_binders : (fun uu___1 -> (fun uu___1 -> match uu___1 with - | { FStar_Reflection_V2_Data.sort2 = sort; - FStar_Reflection_V2_Data.qual = uu___2; - FStar_Reflection_V2_Data.attrs = uu___3; - FStar_Reflection_V2_Data.ppname2 = ppname;_} + | { FStarC_Reflection_V2_Data.sort2 = sort; + FStarC_Reflection_V2_Data.qual = uu___2; + FStarC_Reflection_V2_Data.attrs = uu___3; + FStarC_Reflection_V2_Data.ppname2 = ppname;_} -> Obj.magic (refl_abs_binders body @@ -171,17 +171,17 @@ let (infer_binder_types : (FStar_Tactics_Effect.lift_div_tac (fun uu___4 -> fun b -> - FStar_Reflection_V2_Builtins.pack_binder + FStarC_Reflection_V2_Builtins.pack_binder { - FStar_Reflection_V2_Data.sort2 + FStarC_Reflection_V2_Data.sort2 = (b.Pulse_Syntax_Base.binder_ty); - FStar_Reflection_V2_Data.qual + FStarC_Reflection_V2_Data.qual = - FStar_Reflection_V2_Data.Q_Explicit; - FStar_Reflection_V2_Data.attrs + FStarC_Reflection_V2_Data.Q_Explicit; + FStarC_Reflection_V2_Data.attrs = []; - FStar_Reflection_V2_Data.ppname2 + FStarC_Reflection_V2_Data.ppname2 = ((b.Pulse_Syntax_Base.binder_ppname).Pulse_Syntax_Base.name) })) in @@ -213,8 +213,8 @@ let (infer_binder_types : FStar_List_Tot_Base.fold_right (fun b -> fun tv -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Abs + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Abs ((as_binder b), tv))) bs v)) in @@ -591,7 +591,7 @@ let (unfold_all : (fun uu___1 -> (fun rg -> let uu___1 = - FStar_Tactics_V2_Builtins.norm_term_env rg + FStarC_Tactics_V2_Builtins.norm_term_env rg [FStar_Pervasives.primops; FStar_Pervasives.iota; FStar_Pervasives.delta_only names] t in @@ -614,9 +614,9 @@ let (unfold_all : FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> t1)))) uu___1) let (def_of_fv : - FStar_Reflection_Types.env -> - FStar_Reflection_Types.fv -> - (FStar_Reflection_Types.term FStar_Pervasives_Native.option, unit) + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.fv -> + (FStarC_Reflection_Types.term FStar_Pervasives_Native.option, unit) FStar_Tactics_Effect.tac_repr) = fun uu___1 -> @@ -626,34 +626,34 @@ let (def_of_fv : Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___ -> - match FStar_Reflection_V2_Builtins.lookup_typ g - (FStar_Reflection_V2_Builtins.inspect_fv fv) + match FStarC_Reflection_V2_Builtins.lookup_typ g + (FStarC_Reflection_V2_Builtins.inspect_fv fv) with | FStar_Pervasives_Native.None -> FStar_Pervasives_Native.None | FStar_Pervasives_Native.Some se -> - (match FStar_Reflection_V2_Builtins.inspect_sigelt se + (match FStarC_Reflection_V2_Builtins.inspect_sigelt se with - | FStar_Reflection_V2_Data.Unk -> + | FStarC_Reflection_V2_Data.Unk -> FStar_Pervasives_Native.None - | FStar_Reflection_V2_Data.Sg_Let (uu___1, lbs) -> + | FStarC_Reflection_V2_Data.Sg_Let (uu___1, lbs) -> FStar_List_Tot_Base.tryPick (fun lb -> if - (FStar_Reflection_V2_Builtins.inspect_fv - (FStar_Reflection_V2_Builtins.inspect_lb - lb).FStar_Reflection_V2_Data.lb_fv) + (FStarC_Reflection_V2_Builtins.inspect_fv + (FStarC_Reflection_V2_Builtins.inspect_lb + lb).FStarC_Reflection_V2_Data.lb_fv) = - (FStar_Reflection_V2_Builtins.inspect_fv + (FStarC_Reflection_V2_Builtins.inspect_fv fv) then FStar_Pervasives_Native.Some - ((FStar_Reflection_V2_Builtins.inspect_lb - lb).FStar_Reflection_V2_Data.lb_def) + ((FStarC_Reflection_V2_Builtins.inspect_lb + lb).FStarC_Reflection_V2_Data.lb_def) else FStar_Pervasives_Native.None) lbs - | FStar_Reflection_V2_Data.Sg_Val (uu___1, uu___2, t) + | FStarC_Reflection_V2_Data.Sg_Val (uu___1, uu___2, t) -> FStar_Pervasives_Native.Some t - | FStar_Reflection_V2_Data.Sg_Inductive + | FStarC_Reflection_V2_Data.Sg_Inductive (_nm, _univs, params, typ, uu___1) -> FStar_Pervasives_Native.None)))) uu___1 uu___ let (unfold_head : @@ -701,12 +701,12 @@ let (unfold_head : match uu___2 with | FStar_Pervasives_Native.Some (fv, u, args) -> let uu___3 = - FStar_Tactics_V2_Builtins.norm_term_env rg + FStarC_Tactics_V2_Builtins.norm_term_env rg [FStar_Pervasives.hnf; FStar_Pervasives.zeta; FStar_Pervasives.delta_only - [FStar_Reflection_V2_Builtins.implode_qn - (FStar_Reflection_V2_Builtins.inspect_fv + [FStarC_Reflection_V2_Builtins.implode_qn + (FStarC_Reflection_V2_Builtins.inspect_fv fv)]] t in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -733,7 +733,7 @@ let (unfold_head : | FStar_Pervasives_Native.None -> let uu___3 = let uu___4 = - FStar_Tactics_V2_Builtins.term_to_string t in + FStarC_Tactics_V2_Builtins.term_to_string t in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -835,7 +835,7 @@ let (unfold_defs : (fun uu___2 -> (fun t2 -> let uu___2 = - FStar_Tactics_V2_Builtins.norm_term_env + FStarC_Tactics_V2_Builtins.norm_term_env (Pulse_Typing.elab_env g) [FStar_Pervasives.hnf; FStar_Pervasives.iota; @@ -922,7 +922,7 @@ let (check_unfoldable : (Pulse_RuntimeUtils.range_of_term v)) uu___2)) uu___2)))) uu___1 uu___ let (visit_and_rewrite : - (FStar_Reflection_Types.term * FStar_Reflection_Types.term) -> + (FStarC_Reflection_Types.term * FStarC_Reflection_Types.term) -> Pulse_Syntax_Base.term -> (Pulse_Syntax_Base.term, unit) FStar_Tactics_Effect.tac_repr) = @@ -978,18 +978,18 @@ let (visit_and_rewrite : (Obj.magic uu___2) (fun uu___3 -> (fun visitor -> - match FStar_Reflection_V2_Builtins.inspect_ln + match FStarC_Reflection_V2_Builtins.inspect_ln lhs with - | FStar_Reflection_V2_Data.Tv_Var n -> + | FStarC_Reflection_V2_Data.Tv_Var n -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> Pulse_Syntax_Naming.subst_term t [FStar_Reflection_Typing.NT - (((FStar_Reflection_V2_Builtins.inspect_namedv - n).FStar_Reflection_V2_Data.uniq), + (((FStarC_Reflection_V2_Builtins.inspect_namedv + n).FStarC_Reflection_V2_Data.uniq), (Pulse_Syntax_Pure.wr rhs (Pulse_RuntimeUtils.range_of_term t)))]))) @@ -999,12 +999,12 @@ let (visit_and_rewrite : (FStar_Tactics_Visit.visit_tm visitor t))) uu___3))) uu___1) let (visit_and_rewrite_conjuncts : - (FStar_Reflection_Types.term * FStar_Reflection_Types.term) -> + (FStarC_Reflection_Types.term * FStarC_Reflection_Types.term) -> Pulse_Syntax_Base.term Prims.list -> (Pulse_Syntax_Base.term Prims.list, unit) FStar_Tactics_Effect.tac_repr) = fun p -> fun tms -> FStar_Tactics_Util.map (visit_and_rewrite p) tms let (visit_and_rewrite_conjuncts_all : - (FStar_Reflection_Types.term * FStar_Reflection_Types.term) Prims.list -> + (FStarC_Reflection_Types.term * FStarC_Reflection_Types.term) Prims.list -> Pulse_Syntax_Base.term -> ((Pulse_Syntax_Base.term * Pulse_Syntax_Base.term), unit) FStar_Tactics_Effect.tac_repr) @@ -1125,13 +1125,13 @@ let rec (as_subst : then FStar_Pervasives_Native.Some out else FStar_Pervasives_Native.None | (e1, e2)::p1 -> - (match FStar_Reflection_V2_Builtins.inspect_ln e1 with - | FStar_Reflection_V2_Data.Tv_Var n -> - let nv = FStar_Reflection_V2_Builtins.inspect_namedv n in + (match FStarC_Reflection_V2_Builtins.inspect_ln e1 with + | FStarC_Reflection_V2_Data.Tv_Var n -> + let nv = FStarC_Reflection_V2_Builtins.inspect_namedv n in as_subst p1 ((FStar_Reflection_Typing.NT - ((nv.FStar_Reflection_V2_Data.uniq), e2)) :: out) - ((nv.FStar_Reflection_V2_Data.uniq) :: domain) + ((nv.FStarC_Reflection_V2_Data.uniq), e2)) :: out) + ((nv.FStarC_Reflection_V2_Data.uniq) :: domain) (FStar_Set.union codomain (Pulse_Syntax_Naming.freevars e2)) | uu___ -> FStar_Pervasives_Native.None) @@ -1964,7 +1964,7 @@ let (check_wild : (fun uu___14 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "The context was:") uu___13)) in @@ -2159,7 +2159,7 @@ let (check_wild : (fun uu___17 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "The context was:") uu___16)) in @@ -2582,7 +2582,7 @@ let (check_wild : (fun uu___19 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "The context was:") uu___18)) in @@ -3048,7 +3048,7 @@ let (check : (fun uu___6 -> FStar_Tactics_Effect.lift_div_tac (fun uu___7 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "Current context:") uu___6)) in @@ -4296,7 +4296,7 @@ let (check : (fun uu___27 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -4362,7 +4362,7 @@ let (check : (fun uu___30 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -4594,9 +4594,9 @@ let (check : = (Pulse_Syntax_Base.as_binder (Pulse_Syntax_Pure.wr - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "unit"]))) st.Pulse_Syntax_Base.range1)); @@ -5362,7 +5362,7 @@ let (check : (fun uu___27 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -5428,7 +5428,7 @@ let (check : (fun uu___30 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -5660,9 +5660,9 @@ let (check : = (Pulse_Syntax_Base.as_binder (Pulse_Syntax_Pure.wr - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "unit"]))) st.Pulse_Syntax_Base.range1)); diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Base.ml b/src/ocaml/plugin/generated/Pulse_Checker_Base.ml index 967b822e5..242573c2f 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Base.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Base.ml @@ -29,7 +29,7 @@ let (debug : (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> - Obj.magic (FStar_Tactics_V2_Builtins.print uu___1)) + Obj.magic (FStarC_Tactics_V2_Builtins.print uu___1)) uu___1))) else Obj.magic @@ -326,20 +326,20 @@ let (format_failed_goal : uu___4))) uu___3))) uu___2))) uu___1) let (mk_arrow : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.typ -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.typ -> FStarC_Reflection_Types.term) = fun ty -> fun t -> - FStar_Reflection_Typing.mk_arrow ty FStar_Reflection_V2_Data.Q_Explicit + FStar_Reflection_Typing.mk_arrow ty FStarC_Reflection_V2_Data.Q_Explicit t let (mk_abs : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun ty -> fun t -> - FStar_Reflection_Typing.mk_abs ty FStar_Reflection_V2_Data.Q_Explicit t + FStar_Reflection_Typing.mk_abs ty FStarC_Reflection_V2_Data.Q_Explicit t let (intro_comp_typing : Pulse_Typing_Env.env -> Pulse_Syntax_Base.comp_st -> @@ -465,10 +465,10 @@ let (intro_comp_typing : (g, i, st, (), stc))))) uu___1) type ('a1, 'a2) effect_annot_labels_match = Obj.t let (fstar_equiv_preserves_typing : - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> unit -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing) @@ -491,7 +491,7 @@ let (check_effect_annot : fun opens -> let uu___2 = Pulse_Checker_Pure.check_term g opens - FStar_TypeChecker_Core.E_Total + FStarC_TypeChecker_Core.E_Total Pulse_Syntax_Pure.tm_inames in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -510,7 +510,7 @@ let (check_effect_annot : match uu___3 with | Prims.Mkdtuple2 (opens1, d) -> let uu___4 = - FStar_Tactics_V2_Builtins.norm_well_typed_term + FStarC_Tactics_V2_Builtins.norm_well_typed_term (Pulse_Typing.elab_env g) [FStar_Pervasives.primops; FStar_Pervasives.iota; @@ -2155,7 +2155,7 @@ let (continuation_elaborator_with_bind_fn : = Pulse_Checker_Pure.core_check_term g i - FStar_TypeChecker_Core.E_Total + FStarC_TypeChecker_Core.E_Total Pulse_Syntax_Pure.tm_inames in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2201,7 +2201,7 @@ let (continuation_elaborator_with_bind_fn : = Pulse_Checker_Pure.core_check_term g i - FStar_TypeChecker_Core.E_Total + FStarC_TypeChecker_Core.E_Total Pulse_Syntax_Pure.tm_inames in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3084,7 +3084,7 @@ let (readback_comp_res_as_comp : = fun c -> match c with - | FStar_Reflection_V2_Data.C_Total t -> + | FStarC_Reflection_V2_Data.C_Total t -> (match Pulse_Readback.readback_comp t with | FStar_Pervasives_Native.None -> FStar_Pervasives_Native.None | FStar_Pervasives_Native.Some c1 -> FStar_Pervasives_Native.Some c1) @@ -3092,10 +3092,10 @@ let (readback_comp_res_as_comp : let rec (is_stateful_arrow : Pulse_Typing_Env.env -> Pulse_Syntax_Base.comp FStar_Pervasives_Native.option -> - FStar_Reflection_V2_Data.argv Prims.list -> - FStar_Reflection_V2_Data.argv Prims.list -> - ((FStar_Reflection_V2_Data.argv Prims.list * - FStar_Reflection_V2_Data.argv) FStar_Pervasives_Native.option, + FStarC_Reflection_V2_Data.argv Prims.list -> + FStarC_Reflection_V2_Data.argv Prims.list -> + ((FStarC_Reflection_V2_Data.argv Prims.list * + FStarC_Reflection_V2_Data.argv) FStar_Pervasives_Native.option, unit) FStar_Tactics_Effect.tac_repr) = fun uu___3 -> @@ -3209,9 +3209,9 @@ let rec (is_stateful_arrow : if FStar_List_Tot_Base.for_all (fun b1 -> - FStar_Reflection_V2_Data.uu___is_Q_Implicit - (FStar_Reflection_V2_Builtins.inspect_binder - b1).FStar_Reflection_V2_Data.qual) + FStarC_Reflection_V2_Data.uu___is_Q_Implicit + (FStarC_Reflection_V2_Builtins.inspect_binder + b1).FStarC_Reflection_V2_Data.qual) bs then Obj.magic @@ -3220,7 +3220,7 @@ let rec (is_stateful_arrow : is_stateful_arrow g (readback_comp_res_as_comp - (FStar_Reflection_V2_Builtins.inspect_comp + (FStarC_Reflection_V2_Builtins.inspect_comp c2)) [] out)) else @@ -3239,9 +3239,9 @@ let rec (is_stateful_arrow : (fun uu___2 -> match b.FStar_Tactics_NamedView.qual with - | FStar_Reflection_V2_Data.Q_Equality + | FStarC_Reflection_V2_Data.Q_Equality -> - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit | q -> q)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3266,9 +3266,9 @@ let rec (is_stateful_arrow : (fun bqual -> match (bqual, qual) with - | (FStar_Reflection_V2_Data.Q_Meta + | (FStarC_Reflection_V2_Data.Q_Meta uu___2, - FStar_Reflection_V2_Data.Q_Implicit) + FStarC_Reflection_V2_Data.Q_Implicit) -> Obj.magic (Obj.repr @@ -3279,8 +3279,8 @@ let rec (is_stateful_arrow : ((arg, qual) :: out))) - | (FStar_Reflection_V2_Data.Q_Implicit, - FStar_Reflection_V2_Data.Q_Implicit) + | (FStarC_Reflection_V2_Data.Q_Implicit, + FStarC_Reflection_V2_Data.Q_Implicit) -> Obj.magic (Obj.repr @@ -3291,8 +3291,8 @@ let rec (is_stateful_arrow : ((arg, qual) :: out))) - | (FStar_Reflection_V2_Data.Q_Explicit, - FStar_Reflection_V2_Data.Q_Explicit) + | (FStarC_Reflection_V2_Data.Q_Explicit, + FStarC_Reflection_V2_Data.Q_Explicit) -> Obj.magic (Obj.repr @@ -3303,9 +3303,9 @@ let rec (is_stateful_arrow : ((arg, qual) :: out))) - | (FStar_Reflection_V2_Data.Q_Meta + | (FStarC_Reflection_V2_Data.Q_Meta uu___2, - FStar_Reflection_V2_Data.Q_Explicit) + FStarC_Reflection_V2_Data.Q_Explicit) -> Obj.magic (Obj.repr @@ -3314,8 +3314,8 @@ let rec (is_stateful_arrow : (readback_comp_res_as_comp c1) args out)) - | (FStar_Reflection_V2_Data.Q_Implicit, - FStar_Reflection_V2_Data.Q_Explicit) + | (FStarC_Reflection_V2_Data.Q_Implicit, + FStarC_Reflection_V2_Data.Q_Explicit) -> Obj.magic (Obj.repr @@ -3399,7 +3399,7 @@ let rec (is_stateful_arrow : uu___5 -> Pulse_Syntax_Pure.wr c_res' - (FStar_Reflection_V2_Builtins.range_of_term + (FStarC_Reflection_V2_Builtins.range_of_term c_res'))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3510,7 +3510,7 @@ let (is_stateful_application : (FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> Pulse_Syntax_Pure.wr ht - (FStar_Reflection_V2_Builtins.range_of_term + (FStarC_Reflection_V2_Builtins.range_of_term ht))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3579,7 +3579,7 @@ let (is_stateful_application : (FStar_Reflection_V2_Derived.mk_app head applied_args) - (FStar_Reflection_V2_Builtins.range_of_term + (FStarC_Reflection_V2_Builtins.range_of_term (FStar_Reflection_V2_Derived.mk_app head applied_args))); @@ -3589,7 +3589,7 @@ let (is_stateful_application : match aqual with | - FStar_Reflection_V2_Data.Q_Implicit + FStarC_Reflection_V2_Data.Q_Implicit -> FStar_Pervasives_Native.Some Pulse_Syntax_Base.Implicit @@ -3600,7 +3600,7 @@ let (is_stateful_application : = (Pulse_Syntax_Pure.wr last_arg - (FStar_Reflection_V2_Builtins.range_of_term + (FStarC_Reflection_V2_Builtins.range_of_term last_arg)) }); Pulse_Syntax_Base.range1 @@ -3622,7 +3622,7 @@ let (is_stateful_application : let (norm_typing : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> - FStar_TypeChecker_Core.tot_or_ghost -> + FStarC_TypeChecker_Core.tot_or_ghost -> Pulse_Syntax_Base.term -> unit -> FStar_Pervasives.norm_step Prims.list -> @@ -3655,7 +3655,7 @@ let (norm_typing : let uu___1 = Pulse_RuntimeUtils.norm_well_typed_term (Pulse_Typing.elab_env g) t0 - FStar_TypeChecker_Core.E_Total () () steps in + FStarC_TypeChecker_Core.E_Total () () steps in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3681,7 +3681,7 @@ let (norm_typing : let (norm_typing_inverse : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> - FStar_TypeChecker_Core.tot_or_ghost -> + FStarC_TypeChecker_Core.tot_or_ghost -> Pulse_Syntax_Base.term -> unit -> Pulse_Syntax_Base.term -> @@ -3722,7 +3722,7 @@ let (norm_typing_inverse : Obj.magic (Pulse_RuntimeUtils.norm_well_typed_term (Pulse_Typing.elab_env g) t1 - FStar_TypeChecker_Core.E_Total () () steps)) + FStarC_TypeChecker_Core.E_Total () () steps)) uu___2) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3786,7 +3786,7 @@ let (norm_st_typing_inverse : let uu___1 = Pulse_RuntimeUtils.norm_well_typed_term (Pulse_Typing.elab_env g) t1 - FStar_TypeChecker_Core.E_Total () () steps in + FStarC_TypeChecker_Core.E_Total () () steps in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Bind.ml b/src/ocaml/plugin/generated/Pulse_Checker_Bind.ml index eddf1943c..2c6ab778f 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Bind.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Bind.ml @@ -840,7 +840,7 @@ let (check_bind : (fun uu___31 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -906,7 +906,7 @@ let (check_bind : (fun uu___34 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Exists.ml b/src/ocaml/plugin/generated/Pulse_Checker_Exists.ml index 1e4f754a9..7bc0c7ab3 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Exists.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Exists.ml @@ -1149,7 +1149,7 @@ let (check_intro_exists : Pulse_Checker_Pure.check_term g1 witness - FStar_TypeChecker_Core.E_Ghost + FStarC_TypeChecker_Core.E_Ghost b.Pulse_Syntax_Base.binder_ty in Obj.magic (FStar_Tactics_Effect.tac_bind diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Match.ml b/src/ocaml/plugin/generated/Pulse_Checker_Match.ml index ab536ea0a..21b60cfed 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Match.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Match.ml @@ -1,12 +1,12 @@ open Prims let rec (readback_pat : - FStar_Reflection_V2_Data.pattern -> + FStarC_Reflection_V2_Data.pattern -> Pulse_Syntax_Base.pattern FStar_Pervasives_Native.option) = fun p -> match p with - | FStar_Reflection_V2_Data.Pat_Cons (fv, uu___, args) -> - let fv1 = FStar_Reflection_V2_Builtins.inspect_fv fv in + | FStarC_Reflection_V2_Data.Pat_Cons (fv, uu___, args) -> + let fv1 = FStarC_Reflection_V2_Builtins.inspect_fv fv in Pulse_Syntax_Pure.op_let_Question (Pulse_Common.map_opt_dec p readback_sub_pat args) (fun args1 -> @@ -16,22 +16,22 @@ let rec (readback_pat : Pulse_Syntax_Base.fv_name = fv1; Pulse_Syntax_Base.fv_range = FStar_Range.range_0 }, args1))) - | FStar_Reflection_V2_Data.Pat_Constant c -> + | FStarC_Reflection_V2_Data.Pat_Constant c -> FStar_Pervasives_Native.Some (Pulse_Syntax_Base.Pat_Constant c) - | FStar_Reflection_V2_Data.Pat_Var (st, nm) -> + | FStarC_Reflection_V2_Data.Pat_Var (st, nm) -> FStar_Pervasives_Native.Some (Pulse_Syntax_Base.Pat_Var (nm, (Pulse_RuntimeUtils.map_seal st Pulse_RuntimeUtils.deep_compress))) - | FStar_Reflection_V2_Data.Pat_Dot_Term (FStar_Pervasives_Native.None) -> + | FStarC_Reflection_V2_Data.Pat_Dot_Term (FStar_Pervasives_Native.None) -> FStar_Pervasives_Native.Some (Pulse_Syntax_Base.Pat_Dot_Term FStar_Pervasives_Native.None) - | FStar_Reflection_V2_Data.Pat_Dot_Term (FStar_Pervasives_Native.Some t) + | FStarC_Reflection_V2_Data.Pat_Dot_Term (FStar_Pervasives_Native.Some t) -> if - FStar_Reflection_V2_Data.uu___is_Tv_Unknown - (FStar_Reflection_V2_Builtins.inspect_ln t) + FStarC_Reflection_V2_Data.uu___is_Tv_Unknown + (FStarC_Reflection_V2_Builtins.inspect_ln t) then FStar_Pervasives_Native.None else (let t1 = Pulse_RuntimeUtils.deep_compress t in @@ -41,7 +41,7 @@ let rec (readback_pat : (FStar_Pervasives_Native.Some t2))) | uu___ -> FStar_Pervasives_Native.None and (readback_sub_pat : - (FStar_Reflection_V2_Data.pattern * Prims.bool) -> + (FStarC_Reflection_V2_Data.pattern * Prims.bool) -> (Pulse_Syntax_Base.pattern * Prims.bool) FStar_Pervasives_Native.option) = fun pb -> @@ -72,7 +72,7 @@ let (open_st_term_bs : let ss = aux (FStar_List_Tot_Base.rev bs) Prims.int_zero in Pulse_Syntax_Naming.subst_st_term t ss let rec (r_bindings_to_string : - FStar_Reflection_V2_Data.binding Prims.list -> + FStarC_Reflection_V2_Data.binding Prims.list -> (Prims.string, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -87,7 +87,7 @@ let rec (r_bindings_to_string : (let uu___ = let uu___1 = FStar_Tactics_Unseal.unseal - b.FStar_Reflection_V2_Data.ppname3 in + b.FStarC_Reflection_V2_Data.ppname3 in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -107,8 +107,8 @@ let rec (r_bindings_to_string : let uu___5 = let uu___6 = let uu___7 = - FStar_Tactics_V2_Builtins.term_to_string - b.FStar_Reflection_V2_Data.sort3 in + FStarC_Tactics_V2_Builtins.term_to_string + b.FStarC_Reflection_V2_Data.sort3 in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -173,7 +173,7 @@ let rec (r_bindings_to_string : (fun uu___7 -> Prims.strcat (Prims.string_of_int - b.FStar_Reflection_V2_Data.uniq1) + b.FStarC_Reflection_V2_Data.uniq1) uu___6)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -368,9 +368,9 @@ let (check_branch : Pulse_Syntax_Base.universe -> Pulse_Syntax_Base.typ -> Pulse_Syntax_Base.term -> - FStar_Reflection_V2_Data.pattern -> + FStarC_Reflection_V2_Data.pattern -> Pulse_Syntax_Base.st_term -> - FStar_Reflection_V2_Data.binding Prims.list -> + FStarC_Reflection_V2_Data.binding Prims.list -> ((Pulse_Syntax_Base.pattern, Pulse_Syntax_Base.st_term, Pulse_Syntax_Base.comp_st, @@ -580,8 +580,8 @@ let (check_branch : let uu___7 = if - FStar_Reflection_V2_Data.uu___is_Tv_Unknown - (FStar_Reflection_V2_Builtins.inspect_ln + FStarC_Reflection_V2_Data.uu___is_Tv_Unknown + (FStarC_Reflection_V2_Builtins.inspect_ln (FStar_Pervasives_Native.fst (FStar_Pervasives_Native.__proj__Some__item__v elab_p))) @@ -1061,8 +1061,8 @@ let (check_branches_aux : Pulse_Syntax_Base.typ -> Pulse_Syntax_Base.term -> Pulse_Syntax_Base.branch Prims.list -> - (FStar_Reflection_V2_Data.pattern * - FStar_Reflection_V2_Data.binding Prims.list) Prims.list + (FStarC_Reflection_V2_Data.pattern * + FStarC_Reflection_V2_Data.binding Prims.list) Prims.list -> ((unit, unit, unit, unit, unit, unit) check_branches_aux_t Prims.list, @@ -2177,8 +2177,8 @@ let (check_branches : Pulse_Syntax_Base.typ -> Pulse_Syntax_Base.term -> Pulse_Syntax_Base.branch Prims.list -> - (FStar_Reflection_V2_Data.pattern * - FStar_Reflection_V2_Data.binding Prims.list) Prims.list + (FStarC_Reflection_V2_Data.pattern * + FStarC_Reflection_V2_Data.binding Prims.list) Prims.list -> ((Pulse_Syntax_Base.branch Prims.list, Pulse_Syntax_Base.comp_st, @@ -2495,7 +2495,7 @@ let (check : = let uu___8 = - FStar_Tactics_V2_Builtins.check_match_complete + FStarC_Tactics_V2_Builtins.check_match_complete (Pulse_Typing.elab_env g1) sc1 sc_ty diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Prover.ml b/src/ocaml/plugin/generated/Pulse_Checker_Prover.ml index 6b2af4258..1bc64ef07 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Prover.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Prover.ml @@ -238,7 +238,7 @@ let rec (prove_pures : (fun uu___4 -> FStar_Tactics_Effect.lift_div_tac (fun uu___5 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat (Pulse_PP.text "Cannot prove pure proposition") uu___4)) in @@ -416,7 +416,7 @@ let (normalize_slprop : (fun uu___2 -> (fun steps1 -> let uu___2 = - FStar_Tactics_V2_Builtins.norm_well_typed_term + FStarC_Tactics_V2_Builtins.norm_well_typed_term (Pulse_Typing.elab_env g) steps1 v in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2132,7 +2132,7 @@ let rec (prover : (fun uu___24 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "Cannot prove:") uu___23)) in @@ -2257,7 +2257,7 @@ let rec (prover : (fun uu___27 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "In the context:") uu___26)) in @@ -2443,7 +2443,7 @@ let rec (prover : (fun uu___28 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "The prover was started with goal:") uu___27)) in @@ -2537,7 +2537,7 @@ let rec (prover : (fun uu___31 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "and initial context:") uu___30)) in @@ -2707,7 +2707,7 @@ let (prove : unit -> ((Pulse_Typing_Env.env, Pulse_Checker_Prover_Substs.nt_substs, - FStar_TypeChecker_Core.tot_or_ghost Prims.list, + FStarC_TypeChecker_Core.tot_or_ghost Prims.list, Pulse_Syntax_Base.slprop, (unit, unit, unit, unit) Pulse_Checker_Base.continuation_elaborator) @@ -3068,7 +3068,7 @@ let (prove : (fun uu___13 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -3134,7 +3134,7 @@ let (prove : (fun uu___16 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -3200,7 +3200,7 @@ let (prove : (fun uu___19 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -3267,7 +3267,7 @@ let (prove : (fun uu___22 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -3334,7 +3334,7 @@ let (prove : (fun uu___25 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -4773,7 +4773,7 @@ let (prove_post_hint : (fun uu___14 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "does not match the expected") uu___13)) in @@ -4804,7 +4804,7 @@ let (prove_post_hint : (fun uu___13 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat uu___10 uu___12)))) uu___10) in @@ -4833,7 +4833,7 @@ let (prove_post_hint : (fun uu___10 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "The return type") uu___9)) in @@ -5095,7 +5095,7 @@ let (prove_post_hint : (fun uu___19 -> - FStar_Pprint.align + FStarC_Pprint.align uu___18)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -5123,7 +5123,7 @@ let (prove_post_hint : (fun uu___18 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Base.ml b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Base.ml index 3738a456c..649d92442 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Base.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Base.ml @@ -926,7 +926,7 @@ type 'preamble1 prover_state = ss: Pulse_Checker_Prover_Substs.ss_t ; nts: (Pulse_Checker_Prover_Substs.nt_substs, - FStar_TypeChecker_Core.tot_or_ghost Prims.list) Prims.dtuple2 + FStarC_TypeChecker_Core.tot_or_ghost Prims.list) Prims.dtuple2 FStar_Pervasives_Native.option ; solved: Pulse_Syntax_Base.slprop ; @@ -973,7 +973,7 @@ let (__proj__Mkprover_state__item__nts : preamble -> unit prover_state -> (Pulse_Checker_Prover_Substs.nt_substs, - FStar_TypeChecker_Core.tot_or_ghost Prims.list) Prims.dtuple2 + FStarC_TypeChecker_Core.tot_or_ghost Prims.list) Prims.dtuple2 FStar_Pervasives_Native.option) = fun preamble1 -> diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Prover_ElimPure.ml b/src/ocaml/plugin/generated/Pulse_Checker_Prover_ElimPure.ml index b16b97dc8..c503d5109 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Prover_ElimPure.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Prover_ElimPure.ml @@ -3,7 +3,7 @@ let (elim_pure_head : Pulse_Syntax_Base.term) = let elim_pure_explicit_lid = Pulse_Reflection_Util.mk_pulse_lib_core_lid "elim_pure_explicit" in Pulse_Syntax_Pure.tm_fvar (Pulse_Syntax_Base.as_fv elim_pure_explicit_lid) -let (elim_pure_head_ty : FStar_Reflection_Types.term) = +let (elim_pure_head_ty : FStarC_Reflection_Types.term) = let squash_p = Pulse_Reflection_Util.mk_squash Pulse_Syntax_Pure.u0 (FStar_Reflection_Typing.bound_var Prims.int_zero) in @@ -11,20 +11,20 @@ let (elim_pure_head_ty : FStar_Reflection_Types.term) = Pulse_Reflection_Util.mk_pure (FStar_Reflection_Typing.bound_var Prims.int_zero) in let post = - Pulse_Reflection_Util.mk_abs squash_p FStar_Reflection_V2_Data.Q_Explicit - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + Pulse_Reflection_Util.mk_abs squash_p FStarC_Reflection_V2_Data.Q_Explicit + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.emp_lid))) in let cod = Pulse_Reflection_Util.mk_stt_ghost_comp Pulse_Syntax_Pure.u0 squash_p Pulse_Syntax_Pure.tm_emp_inames pure_p post in Pulse_Reflection_Util.mk_arrow - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv FStar_Reflection_Const.prop_qn))), - FStar_Reflection_V2_Data.Q_Explicit) cod + FStarC_Reflection_V2_Data.Q_Explicit) cod let (wr : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term) = fun t -> Pulse_Syntax_Pure.wr t FStar_Range.range_0 diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Prover_IntroPure.ml b/src/ocaml/plugin/generated/Pulse_Checker_Prover_IntroPure.ml index 546b62545..cfd652ad8 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Prover_IntroPure.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Prover_IntroPure.ml @@ -388,21 +388,21 @@ let (is_eq2_uvar : pure_uv_heuristic_t) = else FStar_Pervasives_Native.None | uu___2 -> FStar_Pervasives_Native.None)))) let (is_host_var : - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> Pulse_Syntax_Base.nm FStar_Pervasives_Native.option) = fun x -> - match FStar_Reflection_V2_Builtins.inspect_ln x with - | FStar_Reflection_V2_Data.Tv_Var nv -> - let nv_view = FStar_Reflection_V2_Builtins.inspect_namedv nv in + match FStarC_Reflection_V2_Builtins.inspect_ln x with + | FStarC_Reflection_V2_Data.Tv_Var nv -> + let nv_view = FStarC_Reflection_V2_Builtins.inspect_namedv nv in FStar_Pervasives_Native.Some { Pulse_Syntax_Base.nm_index = - (nv_view.FStar_Reflection_V2_Data.uniq); + (nv_view.FStarC_Reflection_V2_Data.uniq); Pulse_Syntax_Base.nm_ppname = (Pulse_Syntax_Base.mk_ppname - nv_view.FStar_Reflection_V2_Data.ppname - (FStar_Reflection_V2_Builtins.range_of_term x)) + nv_view.FStarC_Reflection_V2_Data.ppname + (FStarC_Reflection_V2_Builtins.range_of_term x)) } | uu___ -> FStar_Pervasives_Native.None let (is_uvar_implication : pure_uv_heuristic_t) = @@ -500,7 +500,7 @@ let (is_uvar_implication : pure_uv_heuristic_t) = uvs (fun uu___6 -> let uu___7 = - FStar_Tactics_V2_Builtins.term_to_string + FStarC_Tactics_V2_Builtins.term_to_string t0 in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -552,10 +552,10 @@ let (is_uvar_implication : pure_uv_heuristic_t) = (Obj.magic uu___5) (fun uu___6 -> (fun uu___6 -> - match FStar_Reflection_V2_Builtins.inspect_ln + match FStarC_Reflection_V2_Builtins.inspect_ln t0 with - | FStar_Reflection_V2_Data.Tv_Unknown + | FStarC_Reflection_V2_Data.Tv_Unknown -> Obj.magic (Obj.repr @@ -621,9 +621,9 @@ let (is_uvar_implication : pure_uv_heuristic_t) = Pulse_Syntax_Base.eq_tm ty (Pulse_Syntax_Pure.wr - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "bool"]))) FStar_Range.range_0) @@ -685,15 +685,15 @@ let (is_uvar_implication : pure_uv_heuristic_t) = (Prims.Mkdtuple2 ((nm.Pulse_Syntax_Base.nm_index), (Pulse_Syntax_Pure.wr - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "op_Negation"]))), (rhs, - FStar_Reflection_V2_Data.Q_Explicit)))) + FStarC_Reflection_V2_Data.Q_Explicit)))) FStar_Range.range_0))) | uu___12 @@ -1307,7 +1307,7 @@ let (intro_pure : (fun uu___14 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -1431,7 +1431,7 @@ let (intro_pure : let uu___10 = FStar_Tactics_V2_Derived.with_policy - FStar_Tactics_Types.ForceSMT + FStarC_Tactics_Types.ForceSMT (fun uu___11 -> diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Match_Comb.ml b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Match_Comb.ml index fa8886850..478decdac 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Match_Comb.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Match_Comb.ml @@ -26,7 +26,7 @@ let (wrap_matcher : then Obj.magic (Obj.repr - (FStar_Tactics_V1_Builtins.print + (FStarC_Tactics_V1_Builtins.print (Prims.strcat "Trying matcher " label))) else Obj.magic @@ -93,7 +93,7 @@ let (wrap_matcher : then Obj.magic (Obj.repr - (FStar_Tactics_V1_Builtins.print + (FStarC_Tactics_V1_Builtins.print (Prims.strcat "NoMatch: " s))) else @@ -250,10 +250,10 @@ let rec (match_f_1n : ( fun uu___8 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one - (FStar_Pprint.doc_of_string + (FStarC_Pprint.doc_of_string "p =") uu___7)) in FStar_Tactics_Effect.tac_bind @@ -315,10 +315,10 @@ let rec (match_f_1n : (fun uu___11 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one - (FStar_Pprint.doc_of_string + (FStarC_Pprint.doc_of_string "q =") uu___10)) in FStar_Tactics_Effect.tac_bind @@ -504,7 +504,7 @@ let rec (match_f_1n : then Obj.magic (Obj.repr - (FStar_Tactics_V1_Builtins.print + (FStarC_Tactics_V1_Builtins.print "Checking for ambiguity")) else Obj.magic @@ -768,10 +768,10 @@ let rec (match_f_1n : (fun uu___15 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one - (FStar_Pprint.doc_of_string + (FStarC_Pprint.doc_of_string "p =") uu___14)) in FStar_Tactics_Effect.tac_bind @@ -836,10 +836,10 @@ let rec (match_f_1n : (fun uu___18 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one - (FStar_Pprint.doc_of_string + (FStarC_Pprint.doc_of_string "q =") uu___17)) in FStar_Tactics_Effect.tac_bind @@ -902,10 +902,10 @@ let rec (match_f_1n : (fun uu___21 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one - (FStar_Pprint.doc_of_string + (FStarC_Pprint.doc_of_string "ss' =") uu___20)) in FStar_Tactics_Effect.tac_bind @@ -969,10 +969,10 @@ let rec (match_f_1n : (fun uu___24 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one - (FStar_Pprint.doc_of_string + (FStarC_Pprint.doc_of_string "ss'.(q) =") uu___23)) in FStar_Tactics_Effect.tac_bind @@ -1339,7 +1339,7 @@ let report_ambig : (fun uu___5 -> FStar_Tactics_Effect.lift_div_tac (fun uu___6 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "Ambiguous match for resource:") uu___5)) in FStar_Tactics_Effect.tac_bind @@ -1458,10 +1458,10 @@ let report_ambig : (fun uu___14 -> FStar_Tactics_Effect.lift_div_tac (fun uu___15 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___14 - (FStar_Pprint.op_Hat_Hat - FStar_Pprint.hardline + (FStarC_Pprint.op_Hat_Hat + FStarC_Pprint.hardline (Pulse_PP.text "in the context.")))) in FStar_Tactics_Effect.tac_bind @@ -1485,7 +1485,7 @@ let report_ambig : (fun uu___13 -> FStar_Tactics_Effect.lift_div_tac (fun uu___14 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "and:") uu___13)) in FStar_Tactics_Effect.tac_bind @@ -1509,8 +1509,8 @@ let report_ambig : (fun uu___12 -> FStar_Tactics_Effect.lift_div_tac (fun uu___13 -> - FStar_Pprint.op_Hat_Hat - FStar_Pprint.hardline + FStarC_Pprint.op_Hat_Hat + FStarC_Pprint.hardline uu___12)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1534,7 +1534,7 @@ let report_ambig : (fun uu___11 -> FStar_Tactics_Effect.lift_div_tac (fun uu___12 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___9 uu___11)))) uu___9) in FStar_Tactics_Effect.tac_bind @@ -1558,7 +1558,7 @@ let report_ambig : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "It can be matched by both:") uu___8)) in @@ -1852,7 +1852,7 @@ let rec (match_f_nn : (fun uu___4 -> Obj.magic - (FStar_Tactics_V1_Builtins.print + (FStarC_Tactics_V1_Builtins.print uu___4)) uu___4))) else @@ -1925,7 +1925,7 @@ let rec (match_f_nn : (Obj.repr (let uu___7 = - FStar_Tactics_V1_Builtins.print + FStarC_Tactics_V1_Builtins.print "Ambiguity detected... continuing to another goal" in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2014,7 +2014,7 @@ let rec (match_f_nn : uu___11 -> Obj.magic - (FStar_Tactics_V1_Builtins.print + (FStarC_Tactics_V1_Builtins.print uu___11)) uu___11) in Obj.magic @@ -2107,7 +2107,7 @@ let rec (match_f_nn : uu___13 -> Obj.magic - (FStar_Tactics_V1_Builtins.print + (FStarC_Tactics_V1_Builtins.print uu___13)) uu___13) in Obj.magic @@ -2199,7 +2199,7 @@ let rec (match_f_nn : uu___14 -> Obj.magic - (FStar_Tactics_V1_Builtins.print + (FStarC_Tactics_V1_Builtins.print uu___14)) uu___14))) uu___12))) diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Match_Matchers.ml b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Match_Matchers.ml index 92bb9aed1..8c4938bf2 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Match_Matchers.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Match_Matchers.ml @@ -2,18 +2,18 @@ open Prims let rec (equational : Pulse_Syntax_Base.term -> Prims.bool) = fun t -> - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_App (h, uu___) -> equational h - | FStar_Reflection_V2_Data.Tv_Match (uu___, uu___1, uu___2) -> true - | FStar_Reflection_V2_Data.Tv_AscribedT (t1, uu___, uu___1, uu___2) -> + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_App (h, uu___) -> equational h + | FStarC_Reflection_V2_Data.Tv_Match (uu___, uu___1, uu___2) -> true + | FStarC_Reflection_V2_Data.Tv_AscribedT (t1, uu___, uu___1, uu___2) -> equational t1 - | FStar_Reflection_V2_Data.Tv_AscribedC (t1, uu___, uu___1, uu___2) -> + | FStarC_Reflection_V2_Data.Tv_AscribedC (t1, uu___, uu___1, uu___2) -> equational t1 | uu___ -> false let (type_of_fv : Pulse_Typing_Env.env -> - FStar_Reflection_Types.fv -> - (FStar_Reflection_Types.term FStar_Pervasives_Native.option, unit) + FStarC_Reflection_Types.fv -> + (FStarC_Reflection_Types.term FStar_Pervasives_Native.option, unit) FStar_Tactics_Effect.tac_repr) = fun uu___1 -> @@ -23,35 +23,35 @@ let (type_of_fv : Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___ -> - match FStar_Reflection_V2_Builtins.lookup_typ + match FStarC_Reflection_V2_Builtins.lookup_typ (Pulse_Typing_Env.fstar_env g) - (FStar_Reflection_V2_Builtins.inspect_fv fv) + (FStarC_Reflection_V2_Builtins.inspect_fv fv) with | FStar_Pervasives_Native.None -> FStar_Pervasives_Native.None | FStar_Pervasives_Native.Some se -> - (match FStar_Reflection_V2_Builtins.inspect_sigelt se + (match FStarC_Reflection_V2_Builtins.inspect_sigelt se with - | FStar_Reflection_V2_Data.Unk -> + | FStarC_Reflection_V2_Data.Unk -> FStar_Pervasives_Native.None - | FStar_Reflection_V2_Data.Sg_Let (uu___1, lbs) -> + | FStarC_Reflection_V2_Data.Sg_Let (uu___1, lbs) -> FStar_List_Tot_Base.tryPick (fun lb -> if - (FStar_Reflection_V2_Builtins.inspect_fv - (FStar_Reflection_V2_Builtins.inspect_lb - lb).FStar_Reflection_V2_Data.lb_fv) + (FStarC_Reflection_V2_Builtins.inspect_fv + (FStarC_Reflection_V2_Builtins.inspect_lb + lb).FStarC_Reflection_V2_Data.lb_fv) = - (FStar_Reflection_V2_Builtins.inspect_fv + (FStarC_Reflection_V2_Builtins.inspect_fv fv) then FStar_Pervasives_Native.Some - ((FStar_Reflection_V2_Builtins.inspect_lb - lb).FStar_Reflection_V2_Data.lb_typ) + ((FStarC_Reflection_V2_Builtins.inspect_lb + lb).FStarC_Reflection_V2_Data.lb_typ) else FStar_Pervasives_Native.None) lbs - | FStar_Reflection_V2_Data.Sg_Val (uu___1, uu___2, t) + | FStarC_Reflection_V2_Data.Sg_Val (uu___1, uu___2, t) -> FStar_Pervasives_Native.Some t - | FStar_Reflection_V2_Data.Sg_Inductive + | FStarC_Reflection_V2_Data.Sg_Inductive (_nm, _univs, params, typ, uu___1) -> FStar_Pervasives_Native.None)))) uu___1 uu___ type matching_kind = @@ -64,25 +64,25 @@ let (uu___is_Strict : matching_kind -> Prims.bool) = fun projectee -> match projectee with | Strict -> true | uu___ -> false let (uu___is_Full : matching_kind -> Prims.bool) = fun projectee -> match projectee with | Full -> true | uu___ -> false -let (is_equate_by_smt : FStar_Reflection_Types.term -> Prims.bool) = +let (is_equate_by_smt : FStarC_Reflection_Types.term -> Prims.bool) = fun t -> - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_FVar fv -> - let name = FStar_Reflection_V2_Builtins.inspect_fv fv in + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_FVar fv -> + let name = FStarC_Reflection_V2_Builtins.inspect_fv fv in name = ["Pulse"; "Lib"; "Core"; "equate_by_smt"] | uu___ -> false -let (is_equate_strict : FStar_Reflection_Types.term -> Prims.bool) = +let (is_equate_strict : FStarC_Reflection_Types.term -> Prims.bool) = fun t -> - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_FVar fv -> - let name = FStar_Reflection_V2_Builtins.inspect_fv fv in + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_FVar fv -> + let name = FStarC_Reflection_V2_Builtins.inspect_fv fv in name = ["Pulse"; "Lib"; "Core"; "equate_strict"] | uu___ -> false -let (is_equate_syntactic : FStar_Reflection_Types.term -> Prims.bool) = +let (is_equate_syntactic : FStarC_Reflection_Types.term -> Prims.bool) = fun t -> - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_FVar fv -> - let name = FStar_Reflection_V2_Builtins.inspect_fv fv in + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_FVar fv -> + let name = FStarC_Reflection_V2_Builtins.inspect_fv fv in name = ["Pulse"; "Lib"; "Core"; "equate_syntactic"] | uu___ -> false let (matching_kind_from_attr : @@ -204,8 +204,8 @@ let (same_head : match uu___1 with | (FStar_Pervasives_Native.Some (h0, us0, args0), FStar_Pervasives_Native.Some (h1, us1, args1)) -> - ((FStar_Reflection_V2_Builtins.inspect_fv h0) = - (FStar_Reflection_V2_Builtins.inspect_fv h1)) + ((FStarC_Reflection_V2_Builtins.inspect_fv h0) = + (FStarC_Reflection_V2_Builtins.inspect_fv h1)) && ((FStar_List_Tot_Base.length args0) = (FStar_List_Tot_Base.length args1)) @@ -355,11 +355,11 @@ let (eligible_for_smt_equality : Obj.magic (Obj.repr (match - FStar_Reflection_V2_Builtins.inspect_ln + FStarC_Reflection_V2_Builtins.inspect_ln h0 with | - FStar_Reflection_V2_Data.Tv_FVar + FStarC_Reflection_V2_Data.Tv_FVar fv -> Obj.repr (let uu___8 @@ -532,8 +532,8 @@ let (eligible_for_smt_equality : (fun uu___20 -> - (FStar_Reflection_V2_Builtins.inspect_binder - b).FStar_Reflection_V2_Data.attrs)) in + (FStarC_Reflection_V2_Builtins.inspect_binder + b).FStarC_Reflection_V2_Data.attrs)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -677,7 +677,7 @@ let (eligible_for_smt_equality : uu___11)))) uu___9)) | - FStar_Reflection_V2_Data.Tv_UInst + FStarC_Reflection_V2_Data.Tv_UInst (fv, uu___8) -> @@ -854,8 +854,8 @@ let (eligible_for_smt_equality : (fun uu___21 -> - (FStar_Reflection_V2_Builtins.inspect_binder - b).FStar_Reflection_V2_Data.attrs)) in + (FStarC_Reflection_V2_Builtins.inspect_binder + b).FStarC_Reflection_V2_Data.attrs)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1020,19 +1020,19 @@ let (eligible_for_smt_equality : (fun uu___4 -> false))))) uu___2))) uu___1) let (refl_uvar : - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> Pulse_Typing_Env.env -> Pulse_Syntax_Base.var FStar_Pervasives_Native.option) = fun t -> fun uvs -> - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_Var v -> - let uu___ = FStar_Reflection_V2_Builtins.inspect_namedv v in + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_Var v -> + let uu___ = FStarC_Reflection_V2_Builtins.inspect_namedv v in (match uu___ with - | { FStar_Reflection_V2_Data.uniq = n; - FStar_Reflection_V2_Data.sort = uu___1; - FStar_Reflection_V2_Data.ppname = uu___2;_} -> + | { FStarC_Reflection_V2_Data.uniq = n; + FStarC_Reflection_V2_Data.sort = uu___1; + FStarC_Reflection_V2_Data.ppname = uu___2;_} -> if Pulse_Typing_Env.contains uvs n then FStar_Pervasives_Native.Some n else FStar_Pervasives_Native.None) @@ -1116,12 +1116,12 @@ let (try_solve_uvars : | ({ Pulse_Syntax_Base.name = name; Pulse_Syntax_Base.range = uu___5;_}, x, t) -> - ((FStar_Reflection_V2_Builtins.pack_namedv + ((FStarC_Reflection_V2_Builtins.pack_namedv (FStar_Tactics_V2_SyntaxCoercions.binding_to_namedv { - FStar_Reflection_V2_Data.uniq1 = x; - FStar_Reflection_V2_Data.sort3 = t; - FStar_Reflection_V2_Data.ppname3 = + FStarC_Reflection_V2_Data.uniq1 = x; + FStarC_Reflection_V2_Data.sort3 = t; + FStarC_Reflection_V2_Data.ppname3 = name })), t)) uu___2)) in FStar_Tactics_Effect.tac_bind @@ -1145,9 +1145,9 @@ let (try_solve_uvars : (Pulse_Typing_Env.get_context g) (fun uu___2 -> FStar_Tactics_V2_Derived.with_policy - FStar_Tactics_Types.ForceSMT + FStarC_Tactics_Types.ForceSMT (fun uu___3 -> - FStar_Tactics_V2_Builtins.try_unify + FStarC_Tactics_V2_Builtins.try_unify (Pulse_Typing.elab_env g) uvs1 p q)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1169,7 +1169,7 @@ let (try_solve_uvars : match uu___2 with | (l, issues) -> let uu___3 = - FStar_Tactics_V2_Builtins.log_issues + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1206,23 +1206,23 @@ let (try_solve_uvars : | (x, t) -> if (FStar_Set.mem - (FStar_Reflection_V2_Builtins.inspect_namedv - x).FStar_Reflection_V2_Data.uniq + (FStarC_Reflection_V2_Builtins.inspect_namedv + x).FStarC_Reflection_V2_Data.uniq (Pulse_Syntax_Naming.freevars q)) && (Prims.op_Negation ( FStar_Set.mem - (FStar_Reflection_V2_Builtins.inspect_namedv - x).FStar_Reflection_V2_Data.uniq + (FStarC_Reflection_V2_Builtins.inspect_namedv + x).FStarC_Reflection_V2_Data.uniq (Pulse_Checker_Prover_Substs.dom ss))) then Pulse_Checker_Prover_Substs.push ss - (FStar_Reflection_V2_Builtins.inspect_namedv - x).FStar_Reflection_V2_Data.uniq + (FStarC_Reflection_V2_Builtins.inspect_namedv + x).FStarC_Reflection_V2_Data.uniq t else ss) Pulse_Checker_Prover_Substs.empty @@ -1233,12 +1233,12 @@ let rec (unascribe : = fun g -> fun t -> - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_AscribedT (t', uu___, uu___1, uu___2) -> + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_AscribedT (t', uu___, uu___1, uu___2) -> let uu___3 = unascribe g t' in (match uu___3 with | Prims.Mkdtuple2 (t'', tok') -> Prims.Mkdtuple2 (t'', ())) - | FStar_Reflection_V2_Data.Tv_AscribedC (t', uu___, uu___1, uu___2) -> + | FStarC_Reflection_V2_Data.Tv_AscribedC (t', uu___, uu___1, uu___2) -> let uu___3 = unascribe g t' in (match uu___3 with | Prims.Mkdtuple2 (t'', tok') -> Prims.Mkdtuple2 (t'', ())) @@ -1264,7 +1264,7 @@ let (try_unif_nosmt : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term -> - (((unit, unit, unit) FStar_Tactics_Types.equiv_token + (((unit, unit, unit) FStarC_Tactics_Types.equiv_token FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -1402,7 +1402,7 @@ let (try_unif_nosmt : (fun uu___12 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "p: ") uu___11)) in @@ -1461,7 +1461,7 @@ let (try_unif_nosmt : (fun uu___15 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "q: ") uu___14)) in @@ -1690,7 +1690,7 @@ let (head_is_uvar : match uu___6 with | (x, uu___7) -> x = - v.FStar_Reflection_V2_Data.uniq) + v.FStarC_Reflection_V2_Data.uniq) (Pulse_Typing_Env.bindings uvs) | uu___6 -> false)))) uu___1) let (match_syntactic_11 : Pulse_Checker_Prover_Match_Base.matcher_t) = @@ -1916,11 +1916,11 @@ let (match_fastunif_inst_11 : Pulse_Checker_Prover_Match_Base.matcher_t) = let uu___6 = let uu___7 = FStar_Tactics_V2_Derived.with_policy - FStar_Tactics_Types.ForceSMT + FStarC_Tactics_Types.ForceSMT ( fun uu___8 -> - FStar_Tactics_V2_Builtins.tc_term + FStarC_Tactics_V2_Builtins.tc_term (Pulse_Typing.elab_env g) q_subst) in @@ -1956,7 +1956,7 @@ let (match_fastunif_inst_11 : Pulse_Checker_Prover_Match_Base.matcher_t) = []) -> Obj.magic (Obj.repr - (FStar_Tactics_V2_Builtins.norm_well_typed_term + (FStarC_Tactics_V2_Builtins.norm_well_typed_term (Pulse_Typing.elab_env g) [FStar_Pervasives.unascribe; @@ -2132,7 +2132,7 @@ let (match_fastunif_inst_11 : Pulse_Checker_Prover_Match_Base.matcher_t) = (fun uu___16 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "p: ") uu___15)) in @@ -2196,7 +2196,7 @@ let (match_fastunif_inst_11 : Pulse_Checker_Prover_Match_Base.matcher_t) = (fun uu___19 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "q: ") uu___18)) in @@ -2260,7 +2260,7 @@ let (match_fastunif_inst_11 : Pulse_Checker_Prover_Match_Base.matcher_t) = (fun uu___22 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "q_subst: ") uu___21)) in @@ -2324,7 +2324,7 @@ let (match_fastunif_inst_11 : Pulse_Checker_Prover_Match_Base.matcher_t) = (fun uu___25 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "q_norm: ") uu___24)) in @@ -2771,11 +2771,11 @@ let (match_full_11 : Pulse_Checker_Prover_Match_Base.matcher_t) = let uu___6 = let uu___7 = FStar_Tactics_V2_Derived.with_policy - FStar_Tactics_Types.ForceSMT + FStarC_Tactics_Types.ForceSMT ( fun uu___8 -> - FStar_Tactics_V2_Builtins.tc_term + FStarC_Tactics_V2_Builtins.tc_term (Pulse_Typing.elab_env g) q_subst) in @@ -2811,7 +2811,7 @@ let (match_full_11 : Pulse_Checker_Prover_Match_Base.matcher_t) = []) -> Obj.magic (Obj.repr - (FStar_Tactics_V2_Builtins.norm_well_typed_term + (FStarC_Tactics_V2_Builtins.norm_well_typed_term (Pulse_Typing.elab_env g) [FStar_Pervasives.unascribe; diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Substs.ml b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Substs.ml index 4e74c71b4..4aa560569 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Substs.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Substs.ml @@ -23,10 +23,10 @@ let (__proj__Mkss_t__item__m : ss_t -> ss_map) = fun projectee -> match projectee with | { l; m;_} -> m let rec separate_map : 'a . - FStar_Pprint.document -> - ('a -> (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) -> + FStarC_Pprint.document -> + ('a -> (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) -> 'a Prims.list -> - (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr + (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr = fun uu___2 -> fun uu___1 -> @@ -39,7 +39,7 @@ let rec separate_map : Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac - (fun uu___ -> FStar_Pprint.empty))) + (fun uu___ -> FStarC_Pprint.empty))) | x::[] -> Obj.magic (Obj.repr (f x)) | x::xs1 -> Obj.magic @@ -84,8 +84,8 @@ let rec separate_map : (fun docs -> FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> - FStar_Pprint.op_Hat_Hat doc - (FStar_Pprint.op_Hat_Hat sep + FStarC_Pprint.op_Hat_Hat doc + (FStarC_Pprint.op_Hat_Hat sep docs))))) uu___1)))) uu___2 uu___1 uu___ let (pp_ss_t : ss_t Pulse_PP.printable) = @@ -96,8 +96,8 @@ let (pp_ss_t : ss_t Pulse_PP.printable) = | { l; m;_} -> let uu___1 = separate_map - (FStar_Pprint.op_Hat_Hat FStar_Pprint.comma - (FStar_Pprint.break_ Prims.int_one)) + (FStarC_Pprint.op_Hat_Hat FStarC_Pprint.comma + (FStarC_Pprint.break_ Prims.int_one)) (fun k -> let uu___2 = Pulse_PP.pp Pulse_PP.printable_int k in FStar_Tactics_Effect.tac_bind @@ -141,8 +141,8 @@ let (pp_ss_t : ss_t Pulse_PP.printable) = (fun uu___6 -> FStar_Tactics_Effect.lift_div_tac (fun uu___7 -> - FStar_Pprint.op_Hat_Hat - (FStar_Pprint.doc_of_string " -> ") + FStarC_Pprint.op_Hat_Hat + (FStarC_Pprint.doc_of_string " -> ") uu___6)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -166,7 +166,7 @@ let (pp_ss_t : ss_t Pulse_PP.printable) = (fun uu___5 -> FStar_Tactics_Effect.lift_div_tac (fun uu___6 -> - FStar_Pprint.op_Hat_Hat uu___3 + FStarC_Pprint.op_Hat_Hat uu___3 uu___5)))) uu___3)) l in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -182,7 +182,7 @@ let (pp_ss_t : ss_t Pulse_PP.printable) = (Obj.magic uu___1) (fun uu___2 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___3 -> FStar_Pprint.brackets uu___2))) + (fun uu___3 -> FStarC_Pprint.brackets uu___2))) } let (showable_ss_t : ss_t Pulse_Show.tac_showable) = Pulse_PP.show_from_pp pp_ss_t @@ -364,7 +364,7 @@ let rec (ss_to_nt_substs : Pulse_Typing_Env.env -> Pulse_Typing_Env.env -> ss_t -> - (((nt_substs, FStar_TypeChecker_Core.tot_or_ghost Prims.list) + (((nt_substs, FStarC_TypeChecker_Core.tot_or_ghost Prims.list) Prims.dtuple2, Prims.string) FStar_Pervasives.either, unit) FStar_Tactics_Effect.tac_repr) @@ -585,9 +585,9 @@ let rec (well_typed_nt_substs_prefix : Pulse_Typing_Env.env -> Pulse_Typing_Env.env -> nt_substs -> - FStar_TypeChecker_Core.tot_or_ghost Prims.list -> + FStarC_TypeChecker_Core.tot_or_ghost Prims.list -> Pulse_Typing_Env.env -> - (nt_substs * FStar_TypeChecker_Core.tot_or_ghost Prims.list)) + (nt_substs * FStarC_TypeChecker_Core.tot_or_ghost Prims.list)) = fun g -> fun uvs -> @@ -630,7 +630,7 @@ let rec (st_typing_nt_substs : Pulse_Syntax_Base.comp_st -> (unit, unit, unit) Pulse_Typing.st_typing -> nt_substs -> - FStar_TypeChecker_Core.tot_or_ghost Prims.list -> + FStarC_TypeChecker_Core.tot_or_ghost Prims.list -> ((unit, unit, unit) Pulse_Typing.st_typing, (Pulse_Syntax_Base.var * Pulse_Syntax_Base.term)) FStar_Pervasives.either) @@ -659,7 +659,7 @@ let rec (st_typing_nt_substs : if (Prims.op_Negation (eff = - FStar_TypeChecker_Core.E_Ghost)) + FStarC_TypeChecker_Core.E_Ghost)) || (Pulse_Syntax_Base.uu___is_C_STGhost c) @@ -693,7 +693,7 @@ let (st_typing_nt_substs_derived : Pulse_Syntax_Base.comp_st -> (unit, unit, unit) Pulse_Typing.st_typing -> nt_substs -> - FStar_TypeChecker_Core.tot_or_ghost Prims.list -> + FStarC_TypeChecker_Core.tot_or_ghost Prims.list -> ((unit, unit, unit) Pulse_Typing.st_typing, (Pulse_Syntax_Base.var * Pulse_Syntax_Base.term)) FStar_Pervasives.either) diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Util.ml b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Util.ml index 09aa6041f..a94211880 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Util.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Util.ml @@ -31,7 +31,7 @@ let (debug_prover : (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> - Obj.magic (FStar_Tactics_V2_Builtins.print uu___1)) + Obj.magic (FStarC_Tactics_V2_Builtins.print uu___1)) uu___1))) else Obj.magic diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Pure.ml b/src/ocaml/plugin/generated/Pulse_Checker_Pure.ml index d5fdf0faa..c7f33d439 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Pure.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Pure.ml @@ -10,7 +10,7 @@ let (debug : = fun g -> fun msg -> - let uu___ = FStar_Tactics_V2_Builtins.debugging () in + let uu___ = FStarC_Tactics_V2_Builtins.debugging () in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -110,7 +110,7 @@ let (debug : (fun uu___2 -> (fun uu___2 -> Obj.magic - (FStar_Tactics_V2_Builtins.print uu___2)) + (FStarC_Tactics_V2_Builtins.print uu___2)) uu___2))) else Obj.magic @@ -120,7 +120,7 @@ let (debug : let (check_ln : Pulse_Typing_Env.env -> Prims.string -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun g -> @@ -186,7 +186,7 @@ let (check_ln : (fun uu___6 -> FStar_Tactics_Effect.lift_div_tac (fun uu___7 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat (Pulse_PP.text "Aborting before calling") uu___6)) in @@ -235,8 +235,8 @@ let (check_ln : (fun uu___10 -> FStar_Tactics_Effect.lift_div_tac (fun uu___11 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.equals + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.equals uu___10)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -259,7 +259,7 @@ let (check_ln : (fun uu___9 -> FStar_Tactics_Effect.lift_div_tac (fun uu___10 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat (Pulse_PP.text "term") uu___9)) in FStar_Tactics_Effect.tac_bind @@ -354,9 +354,9 @@ let (check_ln : uu___1) let (rtb_core_compute_term_type : Pulse_Typing_Env.env -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - (((FStar_TypeChecker_Core.tot_or_ghost * FStar_Reflection_Types.typ) + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + (((FStarC_TypeChecker_Core.tot_or_ghost * FStarC_Reflection_Types.typ) FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -381,7 +381,7 @@ let (rtb_core_compute_term_type : debug g (fun uu___3 -> let uu___4 = - FStar_Tactics_V2_Builtins.term_to_string e in + FStarC_Tactics_V2_Builtins.term_to_string e in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -398,7 +398,7 @@ let (rtb_core_compute_term_type : (fun uu___5 -> let uu___6 = let uu___7 = - FStar_Tactics_V2_Builtins.range_to_string + FStarC_Tactics_V2_Builtins.range_to_string (Pulse_RuntimeUtils.range_of_term e) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -469,7 +469,7 @@ let (rtb_core_compute_term_type : Pulse_RuntimeUtils.with_context (Pulse_Typing_Env.get_context g) (fun uu___5 -> - FStar_Tactics_V2_Builtins.core_compute_term_type + FStarC_Tactics_V2_Builtins.core_compute_term_type f e) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -495,10 +495,10 @@ let (rtb_core_compute_term_type : (fun uu___5 -> res)))) uu___3))) uu___1) let (rtb_tc_term : Pulse_Typing_Env.env -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - (((FStar_Reflection_Types.term * (FStar_TypeChecker_Core.tot_or_ghost - * FStar_Reflection_Types.typ)) FStar_Pervasives_Native.option * + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + (((FStarC_Reflection_Types.term * (FStarC_TypeChecker_Core.tot_or_ghost + * FStarC_Reflection_Types.typ)) FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -545,7 +545,7 @@ let (rtb_tc_term : debug g (fun uu___4 -> let uu___5 = - FStar_Tactics_V2_Builtins.term_to_string + FStarC_Tactics_V2_Builtins.term_to_string e1 in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -569,7 +569,7 @@ let (rtb_tc_term : (fun uu___6 -> let uu___7 = let uu___8 = - FStar_Tactics_V2_Builtins.range_to_string + FStarC_Tactics_V2_Builtins.range_to_string (Pulse_RuntimeUtils.range_of_term e1) in FStar_Tactics_Effect.tac_bind @@ -649,7 +649,7 @@ let (rtb_tc_term : Pulse_RuntimeUtils.with_context (Pulse_Typing_Env.get_context g) (fun uu___6 -> - FStar_Tactics_V2_Builtins.tc_term + FStarC_Tactics_V2_Builtins.tc_term f e1) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -676,9 +676,9 @@ let (rtb_tc_term : uu___3))) uu___1) let (rtb_universe_of : Pulse_Typing_Env.env -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - ((FStar_Reflection_Types.universe FStar_Pervasives_Native.option * + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + ((FStarC_Reflection_Types.universe FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -703,7 +703,7 @@ let (rtb_universe_of : debug g (fun uu___3 -> let uu___4 = - FStar_Tactics_V2_Builtins.term_to_string e in + FStarC_Tactics_V2_Builtins.term_to_string e in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -720,7 +720,7 @@ let (rtb_universe_of : (fun uu___5 -> let uu___6 = let uu___7 = - FStar_Tactics_V2_Builtins.range_to_string + FStarC_Tactics_V2_Builtins.range_to_string (Pulse_RuntimeUtils.range_of_term e) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -791,7 +791,7 @@ let (rtb_universe_of : Pulse_RuntimeUtils.with_context (Pulse_Typing_Env.get_context g) (fun uu___5 -> - FStar_Tactics_V2_Builtins.universe_of f e) in + FStarC_Tactics_V2_Builtins.universe_of f e) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -906,7 +906,7 @@ let (rtb_check_subtyping : (fun uu___10 -> let uu___11 = let uu___12 = - FStar_Tactics_V2_Builtins.range_to_string + FStarC_Tactics_V2_Builtins.range_to_string (Pulse_RuntimeUtils.range_of_term t2) in FStar_Tactics_Effect.tac_bind @@ -931,7 +931,7 @@ let (rtb_check_subtyping : (fun uu___13 -> let uu___14 = let uu___15 = - FStar_Tactics_V2_Builtins.range_to_string + FStarC_Tactics_V2_Builtins.range_to_string ( Pulse_RuntimeUtils.range_of_term t1) in @@ -1083,7 +1083,7 @@ let (rtb_check_subtyping : Pulse_RuntimeUtils.with_context (Pulse_Typing_Env.get_context g) (fun uu___7 -> - FStar_Tactics_V2_Builtins.check_subtyping + FStarC_Tactics_V2_Builtins.check_subtyping (Pulse_Typing.elab_env g) t1 t2) in Obj.magic @@ -1111,12 +1111,12 @@ let (rtb_check_subtyping : uu___3))) uu___1) let (rtb_instantiate_implicits : Pulse_Typing_Env.env -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term FStar_Pervasives_Native.option -> - ((((FStar_Reflection_Types.namedv * FStar_Reflection_Types.typ) - Prims.list * FStar_Reflection_Types.term * - FStar_Reflection_Types.typ) FStar_Pervasives_Native.option * + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term FStar_Pervasives_Native.option -> + ((((FStarC_Reflection_Types.namedv * FStarC_Reflection_Types.typ) + Prims.list * FStarC_Reflection_Types.term * + FStarC_Reflection_Types.typ) FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -1143,7 +1143,7 @@ let (rtb_instantiate_implicits : debug g (fun uu___3 -> let uu___4 = - FStar_Tactics_V2_Builtins.term_to_string t in + FStarC_Tactics_V2_Builtins.term_to_string t in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1209,7 +1209,7 @@ let (rtb_instantiate_implicits : Pulse_RuntimeUtils.with_context (Pulse_Typing_Env.get_context g) (fun uu___6 -> - FStar_Tactics_V2_Builtins.instantiate_implicits + FStarC_Tactics_V2_Builtins.instantiate_implicits f t1 expected) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1288,7 +1288,7 @@ let (rtb_instantiate_implicits : -> let uu___11 = - FStar_Tactics_V2_Builtins.term_to_string + FStarC_Tactics_V2_Builtins.term_to_string t2 in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1355,11 +1355,11 @@ let (rtb_instantiate_implicits : uu___1) let (rtb_core_check_term : Pulse_Typing_Env.env -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - FStar_TypeChecker_Core.tot_or_ghost -> - FStar_Reflection_Types.term -> - (((unit, unit, unit) FStar_Tactics_Types.typing_token + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + FStarC_TypeChecker_Core.tot_or_ghost -> + FStarC_Reflection_Types.term -> + (((unit, unit, unit) FStarC_Tactics_Types.typing_token FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -1403,7 +1403,7 @@ let (rtb_core_check_term : debug g (fun uu___5 -> let uu___6 = - FStar_Tactics_V2_Builtins.term_to_string + FStarC_Tactics_V2_Builtins.term_to_string t in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1427,7 +1427,7 @@ let (rtb_core_check_term : (fun uu___7 -> let uu___8 = let uu___9 = - FStar_Tactics_V2_Builtins.term_to_string + FStarC_Tactics_V2_Builtins.term_to_string e in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1451,7 +1451,7 @@ let (rtb_core_check_term : (fun uu___10 -> let uu___11 = let uu___12 = - FStar_Tactics_V2_Builtins.range_to_string + FStarC_Tactics_V2_Builtins.range_to_string (Pulse_RuntimeUtils.range_of_term e) in FStar_Tactics_Effect.tac_bind @@ -1567,7 +1567,7 @@ let (rtb_core_check_term : Pulse_RuntimeUtils.with_context (Pulse_Typing_Env.get_context g) (fun uu___7 -> - FStar_Tactics_V2_Builtins.core_check_term + FStarC_Tactics_V2_Builtins.core_check_term f e t eff) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1594,10 +1594,10 @@ let (rtb_core_check_term : uu___5))) uu___3))) uu___1) let (rtb_core_check_term_at_type : Pulse_Typing_Env.env -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - ((FStar_TypeChecker_Core.tot_or_ghost + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + ((FStarC_TypeChecker_Core.tot_or_ghost FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -1608,7 +1608,7 @@ let (rtb_core_check_term_at_type : let uu___ = debug g (fun uu___1 -> - let uu___2 = FStar_Tactics_V2_Builtins.term_to_string t in + let uu___2 = FStarC_Tactics_V2_Builtins.term_to_string t in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1625,7 +1625,7 @@ let (rtb_core_check_term_at_type : (fun uu___3 -> let uu___4 = let uu___5 = - FStar_Tactics_V2_Builtins.term_to_string e in + FStarC_Tactics_V2_Builtins.term_to_string e in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1647,7 +1647,7 @@ let (rtb_core_check_term_at_type : (fun uu___6 -> let uu___7 = let uu___8 = - FStar_Tactics_V2_Builtins.range_to_string + FStarC_Tactics_V2_Builtins.range_to_string (Pulse_RuntimeUtils.range_of_term e) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1744,7 +1744,7 @@ let (rtb_core_check_term_at_type : Pulse_RuntimeUtils.with_context (Pulse_Typing_Env.get_context g) (fun uu___3 -> - FStar_Tactics_V2_Builtins.core_check_term_at_type f + FStarC_Tactics_V2_Builtins.core_check_term_at_type f e t) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1762,21 +1762,21 @@ let (rtb_core_check_term_at_type : (fun res -> FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> res)))) uu___1) -let (mk_squash0 : FStar_Reflection_Types.term -> FStar_Reflection_Types.term) +let (mk_squash0 : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun t -> let sq = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv FStar_Reflection_Const.squash_qn), [Pulse_Syntax_Pure.u_zero])) in FStar_Reflection_V2_Derived.mk_e_app sq [t] let (rtb_check_prop_validity : Pulse_Typing_Env.env -> Prims.bool -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> ((unit FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), unit) FStar_Tactics_Effect.tac_repr) @@ -1804,7 +1804,7 @@ let (rtb_check_prop_validity : debug g (fun uu___3 -> let uu___4 = - FStar_Tactics_V2_Builtins.term_to_string p in + FStarC_Tactics_V2_Builtins.term_to_string p in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1823,7 +1823,7 @@ let (rtb_check_prop_validity : (fun uu___5 -> let uu___6 = let uu___7 = - FStar_Tactics_V2_Builtins.range_to_string + FStarC_Tactics_V2_Builtins.range_to_string (Pulse_RuntimeUtils.range_of_term p) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1922,12 +1922,12 @@ let (rtb_check_prop_validity : if sync then FStar_Tactics_V2_Derived.with_policy - FStar_Tactics_Types.ForceSMT + FStarC_Tactics_Types.ForceSMT (fun uu___7 -> - FStar_Tactics_V2_Builtins.check_prop_validity + FStarC_Tactics_V2_Builtins.check_prop_validity f sp) else - FStar_Tactics_V2_Builtins.check_prop_validity + FStarC_Tactics_V2_Builtins.check_prop_validity f sp) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1967,7 +1967,7 @@ let (rtb_check_prop_validity : let (exn_as_issue : Prims.exn -> FStar_Issue.issue) = fun e -> FStar_Issue.mk_issue_doc "Error" - [FStar_Pprint.arbitrary_string (Pulse_RuntimeUtils.print_exn e)] + [FStarC_Pprint.arbitrary_string (Pulse_RuntimeUtils.print_exn e)] FStar_Pervasives_Native.None FStar_Pervasives_Native.None [] let catch_all : 'a . @@ -1979,7 +1979,7 @@ let catch_all : unit) FStar_Tactics_Effect.tac_repr = fun f -> - let uu___ = FStar_Tactics_V2_Builtins.catch f in + let uu___ = FStarC_Tactics_V2_Builtins.catch f in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1999,11 +1999,11 @@ let catch_all : (FStar_Pervasives_Native.None, [exn_as_issue exn]) | FStar_Pervasives.Inr v -> v)) let (readback_failure : - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (Prims.string, unit) FStar_Tactics_Effect.tac_repr) = fun s -> - let uu___ = FStar_Tactics_V2_Builtins.term_to_string s in + let uu___ = FStarC_Tactics_V2_Builtins.term_to_string s in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -2024,7 +2024,7 @@ let (ill_typed_term : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term FStar_Pervasives_Native.option -> Pulse_Syntax_Base.term FStar_Pervasives_Native.option -> - (FStar_Pprint.document Prims.list, unit) + (FStarC_Pprint.document Prims.list, unit) FStar_Tactics_Effect.tac_repr) = fun t -> @@ -2049,7 +2049,7 @@ let (ill_typed_term : (fun uu___3 -> FStar_Tactics_Effect.lift_div_tac (fun uu___4 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat (Pulse_PP.text "Ill-typed term: ") uu___3)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2084,7 +2084,7 @@ let (ill_typed_term : (fun uu___3 -> FStar_Tactics_Effect.lift_div_tac (fun uu___4 -> - FStar_Pprint.prefix (Prims.of_int (2)) + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text "Expected term of type") uu___3)) in FStar_Tactics_Effect.tac_bind @@ -2120,7 +2120,7 @@ let (ill_typed_term : (fun uu___5 -> FStar_Tactics_Effect.lift_div_tac (fun uu___6 -> - FStar_Pprint.prefix (Prims.of_int (2)) + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text "got term") uu___5)) in Obj.magic @@ -2141,7 +2141,7 @@ let (ill_typed_term : (fun uu___4 -> FStar_Tactics_Effect.lift_div_tac (fun uu___5 -> - FStar_Pprint.op_Hat_Slash_Hat uu___2 + FStarC_Pprint.op_Hat_Slash_Hat uu___2 uu___4)))) uu___2) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2177,7 +2177,7 @@ let (ill_typed_term : (fun uu___3 -> FStar_Tactics_Effect.lift_div_tac (fun uu___4 -> - FStar_Pprint.prefix (Prims.of_int (2)) + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text "Expected term of type") uu___3)) in FStar_Tactics_Effect.tac_bind @@ -2214,7 +2214,7 @@ let (ill_typed_term : (fun uu___6 -> FStar_Tactics_Effect.lift_div_tac (fun uu___7 -> - FStar_Pprint.prefix (Prims.of_int (2)) + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text "got term") uu___6)) in FStar_Tactics_Effect.tac_bind @@ -2257,7 +2257,7 @@ let (ill_typed_term : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text "of type") @@ -2284,7 +2284,7 @@ let (ill_typed_term : (fun uu___7 -> FStar_Tactics_Effect.lift_div_tac (fun uu___8 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat uu___5 uu___7)))) uu___5) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2304,7 +2304,7 @@ let (ill_typed_term : (fun uu___4 -> FStar_Tactics_Effect.lift_div_tac (fun uu___5 -> - FStar_Pprint.op_Hat_Slash_Hat uu___2 + FStarC_Pprint.op_Hat_Slash_Hat uu___2 uu___4)))) uu___2) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2325,7 +2325,7 @@ let maybe_fail_doc : FStar_Issue.issue Prims.list -> Pulse_Typing_Env.env -> Pulse_Syntax_Base.range -> - FStar_Pprint.document Prims.list -> + FStarC_Pprint.document Prims.list -> ('uuuuu, unit) FStar_Tactics_Effect.tac_repr = fun issues -> @@ -2361,9 +2361,9 @@ let maybe_fail_doc : Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> - FStar_Pprint.pretty_string + FStarC_Pprint.pretty_string Pulse_RuntimeUtils.float_one - (Prims.of_int (80)) (FStar_Pprint.concat doc))) in + (Prims.of_int (80)) (FStarC_Pprint.concat doc))) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2509,7 +2509,7 @@ let (instantiate_term_implicits : match uu___4 with | (topt, issues) -> let uu___5 = - FStar_Tactics_V2_Builtins.log_issues + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2573,7 +2573,7 @@ let (instantiate_term_implicits : (fun uu___11 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -2681,7 +2681,7 @@ let (instantiate_term_implicits : (fun uu___11 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -2873,7 +2873,7 @@ let (instantiate_term_implicits_uvs : match uu___4 with | (topt, issues) -> let uu___5 = - FStar_Tactics_V2_Builtins.log_issues + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2934,7 +2934,7 @@ let (instantiate_term_implicits_uvs : (fun uu___11 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -3030,14 +3030,14 @@ let (instantiate_term_implicits_uvs : -> let nview = - FStar_Reflection_V2_Builtins.inspect_namedv + FStarC_Reflection_V2_Builtins.inspect_namedv namedv in let ppname = { Pulse_Syntax_Base.name = - (nview.FStar_Reflection_V2_Data.ppname); + (nview.FStarC_Reflection_V2_Data.ppname); Pulse_Syntax_Base.range = rng } in @@ -3054,7 +3054,7 @@ let (instantiate_term_implicits_uvs : t1 [ FStar_Reflection_Typing.NT - ((nview.FStar_Reflection_V2_Data.uniq), + ((nview.FStarC_Reflection_V2_Data.uniq), (Pulse_Syntax_Pure.tm_var { Pulse_Syntax_Base.nm_index @@ -3066,7 +3066,7 @@ let (instantiate_term_implicits_uvs : ty1 [ FStar_Reflection_Typing.NT - ((nview.FStar_Reflection_V2_Data.uniq), + ((nview.FStarC_Reflection_V2_Data.uniq), (Pulse_Syntax_Pure.tm_var { Pulse_Syntax_Base.nm_index @@ -3164,7 +3164,7 @@ let (check_universe : match uu___2 with | (ru_opt, issues) -> let uu___3 = - FStar_Tactics_V2_Builtins.log_issues issues in + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3232,10 +3232,10 @@ let (check_universe : uu___2))) uu___1) let (tc_meta_callback : Pulse_Typing_Env.env -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - (((FStar_Reflection_Types.term, FStar_TypeChecker_Core.tot_or_ghost, - FStar_Reflection_Types.term, + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + (((FStarC_Reflection_Types.term, FStarC_TypeChecker_Core.tot_or_ghost, + FStarC_Reflection_Types.term, (unit, unit, unit) FStar_Reflection_Typing.typing) FStar_Pervasives.dtuple4 FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), @@ -3287,7 +3287,7 @@ let (tc_meta_callback : let (compute_term_type : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> - ((Pulse_Syntax_Base.term, FStar_TypeChecker_Core.tot_or_ghost, + ((Pulse_Syntax_Base.term, FStarC_TypeChecker_Core.tot_or_ghost, Pulse_Syntax_Base.term, unit) FStar_Pervasives.dtuple4, unit) FStar_Tactics_Effect.tac_repr) = @@ -3313,7 +3313,7 @@ let (compute_term_type : let uu___1 = debug g (fun uu___2 -> - let uu___3 = FStar_Tactics_V2_Builtins.term_to_string t in + let uu___3 = FStarC_Tactics_V2_Builtins.term_to_string t in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -3422,7 +3422,7 @@ let (compute_term_type : match uu___4 with | (res, issues) -> let uu___5 = - FStar_Tactics_V2_Builtins.log_issues + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3499,7 +3499,7 @@ let (compute_term_type : let (compute_term_type_and_u : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> - ((Pulse_Syntax_Base.term, FStar_TypeChecker_Core.tot_or_ghost, + ((Pulse_Syntax_Base.term, FStarC_TypeChecker_Core.tot_or_ghost, Pulse_Syntax_Base.term, (Pulse_Syntax_Base.universe, unit) Prims.dtuple2, unit) FStar_Pervasives.dtuple5, @@ -3544,7 +3544,7 @@ let (compute_term_type_and_u : match uu___2 with | (res, issues) -> let uu___3 = - FStar_Tactics_V2_Builtins.log_issues issues in + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3637,7 +3637,7 @@ let (compute_term_type_and_u : let (check_term : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> - FStar_TypeChecker_Core.tot_or_ghost -> + FStarC_TypeChecker_Core.tot_or_ghost -> Pulse_Syntax_Base.term -> ((Pulse_Syntax_Base.term, unit) Prims.dtuple2, unit) FStar_Tactics_Effect.tac_repr) @@ -3691,7 +3691,7 @@ let (check_term : rtb_core_check_term (Pulse_Typing_Env.push_context g "check_term_with_expected_type_and_effect" - (FStar_Reflection_V2_Builtins.range_of_term + (FStarC_Reflection_V2_Builtins.range_of_term t)) fg e1 eff t) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3717,7 +3717,7 @@ let (check_term : match uu___5 with | (topt, issues) -> let uu___6 = - FStar_Tactics_V2_Builtins.log_issues + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3799,7 +3799,7 @@ let (check_term_at_type : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term -> - ((Pulse_Syntax_Base.term, FStar_TypeChecker_Core.tot_or_ghost, + ((Pulse_Syntax_Base.term, FStarC_TypeChecker_Core.tot_or_ghost, unit) FStar_Pervasives.dtuple3, unit) FStar_Tactics_Effect.tac_repr) = @@ -3849,7 +3849,7 @@ let (check_term_at_type : rtb_core_check_term_at_type (Pulse_Typing_Env.push_context g "check_term_with_expected_type" - (FStar_Reflection_V2_Builtins.range_of_term + (FStarC_Reflection_V2_Builtins.range_of_term t)) fg e1 t) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3875,7 +3875,7 @@ let (check_term_at_type : match uu___5 with | (effopt, issues) -> let uu___6 = - FStar_Tactics_V2_Builtins.log_issues + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3954,9 +3954,9 @@ let (check_term_at_type : uu___4))) uu___1) let (tc_with_core : Pulse_Typing_Env.env -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - (((FStar_TypeChecker_Core.tot_or_ghost, FStar_Reflection_Types.term, + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + (((FStarC_TypeChecker_Core.tot_or_ghost, FStarC_Reflection_Types.term, (unit, unit, unit) FStar_Reflection_Typing.typing) FStar_Pervasives.dtuple3 FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), @@ -3970,7 +3970,7 @@ let (tc_with_core : (fun uu___1 -> rtb_core_compute_term_type (Pulse_Typing_Env.push_context g "tc_with_core" - (FStar_Reflection_V2_Builtins.range_of_term e)) f e) in + (FStarC_Reflection_V2_Builtins.range_of_term e)) f e) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -4000,7 +4000,7 @@ let (tc_with_core : let (core_compute_term_type : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> - ((FStar_TypeChecker_Core.tot_or_ghost, Pulse_Syntax_Base.term, + ((FStarC_TypeChecker_Core.tot_or_ghost, Pulse_Syntax_Base.term, unit) FStar_Pervasives.dtuple3, unit) FStar_Tactics_Effect.tac_repr) = @@ -4027,7 +4027,7 @@ let (core_compute_term_type : let uu___1 = tc_with_core (Pulse_Typing_Env.push_context g "core_check_term" - (FStar_Reflection_V2_Builtins.range_of_term t)) fg t in + (FStarC_Reflection_V2_Builtins.range_of_term t)) fg t in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -4046,7 +4046,7 @@ let (core_compute_term_type : match uu___2 with | (res, issues) -> let uu___3 = - FStar_Tactics_V2_Builtins.log_issues issues in + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -4115,7 +4115,7 @@ let (core_compute_term_type : let (core_check_term : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> - FStar_TypeChecker_Core.tot_or_ghost -> + FStarC_TypeChecker_Core.tot_or_ghost -> Pulse_Syntax_Base.term -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun g -> @@ -4145,7 +4145,7 @@ let (core_check_term : (fun uu___2 -> rtb_core_check_term (Pulse_Typing_Env.push_context g "core_check_term" - (FStar_Reflection_V2_Builtins.range_of_term t)) + (FStarC_Reflection_V2_Builtins.range_of_term t)) fg e eff t) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -4165,7 +4165,7 @@ let (core_check_term : match uu___2 with | (topt, issues) -> let uu___3 = - FStar_Tactics_V2_Builtins.log_issues + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -4234,7 +4234,7 @@ let (core_check_term_at_type : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term -> - ((FStar_TypeChecker_Core.tot_or_ghost, unit) Prims.dtuple2, unit) + ((FStarC_TypeChecker_Core.tot_or_ghost, unit) Prims.dtuple2, unit) FStar_Tactics_Effect.tac_repr) = fun g -> @@ -4264,7 +4264,7 @@ let (core_check_term_at_type : rtb_core_check_term_at_type (Pulse_Typing_Env.push_context g "core_check_term_at_type" - (FStar_Reflection_V2_Builtins.range_of_term t)) + (FStarC_Reflection_V2_Builtins.range_of_term t)) fg e t) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -4284,7 +4284,7 @@ let (core_check_term_at_type : match uu___2 with | (effopt, issues) -> let uu___3 = - FStar_Tactics_V2_Builtins.log_issues issues in + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -4359,7 +4359,7 @@ let (check_slprop : fun g -> fun t -> check_term (Pulse_Typing_Env.push_context_no_range g "check_slprop") t - FStar_TypeChecker_Core.E_Total Pulse_Syntax_Pure.tm_slprop + FStarC_TypeChecker_Core.E_Total Pulse_Syntax_Pure.tm_slprop let (check_slprop_with_core : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> (unit, unit) FStar_Tactics_Effect.tac_repr) @@ -4368,7 +4368,7 @@ let (check_slprop_with_core : fun t -> core_check_term (Pulse_Typing_Env.push_context_no_range g "check_slprop_with_core") t - FStar_TypeChecker_Core.E_Total Pulse_Syntax_Pure.tm_slprop + FStarC_TypeChecker_Core.E_Total Pulse_Syntax_Pure.tm_slprop let (try_get_non_informative_witness_aux : Pulse_Typing_Env.env -> Pulse_Syntax_Base.universe -> @@ -4445,7 +4445,7 @@ let (try_get_non_informative_witness_aux : (fun uu___3 -> (fun constraint_typing -> let uu___3 = - FStar_Tactics_V2_Builtins.call_subtac + FStarC_Tactics_V2_Builtins.call_subtac r_env FStar_Tactics_Typeclasses.tcresolve u goal in @@ -4546,7 +4546,7 @@ let (get_non_informative_witness : match uu___1 with | (FStar_Pervasives_Native.None, issues) -> let uu___2 = - FStar_Tactics_V2_Builtins.log_issues issues in + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -4591,7 +4591,7 @@ let (get_non_informative_witness : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text "Got:") @@ -4670,7 +4670,7 @@ let (get_non_informative_witness : uu___3)) | (FStar_Pervasives_Native.Some e, issues) -> let uu___2 = - FStar_Tactics_V2_Builtins.log_issues issues in + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -4742,7 +4742,7 @@ let (check_prop_validity : (fun uu___2 -> match uu___2 with | (t_opt, issues) -> - let uu___3 = FStar_Tactics_V2_Builtins.log_issues issues in + let uu___3 = FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -4788,7 +4788,7 @@ let (check_prop_validity : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -4870,7 +4870,7 @@ let fail_expected_tot_found_ghost : (fun uu___3 -> FStar_Tactics_Effect.lift_div_tac (fun uu___4 -> - FStar_Pprint.prefix (Prims.of_int (2)) Prims.int_one + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text "Expected a total term, got found ghost term:") uu___3)) in @@ -4931,7 +4931,7 @@ let (compute_tot_term_type : (fun uu___1 -> match uu___1 with | FStar_Pervasives.Mkdtuple4 (t1, eff, ty, t_typing) -> - if eff = FStar_TypeChecker_Core.E_Total + if eff = FStarC_TypeChecker_Core.E_Total then Obj.magic (Obj.repr @@ -4968,7 +4968,7 @@ let (compute_tot_term_type_and_u : match uu___1 with | FStar_Pervasives.Mkdtuple5 (t1, eff, ty, Prims.Mkdtuple2 (u, ty_typing), t_typing) -> - if eff = FStar_TypeChecker_Core.E_Total + if eff = FStarC_TypeChecker_Core.E_Total then Obj.magic (Obj.repr @@ -4985,7 +4985,7 @@ let (check_tot_term : ((Pulse_Syntax_Base.term, unit) Prims.dtuple2, unit) FStar_Tactics_Effect.tac_repr) = - fun g -> fun e -> fun t -> check_term g e FStar_TypeChecker_Core.E_Total t + fun g -> fun e -> fun t -> check_term g e FStarC_TypeChecker_Core.E_Total t let (core_compute_tot_term_type : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> @@ -5011,7 +5011,7 @@ let (core_compute_tot_term_type : (fun uu___1 -> match uu___1 with | FStar_Pervasives.Mkdtuple3 (eff, ty, d) -> - if eff = FStar_TypeChecker_Core.E_Total + if eff = FStarC_TypeChecker_Core.E_Total then Obj.magic (Obj.repr @@ -5026,11 +5026,11 @@ let (core_check_tot_term : Pulse_Syntax_Base.typ -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun g -> - fun e -> fun t -> core_check_term g e FStar_TypeChecker_Core.E_Total t + fun e -> fun t -> core_check_term g e FStarC_TypeChecker_Core.E_Total t let (is_non_informative : Pulse_Typing_Env.env -> Pulse_Syntax_Base.comp -> - ((unit, unit) FStar_Tactics_Types.non_informative_token + ((unit, unit) FStarC_Tactics_Types.non_informative_token FStar_Pervasives_Native.option, unit) FStar_Tactics_Effect.tac_repr) = @@ -5039,7 +5039,7 @@ let (is_non_informative : let uu___ = catch_all (fun uu___1 -> - FStar_Tactics_V2_Builtins.is_non_informative + FStarC_Tactics_V2_Builtins.is_non_informative (Pulse_Typing.elab_env g) (Pulse_Elaborate_Pure.elab_comp c)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -5056,7 +5056,7 @@ let (is_non_informative : (fun uu___1 -> match uu___1 with | (ropt, issues) -> - let uu___2 = FStar_Tactics_V2_Builtins.log_issues issues in + let uu___2 = FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -5083,7 +5083,7 @@ let (check_subtyping : fun g -> fun t1 -> fun t2 -> - FStar_Tactics_V2_Derived.with_policy FStar_Tactics_Types.ForceSMT + FStar_Tactics_V2_Derived.with_policy FStarC_Tactics_Types.ForceSMT (fun uu___ -> let uu___1 = rtb_check_subtyping g t1 t2 in FStar_Tactics_Effect.tac_bind @@ -5103,7 +5103,7 @@ let (check_subtyping : match uu___2 with | (res, issues) -> let uu___3 = - FStar_Tactics_V2_Builtins.log_issues issues in + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -5191,7 +5191,7 @@ let (check_subtyping : (fun uu___13 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat (Pulse_PP.text "and") uu___12)) in @@ -5223,7 +5223,7 @@ let (check_subtyping : (fun uu___12 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat uu___9 uu___11)))) uu___9) in @@ -5248,7 +5248,7 @@ let (check_subtyping : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat (Pulse_PP.text "Could not prove subtyping of ") uu___8)) in @@ -5305,7 +5305,7 @@ let (check_equiv : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term -> - ((unit, unit, unit) FStar_Tactics_Types.equiv_token + ((unit, unit, unit) FStarC_Tactics_Types.equiv_token FStar_Pervasives_Native.option, unit) FStar_Tactics_Effect.tac_repr) = @@ -5330,7 +5330,7 @@ let (check_equiv : (fun uu___1 -> match uu___1 with | (res, issues) -> - let uu___2 = FStar_Tactics_V2_Builtins.log_issues issues in + let uu___2 = FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Return.ml b/src/ocaml/plugin/generated/Pulse_Checker_Return.ml index 03cc39c25..d9c0a3222 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Return.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Return.ml @@ -2,7 +2,7 @@ open Prims let (check_effect : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> - FStar_TypeChecker_Core.tot_or_ghost -> + FStarC_TypeChecker_Core.tot_or_ghost -> Pulse_Syntax_Base.term -> unit -> Pulse_Syntax_Base.ctag FStar_Pervasives_Native.option -> @@ -24,7 +24,7 @@ let (check_effect : fun c -> match (c, eff) with | (FStar_Pervasives_Native.None, - FStar_TypeChecker_Core.E_Total) -> + FStarC_TypeChecker_Core.E_Total) -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac @@ -33,7 +33,7 @@ let (check_effect : (Pulse_Syntax_Base.STT_Atomic, e, ())))) | (FStar_Pervasives_Native.None, - FStar_TypeChecker_Core.E_Ghost) -> + FStarC_TypeChecker_Core.E_Ghost) -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac @@ -43,7 +43,7 @@ let (check_effect : ())))) | (FStar_Pervasives_Native.Some (Pulse_Syntax_Base.STT_Ghost), - FStar_TypeChecker_Core.E_Total) -> + FStarC_TypeChecker_Core.E_Total) -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac @@ -53,7 +53,7 @@ let (check_effect : ())))) | (FStar_Pervasives_Native.Some (Pulse_Syntax_Base.STT_Ghost), - FStar_TypeChecker_Core.E_Ghost) -> + FStarC_TypeChecker_Core.E_Ghost) -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac @@ -61,7 +61,7 @@ let (check_effect : FStar_Pervasives.Mkdtuple3 (Pulse_Syntax_Base.STT_Ghost, e, ())))) - | (uu___, FStar_TypeChecker_Core.E_Total) -> + | (uu___, FStarC_TypeChecker_Core.E_Total) -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Rewrite.ml b/src/ocaml/plugin/generated/Pulse_Checker_Rewrite.ml index 5b9d76d96..6a666e121 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Rewrite.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Rewrite.ml @@ -28,7 +28,7 @@ let (check_slprop_equiv_ext : match uu___1 with | (res, issues) -> let uu___2 = - FStar_Tactics_V2_Builtins.log_issues issues in + FStarC_Tactics_V2_Builtins.log_issues issues in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -230,8 +230,8 @@ let (check_slprop_equiv_tac : Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> - FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Zero)) in + FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -329,7 +329,7 @@ let (check_slprop_equiv_tac : (fun goal_typing -> let uu___6 = - FStar_Tactics_V2_Builtins.call_subtac_tm + FStarC_Tactics_V2_Builtins.call_subtac_tm r_env tac_tm u0 goal in @@ -372,7 +372,7 @@ let (check_slprop_equiv_tac : (Obj.repr (let uu___8 = - FStar_Tactics_V2_Builtins.log_issues + FStarC_Tactics_V2_Builtins.log_issues issues in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -498,7 +498,7 @@ let (check_slprop_equiv_tac : (fun uu___21 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat (Pulse_PP.text "Using tactic:") uu___20)) in diff --git a/src/ocaml/plugin/generated/Pulse_Checker_STApp.ml b/src/ocaml/plugin/generated/Pulse_Checker_STApp.ml index 9fdefc400..782238502 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_STApp.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_STApp.ml @@ -735,7 +735,7 @@ let (should_allow_ambiguous : (Obj.repr (let uu___5 = let uu___6 = - FStar_Tactics_V2_Builtins.top_env () in + FStarC_Tactics_V2_Builtins.top_env () in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -757,9 +757,9 @@ let (should_allow_ambiguous : (fun uu___7 -> FStar_Tactics_Effect.lift_div_tac (fun uu___8 -> - FStar_Reflection_V2_Builtins.lookup_typ + FStarC_Reflection_V2_Builtins.lookup_typ uu___7 - (FStar_Reflection_V2_Builtins.inspect_fv + (FStarC_Reflection_V2_Builtins.inspect_fv hfv))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -794,7 +794,7 @@ let (should_allow_ambiguous : Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___8 -> - FStar_Reflection_V2_Builtins.sigelt_attrs + FStarC_Reflection_V2_Builtins.sigelt_attrs se)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -846,7 +846,7 @@ let (apply_impure_function : FStar_Pervasives_Native.option -> Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term -> - FStar_TypeChecker_Core.tot_or_ghost -> + FStarC_TypeChecker_Core.tot_or_ghost -> unit -> (Pulse_Syntax_Base.binder * Pulse_Syntax_Base.qualifier @@ -1151,7 +1151,7 @@ let (apply_impure_function : (fun uu___8 -> Obj.magic - (FStar_Tactics_V2_Builtins.print + (FStarC_Tactics_V2_Builtins.print uu___8)) uu___8)) in Obj.magic @@ -1220,7 +1220,7 @@ let (apply_impure_function : && (eff_head = - FStar_TypeChecker_Core.E_Ghost) + FStarC_TypeChecker_Core.E_Ghost) then Obj.magic (Obj.repr @@ -1540,9 +1540,9 @@ let (apply_impure_function : if allow_ghost then - FStar_TypeChecker_Core.E_Ghost + FStarC_TypeChecker_Core.E_Ghost else - FStar_TypeChecker_Core.E_Total)) in + FStarC_TypeChecker_Core.E_Total)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2296,7 +2296,7 @@ let (apply_impure_function : uu___23 -> Obj.magic - (FStar_Tactics_V2_Builtins.print + (FStarC_Tactics_V2_Builtins.print uu___23)) uu___23)) in Obj.magic @@ -2735,7 +2735,7 @@ let (check : uu___12 -> Obj.magic - (FStar_Tactics_V2_Builtins.print + (FStarC_Tactics_V2_Builtins.print uu___12)) uu___12)) in Obj.magic diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Unreachable.ml b/src/ocaml/plugin/generated/Pulse_Checker_Unreachable.ml index f1e095f49..dd4e32ad9 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Unreachable.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Unreachable.ml @@ -46,9 +46,9 @@ let (check : (FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> Pulse_Syntax_Pure.wr - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "l_False"]))) rng)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -100,7 +100,7 @@ let (check : (eff, ff_typing) -> if eff <> - FStar_TypeChecker_Core.E_Total + FStarC_TypeChecker_Core.E_Total then Obj.magic (Obj.repr diff --git a/src/ocaml/plugin/generated/Pulse_Checker_WithInv.ml b/src/ocaml/plugin/generated/Pulse_Checker_WithInv.ml index 0c10a89e4..a8ebb5b6e 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_WithInv.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_WithInv.ml @@ -1,9 +1,9 @@ open Prims let (rt_recheck : Pulse_Typing_Env.env -> - FStar_Reflection_Types.env -> + FStarC_Reflection_Types.env -> FStar_Tactics_NamedView.term -> - FStar_Reflection_Types.typ -> + FStarC_Reflection_Types.typ -> unit -> ((unit, unit, unit) FStar_Reflection_Typing.tot_typing, unit) FStar_Tactics_Effect.tac_repr) @@ -14,8 +14,8 @@ let (rt_recheck : fun ty -> fun uu___ -> let uu___1 = - FStar_Tactics_V2_Builtins.core_check_term g e ty - FStar_TypeChecker_Core.E_Total in + FStarC_Tactics_V2_Builtins.core_check_term g e ty + FStarC_TypeChecker_Core.E_Total in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -34,7 +34,7 @@ let (rt_recheck : FStar_Tactics_Effect.lift_div_tac (fun uu___4 -> FStar_Reflection_Typing.T_Token - (g, e, (FStar_TypeChecker_Core.E_Total, ty), ())) + (g, e, (FStarC_TypeChecker_Core.E_Total, ty), ())) | (FStar_Pervasives_Native.None, uu___3) -> FStar_Tactics_V2_Derived.fail "Checker.WithInv: rt_recheck failed") @@ -165,7 +165,7 @@ let (add_remove_inverse : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -218,7 +218,7 @@ let (add_remove_inverse : FStar_Tactics_Effect.lift_div_tac (fun uu___11 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -247,7 +247,7 @@ let (add_remove_inverse : FStar_Tactics_Effect.lift_div_tac (fun uu___10 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat uu___7 uu___9)))) uu___7) in @@ -1035,7 +1035,7 @@ let (check0 : (fun uu___13 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -1099,7 +1099,7 @@ let (check0 : (fun uu___15 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -1132,7 +1132,7 @@ let (check0 : (fun uu___14 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat uu___11 uu___13)))) uu___11) in @@ -1444,7 +1444,7 @@ let (check0 : (fun uu___21 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -1476,7 +1476,7 @@ let (check0 : (fun uu___20 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat uu___19 (Pulse_PP.text "in the with_invariants annotated postcondition."))) in @@ -1536,7 +1536,7 @@ let (check0 : (Pulse_Typing_Env.fail_doc g (FStar_Pervasives_Native.Some - (FStar_Reflection_V1_Builtins.range_of_term + (FStarC_Reflection_V1_Builtins.range_of_term post)) uu___17)) uu___17))) @@ -1632,7 +1632,7 @@ let (check0 : (fun uu___20 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -1698,7 +1698,7 @@ let (check0 : (fun uu___23 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -1788,7 +1788,7 @@ let (check0 : (fun uu___18 -> - (FStar_Pprint.doc_of_string + (FStarC_Pprint.doc_of_string "Fatal: multiple annotated postconditions on with_invariant") :: uu___17)) in @@ -2180,7 +2180,7 @@ let (check0 : (fun uu___27 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -2244,7 +2244,7 @@ let (check0 : (fun uu___29 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text @@ -2277,7 +2277,7 @@ let (check0 : (fun uu___28 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat uu___25 uu___27)))) uu___25) in diff --git a/src/ocaml/plugin/generated/Pulse_Checker_WithLocal.ml b/src/ocaml/plugin/generated/Pulse_Checker_WithLocal.ml index dd1daed27..bb6715826 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_WithLocal.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_WithLocal.ml @@ -60,7 +60,7 @@ let (extend_post_hint_for_local : (fun g' -> let uu___2 = Pulse_Checker_Pure.core_check_term g' conjunct - FStar_TypeChecker_Core.E_Total + FStarC_TypeChecker_Core.E_Total Pulse_Syntax_Pure.tm_slprop in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -318,7 +318,7 @@ let (check : = Pulse_Checker_Pure.check_term g1 init - FStar_TypeChecker_Core.E_Total + FStarC_TypeChecker_Core.E_Total ty in Obj.magic (FStar_Tactics_Effect.tac_bind diff --git a/src/ocaml/plugin/generated/Pulse_Checker_WithLocalArray.ml b/src/ocaml/plugin/generated/Pulse_Checker_WithLocalArray.ml index 6b420f7ca..8882ded14 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_WithLocalArray.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_WithLocalArray.ml @@ -88,7 +88,7 @@ let (extend_post_hint : let uu___3 = Pulse_Checker_Pure.core_check_term g' conjunct - FStar_TypeChecker_Core.E_Total + FStarC_TypeChecker_Core.E_Total Pulse_Syntax_Pure.tm_slprop in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -436,7 +436,7 @@ let (check : Pulse_Checker_Pure.check_term g1 initializer1 - FStar_TypeChecker_Core.E_Total + FStarC_TypeChecker_Core.E_Total ty1 in Obj.magic (FStar_Tactics_Effect.tac_bind diff --git a/src/ocaml/plugin/generated/Pulse_Config.ml b/src/ocaml/plugin/generated/Pulse_Config.ml index e72b387f7..288be9f74 100644 --- a/src/ocaml/plugin/generated/Pulse_Config.ml +++ b/src/ocaml/plugin/generated/Pulse_Config.ml @@ -3,7 +3,7 @@ let (join_goals : Prims.bool) = false let (debug_flag : Prims.string -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun s -> - let uu___ = FStar_Tactics_V2_Builtins.ext_getv (Prims.strcat "pulse:" s) in + let uu___ = FStarC_Tactics_V2_Builtins.ext_getv (Prims.strcat "pulse:" s) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic diff --git a/src/ocaml/plugin/generated/Pulse_Elaborate_Core.ml b/src/ocaml/plugin/generated/Pulse_Elaborate_Core.ml index 95ae234cd..fb8e30958 100644 --- a/src/ocaml/plugin/generated/Pulse_Elaborate_Core.ml +++ b/src/ocaml/plugin/generated/Pulse_Elaborate_Core.ml @@ -2,7 +2,7 @@ open Prims let (elab_frame : Pulse_Syntax_Base.comp_st -> Pulse_Syntax_Base.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun c -> fun frame -> @@ -15,22 +15,22 @@ let (elab_frame : then Pulse_Reflection_Util.mk_frame_stt u ty pre (Pulse_Reflection_Util.mk_abs ty - FStar_Reflection_V2_Data.Q_Explicit post) frame e + FStarC_Reflection_V2_Data.Q_Explicit post) frame e else if Pulse_Syntax_Base.uu___is_C_STAtomic c then (let opened = Pulse_Syntax_Base.comp_inames c in Pulse_Reflection_Util.mk_frame_stt_atomic u ty opened pre (Pulse_Reflection_Util.mk_abs ty - FStar_Reflection_V2_Data.Q_Explicit post) frame e) + FStarC_Reflection_V2_Data.Q_Explicit post) frame e) else Pulse_Reflection_Util.mk_frame_stt_ghost u ty pre (Pulse_Reflection_Util.mk_abs ty - FStar_Reflection_V2_Data.Q_Explicit post) frame e + FStarC_Reflection_V2_Data.Q_Explicit post) frame e let (elab_sub : Pulse_Syntax_Base.comp_st -> Pulse_Syntax_Base.comp_st -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun c1 -> fun c2 -> @@ -40,10 +40,10 @@ let (elab_sub : let pre1 = Pulse_Syntax_Base.comp_pre c1 in let pre2 = Pulse_Syntax_Base.comp_pre c2 in let post1 = - Pulse_Reflection_Util.mk_abs ty FStar_Reflection_V2_Data.Q_Explicit + Pulse_Reflection_Util.mk_abs ty FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c1) in let post2 = - Pulse_Reflection_Util.mk_abs ty FStar_Reflection_V2_Data.Q_Explicit + Pulse_Reflection_Util.mk_abs ty FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c2) in if Pulse_Syntax_Base.uu___is_C_ST c1 then Pulse_Reflection_Util.mk_sub_stt u ty pre1 pre2 post1 post2 e @@ -63,8 +63,8 @@ let (elab_bind : Pulse_Syntax_Base.comp -> Pulse_Syntax_Base.comp -> (unit, unit, unit, unit, unit) Pulse_Typing.bind_comp -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun g -> fun x -> @@ -83,10 +83,10 @@ let (elab_bind : (Pulse_Syntax_Base.comp_u c2) t1 t2 (Pulse_Syntax_Base.comp_pre c1) (Pulse_Reflection_Util.mk_abs t1 - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c1)) (Pulse_Reflection_Util.mk_abs t2 - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c2)) e1 e2 | Pulse_Syntax_Base.C_STGhost (inames, uu___) -> Pulse_Reflection_Util.mk_bind_ghost @@ -94,10 +94,10 @@ let (elab_bind : (Pulse_Syntax_Base.comp_u c2) t1 t2 inames (Pulse_Syntax_Base.comp_pre c1) (Pulse_Reflection_Util.mk_abs t1 - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c1)) (Pulse_Reflection_Util.mk_abs t2 - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c2)) e1 e2 | Pulse_Syntax_Base.C_STAtomic (inames, obs1, uu___) -> let uu___1 = c2 in @@ -112,17 +112,17 @@ let (elab_bind : (Pulse_Syntax_Base.comp_inames c1) t1 t2 (Pulse_Syntax_Base.comp_pre c1) (Pulse_Reflection_Util.mk_abs t1 - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c1)) (Pulse_Reflection_Util.mk_abs t2 - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c2)) e1 e2) let (elab_lift : Pulse_Typing_Env.env -> Pulse_Syntax_Base.comp -> Pulse_Syntax_Base.comp -> (unit, unit, unit) Pulse_Typing.lift_comp -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun g -> fun c1 -> @@ -136,7 +136,7 @@ let (elab_lift : (Pulse_Syntax_Base.comp_u c1) (Pulse_Syntax_Base.comp_res c1) t (Pulse_Reflection_Util.mk_abs t - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c1)) e | Pulse_Typing.Lift_Observability (uu___, c, o2) -> let t = Pulse_Syntax_Base.comp_res c1 in @@ -148,7 +148,7 @@ let (elab_lift : (Pulse_Syntax_Base.comp_inames c1) t (Pulse_Syntax_Base.comp_pre c1) (Pulse_Reflection_Util.mk_abs t - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c1)) e | Pulse_Typing.Lift_Ghost_Neutral (uu___, uu___1, Prims.Mkdtuple2 (reveal_a, reveal_a_typing)) @@ -158,7 +158,7 @@ let (elab_lift : (Pulse_Syntax_Base.comp_u c1) t (Pulse_Syntax_Base.comp_pre c1) (Pulse_Reflection_Util.mk_abs t - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c1)) e reveal_a | Pulse_Typing.Lift_Neutral_Ghost (uu___, c) -> let t = Pulse_Syntax_Base.comp_res c1 in @@ -166,11 +166,11 @@ let (elab_lift : (Pulse_Syntax_Base.comp_u c1) t (Pulse_Syntax_Base.comp_pre c1) (Pulse_Reflection_Util.mk_abs t - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c1)) e let (intro_pure_tm : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.st_term) = fun p -> - let rng = FStar_Reflection_V2_Builtins.range_of_term p in + let rng = FStarC_Reflection_V2_Builtins.range_of_term p in Pulse_Typing.wtag (FStar_Pervasives_Native.Some Pulse_Syntax_Base.STT_Ghost) (Pulse_Syntax_Base.Tm_STApp @@ -184,36 +184,36 @@ let (intro_pure_tm : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.st_term) = Pulse_Syntax_Base.arg_qual = FStar_Pervasives_Native.None; Pulse_Syntax_Base.arg = (Pulse_Syntax_Pure.wr - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_Unit)) rng) + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_Unit)) rng) }) let (simple_arr : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun t1 -> fun t2 -> let b = - FStar_Reflection_V2_Builtins.pack_binder + FStarC_Reflection_V2_Builtins.pack_binder { - FStar_Reflection_V2_Data.sort2 = t1; - FStar_Reflection_V2_Data.qual = - FStar_Reflection_V2_Data.Q_Explicit; - FStar_Reflection_V2_Data.attrs = []; - FStar_Reflection_V2_Data.ppname2 = (FStar_Sealed.seal "x") + FStarC_Reflection_V2_Data.sort2 = t1; + FStarC_Reflection_V2_Data.qual = + FStarC_Reflection_V2_Data.Q_Explicit; + FStarC_Reflection_V2_Data.attrs = []; + FStarC_Reflection_V2_Data.ppname2 = (FStar_Sealed.seal "x") } in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Arrow + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Arrow (b, - (FStar_Reflection_V2_Builtins.pack_comp - (FStar_Reflection_V2_Data.C_Total t2)))) + (FStarC_Reflection_V2_Builtins.pack_comp + (FStarC_Reflection_V2_Data.C_Total t2)))) let (elab_st_sub : Pulse_Typing_Env.env -> Pulse_Syntax_Base.comp -> Pulse_Syntax_Base.comp -> (unit, unit, unit) Pulse_Typing.st_sub -> - (FStar_Reflection_Types.term, + (FStarC_Reflection_Types.term, (unit, unit, unit) FStar_Reflection_Typing.tot_typing) Prims.dtuple2) = @@ -224,7 +224,7 @@ let rec (elab_st_typing : Pulse_Syntax_Base.st_term -> Pulse_Syntax_Base.comp -> (unit, unit, unit) Pulse_Typing.st_typing -> - FStar_Reflection_Types.term) + FStarC_Reflection_Types.term) = fun g -> fun t -> @@ -262,7 +262,7 @@ let rec (elab_st_typing : -> let rp = Pulse_Reflection_Util.mk_abs ty - FStar_Reflection_V2_Data.Q_Explicit post in + FStarC_Reflection_V2_Data.Q_Explicit post in (match (c1, use_eq) with | (Pulse_Syntax_Base.STT, true) -> Pulse_Reflection_Util.mk_stt_return u ty t1 rp @@ -292,7 +292,7 @@ let rec (elab_st_typing : elab_bind uu___ x c1 c2 c3 bc e11 (Pulse_Reflection_Util.mk_abs_with_name (b.Pulse_Syntax_Base.binder_ppname).Pulse_Syntax_Base.name - ty1 FStar_Reflection_V2_Data.Q_Explicit + ty1 FStarC_Reflection_V2_Data.Q_Explicit (FStar_Reflection_Typing.close_term e21 x)) | Pulse_Typing.T_BindFn (uu___, uu___1, uu___2, c1, c2, b, x, e1_typing, _u, t_typing, @@ -355,8 +355,8 @@ let rec (elab_st_typing : -> let brs = elab_branches uu___ uu___5 uu___1 uu___2 sc uu___7 brty in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Match + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Match (sc, FStar_Pervasives_Native.None, brs)) | Pulse_Typing.T_IntroPure (uu___, p, uu___1, uu___2) -> let head = @@ -366,9 +366,9 @@ let rec (elab_st_typing : (Pulse_Reflection_Util.mk_pulse_lib_core_lid "intro_pure"))) FStar_Pervasives_Native.None p in let arg = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_Unit) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_Unit) in FStar_Reflection_V2_Derived.mk_app head [(arg, (Pulse_Elaborate_Pure.elab_qual @@ -377,13 +377,13 @@ let rec (elab_st_typing : (uu___, u, t1, p, uu___1, d_t, d_exists) -> Pulse_Reflection_Util.mk_elim_exists u t1 (Pulse_Reflection_Util.mk_abs t1 - FStar_Reflection_V2_Data.Q_Explicit p) + FStarC_Reflection_V2_Data.Q_Explicit p) | Pulse_Typing.T_IntroExists (uu___, u, b, p, e, uu___1, uu___2, uu___3) -> let rt = b.Pulse_Syntax_Base.binder_ty in Pulse_Reflection_Util.mk_intro_exists u rt (Pulse_Reflection_Util.mk_abs rt - FStar_Reflection_V2_Data.Q_Explicit p) e + FStarC_Reflection_V2_Data.Q_Explicit p) e | Pulse_Typing.T_While (uu___, inv, uu___1, uu___2, uu___3, cond_typing, body_typing) -> @@ -397,7 +397,7 @@ let rec (elab_st_typing : Pulse_Syntax_Base.ppname_default inv) body_typing in Pulse_Reflection_Util.mk_while (Pulse_Reflection_Util.mk_abs Pulse_Reflection_Util.bool_tm - FStar_Reflection_V2_Data.Q_Explicit inv) cond body + FStarC_Reflection_V2_Data.Q_Explicit inv) cond body | Pulse_Typing.T_Par (uu___, eL, cL, eR, cR, uu___1, uu___2, uu___3, eL_typing, eR_typing) @@ -413,9 +413,9 @@ let rec (elab_st_typing : let reR = elab_st_typing uu___ eR cR eR_typing in Pulse_Reflection_Util.mk_par ru raL raR rpreL (Pulse_Reflection_Util.mk_abs raL - FStar_Reflection_V2_Data.Q_Explicit rpostL) rpreR + FStarC_Reflection_V2_Data.Q_Explicit rpostL) rpreR (Pulse_Reflection_Util.mk_abs raR - FStar_Reflection_V2_Data.Q_Explicit rpostR) reL reR + FStarC_Reflection_V2_Data.Q_Explicit rpostR) reL reR | Pulse_Typing.T_Rewrite (uu___, p, q, uu___1, uu___2) -> Pulse_Reflection_Util.mk_rewrite p q | Pulse_Typing.T_WithLocal @@ -427,7 +427,7 @@ let rec (elab_st_typing : let rpre = Pulse_Syntax_Base.comp_pre c1 in let rpost = Pulse_Reflection_Util.mk_abs rret_t - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c1) in let rbody = elab_st_typing @@ -442,7 +442,7 @@ let rec (elab_st_typing : let rbody2 = Pulse_Reflection_Util.mk_abs (Pulse_Reflection_Util.mk_ref init_t) - FStar_Reflection_V2_Data.Q_Explicit rbody1 in + FStarC_Reflection_V2_Data.Q_Explicit rbody1 in Pulse_Reflection_Util.mk_withlocal rret_u init_t init rpre rret_t rpost rbody2 | Pulse_Typing.T_WithLocalArray @@ -454,7 +454,7 @@ let rec (elab_st_typing : let rpre = Pulse_Syntax_Base.comp_pre c1 in let rpost = Pulse_Reflection_Util.mk_abs rret_t - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c1) in let rbody = elab_st_typing @@ -469,7 +469,7 @@ let rec (elab_st_typing : let rbody2 = Pulse_Reflection_Util.mk_abs (Pulse_Reflection_Util.mk_array init_t) - FStar_Reflection_V2_Data.Q_Explicit rbody1 in + FStarC_Reflection_V2_Data.Q_Explicit rbody1 in Pulse_Reflection_Util.mk_withlocalarray rret_u init_t init len rpre rret_t rpost rbody2 | Pulse_Typing.T_Admit (uu___, c1, uu___1) -> @@ -480,7 +480,7 @@ let rec (elab_st_typing : Pulse_Syntax_Base.post = post;_} -> let rpost = Pulse_Reflection_Util.mk_abs res - FStar_Reflection_V2_Data.Q_Explicit post in + FStarC_Reflection_V2_Data.Q_Explicit post in (match c1 with | Pulse_Syntax_Base.C_ST uu___3 -> Pulse_Reflection_Util.mk_stt_admit u res pre rpost @@ -492,17 +492,17 @@ let rec (elab_st_typing : Pulse_Reflection_Util.mk_stt_ghost_admit u res pre rpost)) | Pulse_Typing.T_Unreachable (uu___, uu___1, uu___2, uu___3) -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - (FStar_Reflection_V2_Data.C_String + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + (FStarC_Reflection_V2_Data.C_String "IOU: elab_st_typing of T_Unreachable")) | Pulse_Typing.T_WithInv (uu___, uu___1, uu___2, uu___3, uu___4, uu___5, uu___6, uu___7, uu___8) -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - (FStar_Reflection_V2_Data.C_String + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + (FStarC_Reflection_V2_Data.C_String "IOU: elab_st_typing of T_WithInv")) and (elab_br : Pulse_Typing_Env.env -> @@ -513,7 +513,7 @@ and (elab_br : Pulse_Syntax_Base.pattern -> Pulse_Syntax_Base.st_term -> (unit, unit, unit, unit, unit, unit, unit) - Pulse_Typing.br_typing -> FStar_Reflection_V2_Data.branch) + Pulse_Typing.br_typing -> FStarC_Reflection_V2_Data.branch) = fun g -> fun c -> @@ -558,7 +558,7 @@ and (elab_branches : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.branch Prims.list -> (unit, unit, unit, unit, unit, unit) Pulse_Typing.brs_typing -> - FStar_Reflection_V2_Data.branch Prims.list) + FStarC_Reflection_V2_Data.branch Prims.list) = fun g -> fun c -> diff --git a/src/ocaml/plugin/generated/Pulse_Elaborate_Pure.ml b/src/ocaml/plugin/generated/Pulse_Elaborate_Pure.ml index 820cdc0bb..01d80e1fd 100644 --- a/src/ocaml/plugin/generated/Pulse_Elaborate_Pure.ml +++ b/src/ocaml/plugin/generated/Pulse_Elaborate_Pure.ml @@ -12,71 +12,71 @@ let op_let_Bang : | FStar_Pervasives_Native.Some x -> g x let (elab_qual : Pulse_Syntax_Base.qualifier FStar_Pervasives_Native.option -> - FStar_Reflection_V2_Data.aqualv) + FStarC_Reflection_V2_Data.aqualv) = fun uu___ -> match uu___ with - | FStar_Pervasives_Native.None -> FStar_Reflection_V2_Data.Q_Explicit + | FStar_Pervasives_Native.None -> FStarC_Reflection_V2_Data.Q_Explicit | FStar_Pervasives_Native.Some (Pulse_Syntax_Base.Implicit) -> - FStar_Reflection_V2_Data.Q_Implicit + FStarC_Reflection_V2_Data.Q_Implicit | FStar_Pervasives_Native.Some (Pulse_Syntax_Base.TcArg) -> - FStar_Reflection_V2_Data.Q_Meta - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Data.Q_Meta + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["FStar"; "Tactics"; "Typeclasses"; "tcresolve"]))) let (elab_observability : - Pulse_Syntax_Base.observability -> FStar_Reflection_Types.term) = + Pulse_Syntax_Base.observability -> FStarC_Reflection_Types.term) = fun uu___ -> match uu___ with | Pulse_Syntax_Base.Neutral -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.neutral_lid)) | Pulse_Syntax_Base.Observable -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.observable_lid)) let rec (elab_pat : - Pulse_Syntax_Base.pattern -> FStar_Reflection_V2_Data.pattern) = + Pulse_Syntax_Base.pattern -> FStarC_Reflection_V2_Data.pattern) = fun p -> let elab_fv f = - FStar_Reflection_V2_Builtins.pack_fv f.Pulse_Syntax_Base.fv_name in + FStarC_Reflection_V2_Builtins.pack_fv f.Pulse_Syntax_Base.fv_name in match p with | Pulse_Syntax_Base.Pat_Constant c -> - FStar_Reflection_V2_Data.Pat_Constant c + FStarC_Reflection_V2_Data.Pat_Constant c | Pulse_Syntax_Base.Pat_Var (v, ty) -> - FStar_Reflection_V2_Data.Pat_Var + FStarC_Reflection_V2_Data.Pat_Var (FStar_Reflection_Typing.sort_default, v) | Pulse_Syntax_Base.Pat_Cons (fv, vs) -> - FStar_Reflection_V2_Data.Pat_Cons + FStarC_Reflection_V2_Data.Pat_Cons ((elab_fv fv), FStar_Pervasives_Native.None, (Pulse_Common.map_dec p vs elab_sub_pat)) | Pulse_Syntax_Base.Pat_Dot_Term (FStar_Pervasives_Native.None) -> - FStar_Reflection_V2_Data.Pat_Dot_Term FStar_Pervasives_Native.None + FStarC_Reflection_V2_Data.Pat_Dot_Term FStar_Pervasives_Native.None | Pulse_Syntax_Base.Pat_Dot_Term (FStar_Pervasives_Native.Some t) -> - FStar_Reflection_V2_Data.Pat_Dot_Term + FStarC_Reflection_V2_Data.Pat_Dot_Term (FStar_Pervasives_Native.Some t) and (elab_sub_pat : (Pulse_Syntax_Base.pattern * Prims.bool) -> - (FStar_Reflection_V2_Data.pattern * Prims.bool)) + (FStarC_Reflection_V2_Data.pattern * Prims.bool)) = fun pi -> let uu___ = pi in match uu___ with | (p, i) -> ((elab_pat p), i) let (elab_pats : Pulse_Syntax_Base.pattern Prims.list -> - FStar_Reflection_V2_Data.pattern Prims.list) + FStarC_Reflection_V2_Data.pattern Prims.list) = fun ps -> FStar_List_Tot_Base.map elab_pat ps let (elab_st_comp : Pulse_Syntax_Base.st_comp -> - (FStar_Reflection_Types.universe * FStar_Reflection_Types.term * - FStar_Reflection_Types.term * FStar_Reflection_Types.term)) + (FStarC_Reflection_Types.universe * FStarC_Reflection_Types.term * + FStarC_Reflection_Types.term * FStarC_Reflection_Types.term)) = fun c -> ((c.Pulse_Syntax_Base.u), (c.Pulse_Syntax_Base.res), (c.Pulse_Syntax_Base.pre), (c.Pulse_Syntax_Base.post)) -let (elab_comp : Pulse_Syntax_Base.comp -> FStar_Reflection_Types.term) = +let (elab_comp : Pulse_Syntax_Base.comp -> FStarC_Reflection_Types.term) = fun c -> match c with | Pulse_Syntax_Base.C_Tot t -> t @@ -86,14 +86,14 @@ let (elab_comp : Pulse_Syntax_Base.comp -> FStar_Reflection_Types.term) = | (u, res, pre, post) -> Pulse_Reflection_Util.mk_stt_comp u res pre (Pulse_Reflection_Util.mk_abs res - FStar_Reflection_V2_Data.Q_Explicit post)) + FStarC_Reflection_V2_Data.Q_Explicit post)) | Pulse_Syntax_Base.C_STAtomic (inames, obs, c1) -> let uu___ = elab_st_comp c1 in (match uu___ with | (u, res, pre, post) -> let post1 = Pulse_Reflection_Util.mk_abs res - FStar_Reflection_V2_Data.Q_Explicit post in + FStarC_Reflection_V2_Data.Q_Explicit post in Pulse_Reflection_Util.mk_stt_atomic_comp (elab_observability obs) u res inames pre post1) | Pulse_Syntax_Base.C_STGhost (inames, c1) -> @@ -102,12 +102,12 @@ let (elab_comp : Pulse_Syntax_Base.comp -> FStar_Reflection_Types.term) = | (u, res, pre, post) -> Pulse_Reflection_Util.mk_stt_ghost_comp u res inames pre (Pulse_Reflection_Util.mk_abs res - FStar_Reflection_V2_Data.Q_Explicit post)) + FStarC_Reflection_V2_Data.Q_Explicit post)) let (elab_stt_equiv : - FStar_Reflection_Types.env -> + FStarC_Reflection_Types.env -> Pulse_Syntax_Base.comp -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv) @@ -123,16 +123,16 @@ let (elab_stt_equiv : pre post (Pulse_Syntax_Base.comp_res c) (Pulse_Syntax_Base.comp_pre c) (Pulse_Reflection_Util.mk_abs (Pulse_Syntax_Base.comp_res c) - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c)) (FStar_Reflection_Typing.Rel_refl (g, (Pulse_Syntax_Base.comp_res c), FStar_Reflection_Typing.R_Eq)) eq_pre eq_post let (elab_statomic_equiv : - FStar_Reflection_Types.env -> + FStarC_Reflection_Types.env -> Pulse_Syntax_Base.comp -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv) @@ -160,13 +160,13 @@ let (elab_statomic_equiv : (Pulse_Syntax_Base.comp_pre c) (Pulse_Reflection_Util.mk_abs (Pulse_Syntax_Base.comp_res c) - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c)) eq_pre eq_post let (elab_stghost_equiv : - FStar_Reflection_Types.env -> + FStarC_Reflection_Types.env -> Pulse_Syntax_Base.comp -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv) @@ -186,5 +186,5 @@ let (elab_stghost_equiv : (Pulse_Syntax_Base.comp_pre c) (Pulse_Reflection_Util.mk_abs (Pulse_Syntax_Base.comp_res c) - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c)) eq_pre eq_post \ No newline at end of file diff --git a/src/ocaml/plugin/generated/Pulse_Extract_Main.ml b/src/ocaml/plugin/generated/Pulse_Extract_Main.ml index 799376311..53d597536 100644 --- a/src/ocaml/plugin/generated/Pulse_Extract_Main.ml +++ b/src/ocaml/plugin/generated/Pulse_Extract_Main.ml @@ -30,7 +30,7 @@ let (debug : (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> - Obj.magic (FStar_Tactics_V2_Builtins.print uu___1)) + Obj.magic (FStarC_Tactics_V2_Builtins.print uu___1)) uu___1))) else Obj.magic @@ -246,18 +246,18 @@ let (is_erasable : | uu___2 -> false)) let (head_and_args : Pulse_Syntax_Base.term -> - (FStar_Reflection_Types.term * FStar_Reflection_V2_Data.argv Prims.list) + (FStarC_Reflection_Types.term * FStarC_Reflection_V2_Data.argv Prims.list) FStar_Pervasives_Native.option) = fun t -> FStar_Pervasives_Native.Some (FStar_Reflection_V2_Collect.collect_app_ln t) let (term_eq_string : - Prims.string -> FStar_Reflection_Types.term -> Prims.bool) = + Prims.string -> FStarC_Reflection_Types.term -> Prims.bool) = fun s -> fun t -> - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_Const (FStar_Reflection_V2_Data.C_String + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_Const (FStarC_Reflection_V2_Data.C_String s') -> s = s' | uu___ -> false let (push_binding : @@ -2829,7 +2829,7 @@ and (erase_ghost_subterms_branch : let (extract_dv_binder : Pulse_Syntax_Base.binder -> Pulse_Syntax_Base.qualifier FStar_Pervasives_Native.option -> - (FStar_Reflection_Types.binder, unit) FStar_Tactics_Effect.tac_repr) + (FStarC_Reflection_Types.binder, unit) FStar_Tactics_Effect.tac_repr) = fun b -> fun q -> @@ -2852,20 +2852,20 @@ let (extract_dv_binder : FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> { - FStar_Reflection_V2_Data.sort2 = + FStarC_Reflection_V2_Data.sort2 = (b.Pulse_Syntax_Base.binder_ty); - FStar_Reflection_V2_Data.qual = + FStarC_Reflection_V2_Data.qual = (match q with | FStar_Pervasives_Native.Some (Pulse_Syntax_Base.Implicit) -> - FStar_Reflection_V2_Data.Q_Implicit + FStarC_Reflection_V2_Data.Q_Implicit | FStar_Pervasives_Native.Some (Pulse_Syntax_Base.TcArg) -> - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit | FStar_Pervasives_Native.None -> - FStar_Reflection_V2_Data.Q_Explicit); - FStar_Reflection_V2_Data.attrs = uu___2; - FStar_Reflection_V2_Data.ppname2 = + FStarC_Reflection_V2_Data.Q_Explicit); + FStarC_Reflection_V2_Data.attrs = uu___2; + FStarC_Reflection_V2_Data.ppname2 = ((b.Pulse_Syntax_Base.binder_ppname).Pulse_Syntax_Base.name) })) in FStar_Tactics_Effect.tac_bind @@ -2881,11 +2881,11 @@ let (extract_dv_binder : (Prims.of_int (3))))) (Obj.magic uu___) (fun uu___1 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___2 -> FStar_Reflection_V2_Builtins.pack_binder uu___1)) + (fun uu___2 -> FStarC_Reflection_V2_Builtins.pack_binder uu___1)) let rec (extract_dv_pattern : Pulse_Typing_Env.env -> Pulse_Syntax_Base.pattern -> - ((Pulse_Typing_Env.env * FStar_Reflection_V2_Data.pattern * + ((Pulse_Typing_Env.env * FStarC_Reflection_V2_Data.pattern * Pulse_Typing_Env.binding Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -2901,7 +2901,7 @@ let rec (extract_dv_pattern : Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___1 -> - FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_fv fv.Pulse_Syntax_Base.fv_name)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2946,7 +2946,7 @@ let rec (extract_dv_pattern : match uu___2 with | (g1, pats1, bs) -> (g1, - (FStar_Reflection_V2_Data.Pat_Cons + (FStarC_Reflection_V2_Data.Pat_Cons (fv1, FStar_Pervasives_Native.None, (FStar_List_Tot_Base.map @@ -2958,7 +2958,7 @@ let rec (extract_dv_pattern : (Obj.repr (FStar_Tactics_Effect.lift_div_tac (fun uu___ -> - (g, (FStar_Reflection_V2_Data.Pat_Constant c), [])))) + (g, (FStarC_Reflection_V2_Data.Pat_Constant c), [])))) | Pulse_Syntax_Base.Pat_Var (ppname, sort) -> Obj.magic (Obj.repr @@ -3006,7 +3006,7 @@ let rec (extract_dv_pattern : match uu___2 with | (g1, (uu___4, x)) -> (g1, - (FStar_Reflection_V2_Data.Pat_Var + (FStarC_Reflection_V2_Data.Pat_Var (sort, ppname)), [(x, ty)]))))) uu___1))) | Pulse_Syntax_Base.Pat_Dot_Term t -> @@ -3014,12 +3014,12 @@ let rec (extract_dv_pattern : (Obj.repr (FStar_Tactics_Effect.lift_div_tac (fun uu___ -> - (g, (FStar_Reflection_V2_Data.Pat_Dot_Term t), []))))) + (g, (FStarC_Reflection_V2_Data.Pat_Dot_Term t), []))))) uu___1 uu___ and (extract_dv_patterns : Pulse_Typing_Env.env -> Pulse_Syntax_Base.pattern Prims.list -> - ((Pulse_Typing_Env.env * FStar_Reflection_V2_Data.pattern Prims.list * + ((Pulse_Typing_Env.env * FStarC_Reflection_V2_Data.pattern Prims.list * Pulse_Typing_Env.binding Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -3084,7 +3084,7 @@ and (extract_dv_patterns : uu___1 uu___ let (get_type_of_ref : Pulse_Syntax_Base.term -> - (FStar_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) + (FStarC_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) = fun p -> let uu___ = @@ -3138,15 +3138,15 @@ let (get_type_of_ref : (Prims.of_int (16))))) (Obj.magic uu___) (fun uu___1 -> (fun fail -> - match FStar_Reflection_V2_Builtins.inspect_ln p with - | FStar_Reflection_V2_Data.Tv_App (hd, (arg, uu___1)) -> + match FStarC_Reflection_V2_Builtins.inspect_ln p with + | FStarC_Reflection_V2_Data.Tv_App (hd, (arg, uu___1)) -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> arg))) | uu___1 -> Obj.magic (Obj.repr (fail ()))) uu___1) let (get_type_of_array : Pulse_Syntax_Base.term -> - (FStar_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) + (FStarC_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) = fun p -> let uu___ = @@ -3200,33 +3200,33 @@ let (get_type_of_array : (Prims.of_int (16))))) (Obj.magic uu___) (fun uu___1 -> (fun fail -> - match FStar_Reflection_V2_Builtins.inspect_ln p with - | FStar_Reflection_V2_Data.Tv_App (hd, (arg, uu___1)) -> + match FStarC_Reflection_V2_Builtins.inspect_ln p with + | FStarC_Reflection_V2_Data.Tv_App (hd, (arg, uu___1)) -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> arg))) | uu___1 -> Obj.magic (Obj.repr (fail ()))) uu___1) let (mk_abs : - FStar_Reflection_Types.binder -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.binder -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun b -> fun e -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Abs (b, e)) -let (unit_binder : Prims.string -> FStar_Reflection_Types.binder) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Abs (b, e)) +let (unit_binder : Prims.string -> FStarC_Reflection_Types.binder) = fun ppname -> - FStar_Reflection_V2_Builtins.pack_binder + FStarC_Reflection_V2_Builtins.pack_binder { - FStar_Reflection_V2_Data.sort2 = Pulse_Extract_CompilerLib.unit_ty; - FStar_Reflection_V2_Data.qual = FStar_Reflection_V2_Data.Q_Explicit; - FStar_Reflection_V2_Data.attrs = []; - FStar_Reflection_V2_Data.ppname2 = (FStar_Sealed.seal ppname) + FStarC_Reflection_V2_Data.sort2 = Pulse_Extract_CompilerLib.unit_ty; + FStarC_Reflection_V2_Data.qual = FStarC_Reflection_V2_Data.Q_Explicit; + FStarC_Reflection_V2_Data.attrs = []; + FStarC_Reflection_V2_Data.ppname2 = (FStar_Sealed.seal ppname) } let rec (extract_dv : Pulse_Typing_Env.env -> Pulse_Syntax_Base.st_term -> - (FStar_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) + (FStarC_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) = fun g -> fun p -> @@ -3716,7 +3716,7 @@ let rec (extract_dv : (fun uu___6 -> FStar_Tactics_Effect.lift_div_tac (fun uu___7 -> - FStar_Reflection_V2_Data.Tv_Match + FStarC_Reflection_V2_Data.Tv_Match (sc, FStar_Pervasives_Native.None, uu___6))) in FStar_Tactics_Effect.tac_bind @@ -3740,7 +3740,7 @@ let rec (extract_dv : (fun uu___5 -> FStar_Tactics_Effect.lift_div_tac (fun uu___6 -> - FStar_Reflection_V2_Builtins.pack_ln + FStarC_Reflection_V2_Builtins.pack_ln uu___5))) | Pulse_Syntax_Base.Tm_While { Pulse_Syntax_Base.invariant = uu___3; @@ -3795,9 +3795,9 @@ let rec (extract_dv : (fun uu___7 -> Pulse_Extract_CompilerLib.mk_meta_monadic (FStar_Reflection_V2_Derived.mk_app - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Pulse"; "Lib"; "Dv"; @@ -3806,12 +3806,12 @@ let rec (extract_dv : (unit_binder "while_cond") condition1), - FStar_Reflection_V2_Data.Q_Explicit); + FStarC_Reflection_V2_Data.Q_Explicit); ((mk_abs (unit_binder "while_body") body1), - FStar_Reflection_V2_Data.Q_Explicit)]))))) + FStarC_Reflection_V2_Data.Q_Explicit)]))))) uu___6)) | Pulse_Syntax_Base.Tm_Par { Pulse_Syntax_Base.pre1 = uu___3; @@ -3868,9 +3868,9 @@ let rec (extract_dv : (fun uu___9 -> Pulse_Extract_CompilerLib.mk_meta_monadic (FStar_Reflection_V2_Derived.mk_app - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Pulse"; "Lib"; "Dv"; @@ -3879,12 +3879,12 @@ let rec (extract_dv : (unit_binder "par_b1") body11), - FStar_Reflection_V2_Data.Q_Explicit); + FStarC_Reflection_V2_Data.Q_Explicit); ((mk_abs (unit_binder "par_b2") body21), - FStar_Reflection_V2_Data.Q_Explicit)]))))) + FStarC_Reflection_V2_Data.Q_Explicit)]))))) uu___8)) | Pulse_Syntax_Base.Tm_WithLocal { Pulse_Syntax_Base.binder2 = binder; @@ -3943,7 +3943,7 @@ let rec (extract_dv : FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> (uu___8, - FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Data.Q_Implicit))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -3967,7 +3967,7 @@ let rec (extract_dv : (fun uu___8 -> [uu___7; (initializer1, - FStar_Reflection_V2_Data.Q_Explicit)])) in + FStarC_Reflection_V2_Data.Q_Explicit)])) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -3990,9 +3990,9 @@ let rec (extract_dv : FStar_Tactics_Effect.lift_div_tac (fun uu___7 -> FStar_Reflection_V2_Derived.mk_app - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Pulse"; "Lib"; "Reference"; @@ -4145,7 +4145,7 @@ let rec (extract_dv : FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> (uu___8, - FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Data.Q_Implicit))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -4169,9 +4169,9 @@ let rec (extract_dv : (fun uu___8 -> [uu___7; (initializer1, - FStar_Reflection_V2_Data.Q_Explicit); + FStarC_Reflection_V2_Data.Q_Explicit); (length, - FStar_Reflection_V2_Data.Q_Explicit)])) in + FStarC_Reflection_V2_Data.Q_Explicit)])) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -4194,9 +4194,9 @@ let rec (extract_dv : FStar_Tactics_Effect.lift_div_tac (fun uu___7 -> FStar_Reflection_V2_Derived.mk_app - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Pulse"; "Lib"; "Array"; @@ -4305,17 +4305,17 @@ let rec (extract_dv : (fun uu___3 -> Pulse_Extract_CompilerLib.mk_meta_monadic (FStar_Reflection_V2_Derived.mk_app - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Pulse"; "Lib"; "Dv"; "unreachable"]))) [((Pulse_Syntax_Base.comp_res c), - FStar_Reflection_V2_Data.Q_Explicit); + FStarC_Reflection_V2_Data.Q_Explicit); (Pulse_Reflection_Util.unit_tm, - FStar_Reflection_V2_Data.Q_Explicit)]))) + FStarC_Reflection_V2_Data.Q_Explicit)]))) | Pulse_Syntax_Base.Tm_WithInv { Pulse_Syntax_Base.name1 = uu___3; Pulse_Syntax_Base.body6 = body; @@ -4324,7 +4324,7 @@ let rec (extract_dv : and (extract_dv_branch : Pulse_Typing_Env.env -> Pulse_Syntax_Base.branch -> - (FStar_Reflection_V2_Data.branch, unit) FStar_Tactics_Effect.tac_repr) + (FStarC_Reflection_V2_Data.branch, unit) FStar_Tactics_Effect.tac_repr) = fun g -> fun b -> @@ -4421,7 +4421,7 @@ and (extract_dv_branch : let (extract_pulse_dv : Pulse_Typing_Env.env -> Pulse_Syntax_Base.st_term -> - (FStar_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) + (FStarC_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) = fun g -> fun p -> @@ -4460,8 +4460,8 @@ let (extract_pulse_dv : let rec (extract_dv_recursive : Pulse_Typing_Env.env -> Pulse_Syntax_Base.st_term -> - FStar_Reflection_Types.fv -> - (FStar_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) + FStarC_Reflection_Types.fv -> + (FStarC_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) = fun uu___2 -> fun uu___1 -> @@ -4602,8 +4602,8 @@ let rec (extract_dv_recursive : [FStar_Reflection_Typing.DT (Prims.int_zero, (Pulse_Syntax_Pure.wr - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar rec_name)) FStar_Range.range_0))])) in FStar_Tactics_Effect.tac_bind diff --git a/src/ocaml/plugin/generated/Pulse_Lib_Core_Typing.ml b/src/ocaml/plugin/generated/Pulse_Lib_Core_Typing.ml index 4d5d1fffb..969ff589f 100644 --- a/src/ocaml/plugin/generated/Pulse_Lib_Core_Typing.ml +++ b/src/ocaml/plugin/generated/Pulse_Lib_Core_Typing.ml @@ -1,10 +1,10 @@ open Prims let (return_post_with_eq : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_V2_Data.var -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_V2_Data.var -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -14,22 +14,22 @@ let (return_post_with_eq : let x_tm = FStar_Reflection_Typing.var_as_term x in let eq2_tm = Pulse_Reflection_Util.mk_eq2 u a x_tm e in let p_app_x = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (p, (x_tm, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (p, (x_tm, FStarC_Reflection_V2_Data.Q_Explicit))) in let star_tm = Pulse_Reflection_Util.mk_star p_app_x (Pulse_Reflection_Util.mk_pure eq2_tm) in Pulse_Reflection_Util.mk_abs a - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (FStar_Reflection_Typing.subst_term star_tm [FStar_Reflection_Typing.ND (x, Prims.int_zero)]) let (return_stt_comp : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_V2_Data.var -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_V2_Data.var -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -37,35 +37,35 @@ let (return_stt_comp : fun p -> fun x -> Pulse_Reflection_Util.mk_stt_comp u a - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (p, (e, FStar_Reflection_V2_Data.Q_Explicit)))) + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (p, (e, FStarC_Reflection_V2_Data.Q_Explicit)))) (return_post_with_eq u a e p x) let (return_stt_noeq_comp : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> fun x -> fun p -> Pulse_Reflection_Util.mk_stt_comp u a - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (p, (x, FStar_Reflection_V2_Data.Q_Explicit)))) p -let (neutral_fv : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (p, (x, FStarC_Reflection_V2_Data.Q_Explicit)))) p +let (neutral_fv : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.neutral_lid)) let (return_stt_atomic_comp : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_V2_Data.var -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_V2_Data.var -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -74,15 +74,15 @@ let (return_stt_atomic_comp : fun x -> Pulse_Reflection_Util.mk_stt_atomic_comp neutral_fv u a Pulse_Syntax_Pure.tm_emp_inames - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (p, (e, FStar_Reflection_V2_Data.Q_Explicit)))) + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (p, (e, FStarC_Reflection_V2_Data.Q_Explicit)))) (return_post_with_eq u a e p x) let (return_stt_atomic_noeq_comp : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -90,15 +90,15 @@ let (return_stt_atomic_noeq_comp : fun p -> Pulse_Reflection_Util.mk_stt_atomic_comp neutral_fv u a Pulse_Syntax_Pure.tm_emp_inames - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (p, (x, FStar_Reflection_V2_Data.Q_Explicit)))) p + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (p, (x, FStarC_Reflection_V2_Data.Q_Explicit)))) p let (return_stt_ghost_comp : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_V2_Data.var -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_V2_Data.var -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -107,15 +107,15 @@ let (return_stt_ghost_comp : fun x -> Pulse_Reflection_Util.mk_stt_ghost_comp u a Pulse_Syntax_Pure.tm_emp_inames - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (p, (e, FStar_Reflection_V2_Data.Q_Explicit)))) + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (p, (e, FStarC_Reflection_V2_Data.Q_Explicit)))) (return_post_with_eq u a e p x) let (return_stt_ghost_noeq_comp : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -123,14 +123,14 @@ let (return_stt_ghost_noeq_comp : fun p -> Pulse_Reflection_Util.mk_stt_ghost_comp u a Pulse_Syntax_Pure.tm_emp_inames - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (p, (x, FStar_Reflection_V2_Data.Q_Explicit)))) p + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (p, (x, FStarC_Reflection_V2_Data.Q_Explicit)))) p let (while_typing : - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> @@ -141,12 +141,12 @@ let (while_typing : fun cond -> fun body -> fun uu___ -> fun uu___1 -> fun uu___2 -> Prims.admit () let (par_post : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_V2_Data.var -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_V2_Data.var -> FStarC_Reflection_Types.term) = fun u -> fun aL -> @@ -156,25 +156,25 @@ let (par_post : fun x -> let x_tm = FStar_Reflection_Typing.var_as_term x in let postL1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (postL, ((Pulse_Reflection_Util.mk_fst u u aL aR x_tm), - FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Data.Q_Explicit))) in let postR1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (postR, ((Pulse_Reflection_Util.mk_snd u u aL aR x_tm), - FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Data.Q_Explicit))) in let post = Pulse_Reflection_Util.mk_star postL1 postR1 in FStar_Reflection_Typing.subst_term post [FStar_Reflection_Typing.ND (x, Prims.int_zero)] let (elim_exists_post_body : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_V2_Data.var -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_V2_Data.var -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -183,16 +183,16 @@ let (elim_exists_post_body : let x_tm = FStar_Reflection_Typing.var_as_term x in let reveal_x = Pulse_Reflection_Util.mk_reveal u a x_tm in let post = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (p, (reveal_x, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (p, (reveal_x, FStarC_Reflection_V2_Data.Q_Explicit))) in FStar_Reflection_Typing.subst_term post [FStar_Reflection_Typing.ND (x, Prims.int_zero)] let (elim_exists_post : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_V2_Data.var -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_V2_Data.var -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -200,16 +200,16 @@ let (elim_exists_post : fun x -> let erased_a = Pulse_Reflection_Util.mk_erased u a in Pulse_Reflection_Util.mk_abs erased_a - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (elim_exists_post_body u a p x) let intro_exists_erased_typing : 'uuuuu 'uuuuu1 'uuuuu2 'uuuuu3 . 'uuuuu -> 'uuuuu1 -> 'uuuuu2 -> 'uuuuu3 = fun uu___ -> fun uu___1 -> fun uu___2 -> Prims.admit () let (with_local_body_pre : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun pre -> fun a -> @@ -220,42 +220,42 @@ let (with_local_body_pre : Pulse_Syntax_Pure.tm_full_perm init in Pulse_Reflection_Util.mk_star pre pts_to let (with_local_body_post_body : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun post -> fun a -> fun x -> let exists_tm = Pulse_Reflection_Util.mk_exists - (FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Zero) a + (FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero) a (Pulse_Reflection_Util.mk_abs a - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Reflection_Util.mk_pts_to a x Pulse_Syntax_Pure.tm_full_perm (FStar_Reflection_Typing.bound_var Prims.int_zero))) in Pulse_Reflection_Util.mk_star post exists_tm let (with_local_body_post : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun post -> fun a -> fun ret_t -> fun x -> Pulse_Reflection_Util.mk_abs ret_t - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (with_local_body_post_body post a x) let (with_localarray_body_pre : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun pre -> fun a -> @@ -277,9 +277,9 @@ let (with_localarray_body_pre : Pulse_Reflection_Util.mk_star pre (Pulse_Reflection_Util.mk_star pts_to len_vp) let (with_localarray_body_post_body : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun post -> fun a -> @@ -289,21 +289,21 @@ let (with_localarray_body_post_body : (Pulse_Reflection_Util.mk_seq Pulse_Reflection_Util.uzero a) (Pulse_Reflection_Util.mk_abs (Pulse_Reflection_Util.mk_seq Pulse_Reflection_Util.uzero a) - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Reflection_Util.mk_array_pts_to a arr Pulse_Syntax_Pure.tm_full_perm (FStar_Reflection_Typing.bound_var Prims.int_zero))) in Pulse_Reflection_Util.mk_star post exists_tm let (with_localarray_body_post : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun post -> fun a -> fun ret_t -> fun arr -> Pulse_Reflection_Util.mk_abs ret_t - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (with_localarray_body_post_body post a arr) \ No newline at end of file diff --git a/src/ocaml/plugin/generated/Pulse_Main.ml b/src/ocaml/plugin/generated/Pulse_Main.ml index 5be8512f5..28a49a159 100644 --- a/src/ocaml/plugin/generated/Pulse_Main.ml +++ b/src/ocaml/plugin/generated/Pulse_Main.ml @@ -29,7 +29,7 @@ let (debug_main : (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> - Obj.magic (FStar_Tactics_V2_Builtins.print uu___1)) + Obj.magic (FStarC_Tactics_V2_Builtins.print uu___1)) uu___1))) else Obj.magic @@ -129,11 +129,11 @@ let rec (mk_abs : bv.Pulse_Syntax_Base.bv_index).Pulse_Syntax_Base.range1))))) uu___1) let (set_impl : - FStar_Reflection_Types.env -> - FStar_Reflection_Types.typ FStar_Pervasives_Native.option -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.typ FStar_Pervasives_Native.option -> (unit, unit) FStar_Reflection_Typing.sigelt_for -> Prims.bool -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit) FStar_Reflection_Typing.sigelt_for) = fun g -> @@ -187,7 +187,7 @@ let (check_fndefn : (FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> FStar_Pervasives_Native.fst - (FStar_Reflection_V2_Builtins.inspect_ident + (FStarC_Reflection_V2_Builtins.inspect_ident fn_d.Pulse_Syntax_Base.id))) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -286,7 +286,7 @@ let (check_fndefn : fun uu___7 -> FStar_Pervasives_Native.fst - (FStar_Reflection_V2_Builtins.inspect_ident + (FStarC_Reflection_V2_Builtins.inspect_ident id))) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -901,7 +901,7 @@ let (check_fndefn : = let uu___23 = - FStar_Tactics_V2_Builtins.ext_getv + FStarC_Tactics_V2_Builtins.ext_getv "pulse:elab_derivation" in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1025,7 +1025,7 @@ let (check_fndefn : = Pulse_Extract_Main.extract_dv_recursive g body2 - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_fv (FStar_List_Tot_Base.append cur_module [nm_orig])) in @@ -1144,7 +1144,7 @@ let (check_fndefn : uu___29 -> FStar_Pervasives_Native.fst - (FStar_Reflection_V2_Builtins.inspect_ident + (FStarC_Reflection_V2_Builtins.inspect_ident id))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1338,9 +1338,9 @@ let (check_fndefn : (fun uu___32 -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - (FStar_Reflection_V2_Data.C_String + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + (FStarC_Reflection_V2_Data.C_String nm_orig)))) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1374,24 +1374,24 @@ let (check_fndefn : (fun uu___33 -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["FStar"; "Pervasives"; "Native"; "Mktuple2"]))), - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - (FStar_Reflection_V2_Data.C_String + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + (FStarC_Reflection_V2_Data.C_String "pulse.recursive"))), - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), (nm, - FStar_Reflection_V2_Data.Q_Explicit))))) in + FStarC_Reflection_V2_Data.Q_Explicit))))) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1427,19 +1427,19 @@ let (check_fndefn : -> Pulse_RuntimeUtils.add_attribute se - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["FStar"; "Pervasives"; "noextract_to"]))), - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - (FStar_Reflection_V2_Data.C_String + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + (FStarC_Reflection_V2_Data.C_String "krml"))), - FStar_Reflection_V2_Data.Q_Explicit)))))) in + FStarC_Reflection_V2_Data.Q_Explicit)))))) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1998,7 +1998,7 @@ let (check_fndecl : (FStar_Tactics_Effect.lift_div_tac (fun uu___5 -> FStar_Pervasives_Native.fst - (FStar_Reflection_V2_Builtins.inspect_ident + (FStarC_Reflection_V2_Builtins.inspect_ident id))) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2493,7 +2493,7 @@ let (main' : (fun uu___2 -> (fun uu___2 -> Obj.magic - (FStar_Tactics_V2_Builtins.print + (FStarC_Tactics_V2_Builtins.print uu___2)) uu___2))) else Obj.magic @@ -2678,7 +2678,7 @@ let (join_smt_goals : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> let uu___1 = let uu___2 = - let uu___3 = FStar_Tactics_V2_Builtins.top_env () in + let uu___3 = FStarC_Tactics_V2_Builtins.top_env () in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -2710,7 +2710,7 @@ let (join_smt_goals : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = then Obj.magic (Obj.repr - (FStar_Tactics_V2_Builtins.dump + (FStarC_Tactics_V2_Builtins.dump "PULSE: Goals before join")) else Obj.magic @@ -2784,7 +2784,7 @@ let (join_smt_goals : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = (fun uu___6 -> (fun uu___6 -> Obj.magic - (FStar_Tactics_V2_Builtins.set_goals + (FStarC_Tactics_V2_Builtins.set_goals uu___6)) uu___6) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2802,7 +2802,7 @@ let (join_smt_goals : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = (fun uu___5 -> (fun uu___5 -> let uu___6 = - FStar_Tactics_V2_Builtins.set_smt_goals + FStarC_Tactics_V2_Builtins.set_smt_goals [] in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2876,7 +2876,7 @@ let (join_smt_goals : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = let uu___9 = let uu___10 = FStar_Tactics_V2_Derived.repeat - FStar_Tactics_V2_Builtins.join in + FStarC_Tactics_V2_Builtins.join in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -3124,7 +3124,7 @@ let (join_smt_goals : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = = let uu___15 = - FStar_Tactics_V2_Builtins.top_env + FStarC_Tactics_V2_Builtins.top_env () in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3185,7 +3185,7 @@ let (join_smt_goals : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = then Obj.magic (Obj.repr - (FStar_Tactics_V2_Builtins.dump + (FStarC_Tactics_V2_Builtins.dump "PULSE: Goals after join")) else Obj.magic @@ -3228,7 +3228,7 @@ let (join_smt_goals : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = uu___5))) uu___4))) uu___2) let (parse_guard_policy : Prims.string -> - (FStar_Tactics_Types.guard_policy, unit) FStar_Tactics_Effect.tac_repr) + (FStarC_Tactics_Types.guard_policy, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> (fun s -> @@ -3236,23 +3236,23 @@ let (parse_guard_policy : | "Goal" -> Obj.magic (FStar_Tactics_Effect.lift_div_tac - (fun uu___ -> FStar_Tactics_Types.Goal)) + (fun uu___ -> FStarC_Tactics_Types.Goal)) | "SMT" -> Obj.magic (FStar_Tactics_Effect.lift_div_tac - (fun uu___ -> FStar_Tactics_Types.SMT)) + (fun uu___ -> FStarC_Tactics_Types.SMT)) | "SMTSync" -> Obj.magic (FStar_Tactics_Effect.lift_div_tac - (fun uu___ -> FStar_Tactics_Types.SMTSync)) + (fun uu___ -> FStarC_Tactics_Types.SMTSync)) | "Force" -> Obj.magic (FStar_Tactics_Effect.lift_div_tac - (fun uu___ -> FStar_Tactics_Types.Force)) + (fun uu___ -> FStarC_Tactics_Types.Force)) | "ForceSMT" -> Obj.magic (FStar_Tactics_Effect.lift_div_tac - (fun uu___ -> FStar_Tactics_Types.ForceSMT)) + (fun uu___ -> FStarC_Tactics_Types.ForceSMT)) | uu___ -> Obj.magic (FStar_Tactics_V1_Derived.fail @@ -3267,8 +3267,8 @@ let (main : match uu___ with | (g, expected_t) -> let uu___1 = - FStar_Tactics_V2_Builtins.set_guard_policy - FStar_Tactics_Types.ForceSMT in + FStarC_Tactics_V2_Builtins.set_guard_policy + FStarC_Tactics_Types.ForceSMT in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -3286,7 +3286,7 @@ let (main : let uu___3 = let uu___4 = let uu___5 = - FStar_Tactics_V2_Builtins.ext_getv + FStarC_Tactics_V2_Builtins.ext_getv "pulse:guard_policy" in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3323,7 +3323,7 @@ let (main : (Obj.repr (let uu___6 = let uu___7 = - FStar_Tactics_V2_Builtins.ext_getv + FStarC_Tactics_V2_Builtins.ext_getv "pulse:guard_policy" in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3369,7 +3369,7 @@ let (main : (fun uu___7 -> (fun uu___7 -> Obj.magic - (FStar_Tactics_V2_Builtins.set_guard_policy + (FStarC_Tactics_V2_Builtins.set_guard_policy uu___7)) uu___7))) else Obj.magic @@ -3416,7 +3416,7 @@ let (main : let uu___6 = let uu___7 = let uu___8 = - FStar_Tactics_V2_Builtins.ext_getv + FStarC_Tactics_V2_Builtins.ext_getv "pulse:join" in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3510,7 +3510,7 @@ let (check_pulse_core : let uu___1 = let uu___2 = let uu___3 = - FStar_Tactics_V2_Builtins.ext_getv "pulse:dump_on_failure" in + FStarC_Tactics_V2_Builtins.ext_getv "pulse:dump_on_failure" in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -3544,7 +3544,7 @@ let (check_pulse_core : then Obj.magic (Obj.repr - (FStar_Tactics_V2_Builtins.set_dump_on_failure + (FStarC_Tactics_V2_Builtins.set_dump_on_failure false)) else Obj.magic @@ -3601,7 +3601,7 @@ let (check_pulse_core : let uu___6 = let uu___7 = let uu___8 = - FStar_Tactics_V2_Builtins.range_to_string + FStarC_Tactics_V2_Builtins.range_to_string range in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3674,7 +3674,7 @@ let (check_pulse_core : (fun uu___8 -> FStar_Issue.mk_issue_doc "Error" - [FStar_Pprint.arbitrary_string + [FStarC_Pprint.arbitrary_string uu___7] (FStar_Pervasives_Native.Some range) @@ -3701,7 +3701,7 @@ let (check_pulse_core : (fun uu___6 -> (fun i -> let uu___6 = - FStar_Tactics_V2_Builtins.log_issues + FStarC_Tactics_V2_Builtins.log_issues [i] in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3755,7 +3755,7 @@ let (check_pulse : file_name line col))) uu___1) (env, expected_t) let _ = - FStar_Tactics_Native.register_tactic "Pulse.Main.check_pulse" + FStarC_Tactics_Native.register_tactic "Pulse.Main.check_pulse" (Prims.of_int (9)) (fun psc -> fun ncb -> @@ -3763,43 +3763,43 @@ let _ = fun args -> FStar_Tactics_InterpFuns.mk_tactic_interpretation_8 "Pulse.Main.check_pulse (plugin)" - (FStar_Tactics_Native.from_tactic_8 check_pulse) - (FStar_Syntax_Embeddings.e_list - FStar_Syntax_Embeddings.e_string) - (FStar_Syntax_Embeddings.e_list - (FStar_Syntax_Embeddings.e_tuple2 - FStar_Syntax_Embeddings.e_string - FStar_Syntax_Embeddings.e_string)) - FStar_Syntax_Embeddings.e_string - FStar_Syntax_Embeddings.e_string FStar_Syntax_Embeddings.e_int - FStar_Syntax_Embeddings.e_int FStar_Syntax_Embeddings.e_string - (FStar_Syntax_Embeddings.e_tuple2 + (FStarC_Tactics_Native.from_tactic_8 check_pulse) + (FStarC_Syntax_Embeddings.e_list + FStarC_Syntax_Embeddings.e_string) + (FStarC_Syntax_Embeddings.e_list + (FStarC_Syntax_Embeddings.e_tuple2 + FStarC_Syntax_Embeddings.e_string + FStarC_Syntax_Embeddings.e_string)) + FStarC_Syntax_Embeddings.e_string + FStarC_Syntax_Embeddings.e_string FStarC_Syntax_Embeddings.e_int + FStarC_Syntax_Embeddings.e_int FStarC_Syntax_Embeddings.e_string + (FStarC_Syntax_Embeddings.e_tuple2 FStar_Reflection_V2_Embeddings.e_env - (FStar_Syntax_Embeddings.e_option + (FStarC_Syntax_Embeddings.e_option FStar_Reflection_V2_Embeddings.e_term)) - (FStar_Syntax_Embeddings.e_tuple3 - (FStar_Syntax_Embeddings.e_list - (FStar_Syntax_Embeddings.e_tuple3 - FStar_Syntax_Embeddings.e_bool + (FStarC_Syntax_Embeddings.e_tuple3 + (FStarC_Syntax_Embeddings.e_list + (FStarC_Syntax_Embeddings.e_tuple3 + FStarC_Syntax_Embeddings.e_bool FStar_Reflection_V2_Embeddings.e_sigelt - (FStar_Syntax_Embeddings.e_option - (FStar_Syntax_Embeddings.e_tuple2 - FStar_Syntax_Embeddings.e_string + (FStarC_Syntax_Embeddings.e_option + (FStarC_Syntax_Embeddings.e_tuple2 + FStarC_Syntax_Embeddings.e_string FStar_Reflection_V2_Embeddings.e_term)))) - (FStar_Syntax_Embeddings.e_tuple3 - FStar_Syntax_Embeddings.e_bool + (FStarC_Syntax_Embeddings.e_tuple3 + FStarC_Syntax_Embeddings.e_bool FStar_Reflection_V2_Embeddings.e_sigelt - (FStar_Syntax_Embeddings.e_option - (FStar_Syntax_Embeddings.e_tuple2 - FStar_Syntax_Embeddings.e_string + (FStarC_Syntax_Embeddings.e_option + (FStarC_Syntax_Embeddings.e_tuple2 + FStarC_Syntax_Embeddings.e_string FStar_Reflection_V2_Embeddings.e_term))) - (FStar_Syntax_Embeddings.e_list - (FStar_Syntax_Embeddings.e_tuple3 - FStar_Syntax_Embeddings.e_bool + (FStarC_Syntax_Embeddings.e_list + (FStarC_Syntax_Embeddings.e_tuple3 + FStarC_Syntax_Embeddings.e_bool FStar_Reflection_V2_Embeddings.e_sigelt - (FStar_Syntax_Embeddings.e_option - (FStar_Syntax_Embeddings.e_tuple2 - FStar_Syntax_Embeddings.e_string + (FStarC_Syntax_Embeddings.e_option + (FStarC_Syntax_Embeddings.e_tuple2 + FStarC_Syntax_Embeddings.e_string FStar_Reflection_V2_Embeddings.e_term))))) psc ncb us args) let check_pulse_after_desugar : 'a . 'a -> FStar_Reflection_Typing.dsl_tac_t @@ -3818,49 +3818,49 @@ let check_pulse_after_desugar : 'a . 'a -> FStar_Reflection_Typing.dsl_tac_t (Pulse_RuntimeUtils.unembed_pulse_decl decl)))) uu___1) (env, expected_t) let _ = - FStar_Tactics_Native.register_tactic "Pulse.Main.check_pulse_after_desugar" + FStarC_Tactics_Native.register_tactic "Pulse.Main.check_pulse_after_desugar" (Prims.of_int (4)) (fun psc -> fun ncb -> fun us -> fun args -> - FStar_Syntax_Embeddings.debug_wrap + FStarC_Syntax_Embeddings.debug_wrap "Pulse.Main.check_pulse_after_desugar" (fun _ -> match args with | (tv_0, _)::args_tail -> (FStar_Tactics_InterpFuns.mk_tactic_interpretation_2 "Pulse.Main.check_pulse_after_desugar (plugin)" - (FStar_Tactics_Native.from_tactic_2 + (FStarC_Tactics_Native.from_tactic_2 check_pulse_after_desugar) - (FStar_Syntax_Embeddings.mk_any_emb tv_0) - (FStar_Syntax_Embeddings.e_tuple2 + (FStarC_Syntax_Embeddings.mk_any_emb tv_0) + (FStarC_Syntax_Embeddings.e_tuple2 FStar_Reflection_V2_Embeddings.e_env - (FStar_Syntax_Embeddings.e_option + (FStarC_Syntax_Embeddings.e_option FStar_Reflection_V2_Embeddings.e_term)) - (FStar_Syntax_Embeddings.e_tuple3 - (FStar_Syntax_Embeddings.e_list - (FStar_Syntax_Embeddings.e_tuple3 - FStar_Syntax_Embeddings.e_bool + (FStarC_Syntax_Embeddings.e_tuple3 + (FStarC_Syntax_Embeddings.e_list + (FStarC_Syntax_Embeddings.e_tuple3 + FStarC_Syntax_Embeddings.e_bool FStar_Reflection_V2_Embeddings.e_sigelt - (FStar_Syntax_Embeddings.e_option - (FStar_Syntax_Embeddings.e_tuple2 - FStar_Syntax_Embeddings.e_string + (FStarC_Syntax_Embeddings.e_option + (FStarC_Syntax_Embeddings.e_tuple2 + FStarC_Syntax_Embeddings.e_string FStar_Reflection_V2_Embeddings.e_term)))) - (FStar_Syntax_Embeddings.e_tuple3 - FStar_Syntax_Embeddings.e_bool + (FStarC_Syntax_Embeddings.e_tuple3 + FStarC_Syntax_Embeddings.e_bool FStar_Reflection_V2_Embeddings.e_sigelt - (FStar_Syntax_Embeddings.e_option - (FStar_Syntax_Embeddings.e_tuple2 - FStar_Syntax_Embeddings.e_string + (FStarC_Syntax_Embeddings.e_option + (FStarC_Syntax_Embeddings.e_tuple2 + FStarC_Syntax_Embeddings.e_string FStar_Reflection_V2_Embeddings.e_term))) - (FStar_Syntax_Embeddings.e_list - (FStar_Syntax_Embeddings.e_tuple3 - FStar_Syntax_Embeddings.e_bool + (FStarC_Syntax_Embeddings.e_list + (FStarC_Syntax_Embeddings.e_tuple3 + FStarC_Syntax_Embeddings.e_bool FStar_Reflection_V2_Embeddings.e_sigelt - (FStar_Syntax_Embeddings.e_option - (FStar_Syntax_Embeddings.e_tuple2 - FStar_Syntax_Embeddings.e_string + (FStarC_Syntax_Embeddings.e_option + (FStarC_Syntax_Embeddings.e_tuple2 + FStarC_Syntax_Embeddings.e_string FStar_Reflection_V2_Embeddings.e_term))))) psc ncb us) args_tail | _ -> failwith "arity mismatch")) \ No newline at end of file diff --git a/src/ocaml/plugin/generated/Pulse_PP.ml b/src/ocaml/plugin/generated/Pulse_PP.ml index cc49a3f99..b6806d739 100644 --- a/src/ocaml/plugin/generated/Pulse_PP.ml +++ b/src/ocaml/plugin/generated/Pulse_PP.ml @@ -1,24 +1,24 @@ open Prims -let (text : Prims.string -> FStar_Pprint.document) = +let (text : Prims.string -> FStarC_Pprint.document) = fun s -> - FStar_Pprint.flow (FStar_Pprint.break_ Prims.int_one) - (FStar_Pprint.words s) -let (indent : FStar_Pprint.document -> FStar_Pprint.document) = + FStarC_Pprint.flow (FStarC_Pprint.break_ Prims.int_one) + (FStarC_Pprint.words s) +let (indent : FStarC_Pprint.document -> FStarC_Pprint.document) = fun d -> - FStar_Pprint.nest (Prims.of_int (2)) - (FStar_Pprint.op_Hat_Hat FStar_Pprint.hardline (FStar_Pprint.align d)) + FStarC_Pprint.nest (Prims.of_int (2)) + (FStarC_Pprint.op_Hat_Hat FStarC_Pprint.hardline (FStarC_Pprint.align d)) type 'a printable = { - pp: 'a -> (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr } + pp: 'a -> (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr } let __proj__Mkprintable__item__pp : 'a . 'a printable -> - 'a -> (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr + 'a -> (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr = fun projectee -> match projectee with | { pp;_} -> pp let pp : 'a . 'a printable -> - 'a -> (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr + 'a -> (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr = fun projectee -> match projectee with | { pp = pp1;_} -> pp1 let show_from_pp : 'a . 'a printable -> 'a Pulse_Show.tac_showable = fun d -> @@ -39,7 +39,7 @@ let show_from_pp : 'a . 'a printable -> 'a Pulse_Show.tac_showable = (Prims.of_int (32))))) (Obj.magic uu___) (fun uu___1 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___2 -> FStar_Pprint.render uu___1))) + (fun uu___2 -> FStarC_Pprint.render uu___1))) } let from_show : 'a . 'a Pulse_Show.tac_showable -> 'a printable = fun d -> @@ -60,7 +60,7 @@ let from_show : 'a . 'a Pulse_Show.tac_showable -> 'a printable = (Prims.of_int (42))))) (Obj.magic uu___) (fun uu___1 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___2 -> FStar_Pprint.arbitrary_string uu___1))) + (fun uu___2 -> FStarC_Pprint.arbitrary_string uu___1))) } let (printable_string : Prims.string printable) = from_show Pulse_Show.tac_showable_string @@ -84,7 +84,7 @@ let printable_option : Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac - (fun uu___2 -> FStar_Pprint.doc_of_string "None"))) + (fun uu___2 -> FStarC_Pprint.doc_of_string "None"))) | FStar_Pervasives_Native.Some v -> Obj.magic (Obj.repr @@ -104,16 +104,16 @@ let printable_option : (fun uu___3 -> FStar_Tactics_Effect.lift_div_tac (fun uu___4 -> - FStar_Pprint.op_Hat_Slash_Hat - (FStar_Pprint.doc_of_string "Some") + FStarC_Pprint.op_Hat_Slash_Hat + (FStarC_Pprint.doc_of_string "Some") uu___3))))) uu___1) } let rec separate_map : 'a . - FStar_Pprint.document -> - ('a -> (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) -> + FStarC_Pprint.document -> + ('a -> (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) -> 'a Prims.list -> - (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr + (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr = fun uu___2 -> fun uu___1 -> @@ -126,7 +126,7 @@ let rec separate_map : Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac - (fun uu___ -> FStar_Pprint.empty))) + (fun uu___ -> FStarC_Pprint.empty))) | x::[] -> Obj.magic (Obj.repr (f x)) | x::xs -> Obj.magic @@ -169,7 +169,7 @@ let rec separate_map : (fun uu___4 -> FStar_Tactics_Effect.lift_div_tac (fun uu___5 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat sep uu___4)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -193,7 +193,7 @@ let rec separate_map : (fun uu___3 -> FStar_Tactics_Effect.lift_div_tac (fun uu___4 -> - FStar_Pprint.op_Hat_Hat uu___1 + FStarC_Pprint.op_Hat_Hat uu___1 uu___3)))) uu___1)))) uu___2 uu___1 uu___ let printable_list : 'a . 'a printable -> 'a Prims.list printable = @@ -201,7 +201,7 @@ let printable_list : 'a . 'a printable -> 'a Prims.list printable = { pp = (fun l -> - let uu___1 = separate_map FStar_Pprint.comma (pp uu___) l in + let uu___1 = separate_map FStarC_Pprint.comma (pp uu___) l in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -215,7 +215,7 @@ let printable_list : 'a . 'a printable -> 'a Prims.list printable = (Prims.of_int (51))))) (Obj.magic uu___1) (fun uu___2 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___3 -> FStar_Pprint.brackets uu___2))) + (fun uu___3 -> FStarC_Pprint.brackets uu___2))) } let (printable_term : Pulse_Syntax_Base.term printable) = { pp = Pulse_Syntax_Printer.term_to_doc } @@ -232,12 +232,12 @@ let (printable_env : Pulse_Typing_Env.env printable) = let (pp_effect_annot : Pulse_Syntax_Base.effect_annot printable) = from_show Pulse_Show.tac_showable_effect_annot let (pp_record : - (Prims.string * FStar_Pprint.document) Prims.list -> - (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) + (Prims.string * FStarC_Pprint.document) Prims.list -> + (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) = fun flds -> let uu___ = - separate_map (FStar_Pprint.doc_of_string ";") + separate_map (FStarC_Pprint.doc_of_string ";") (fun uu___1 -> (fun uu___1 -> Obj.magic @@ -245,11 +245,11 @@ let (pp_record : (fun uu___2 -> match uu___1 with | (s, d) -> - FStar_Pprint.group - (FStar_Pprint.op_Hat_Slash_Hat - (FStar_Pprint.doc_of_string s) - (FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.equals (FStar_Pprint.group d)))))) + FStarC_Pprint.group + (FStarC_Pprint.op_Hat_Slash_Hat + (FStarC_Pprint.doc_of_string s) + (FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.equals (FStarC_Pprint.group d)))))) uu___1) flds in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -263,7 +263,7 @@ let (pp_record : (Obj.magic uu___) (fun flds_doc -> FStar_Tactics_Effect.lift_div_tac - (fun uu___1 -> FStar_Pprint.braces (FStar_Pprint.align flds_doc))) + (fun uu___1 -> FStarC_Pprint.braces (FStarC_Pprint.align flds_doc))) let (printable_post_hint_t : Pulse_Typing.post_hint_t printable) = { pp = @@ -613,8 +613,8 @@ let printable_tuple2 : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma uu___8)) in + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___8)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -635,7 +635,7 @@ let printable_tuple2 : (fun uu___7 -> FStar_Tactics_Effect.lift_div_tac (fun uu___8 -> - FStar_Pprint.op_Hat_Hat uu___5 uu___7)))) + FStarC_Pprint.op_Hat_Hat uu___5 uu___7)))) uu___5) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -651,7 +651,7 @@ let printable_tuple2 : (Obj.magic uu___3) (fun uu___4 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___5 -> FStar_Pprint.parens uu___4))) + (fun uu___5 -> FStarC_Pprint.parens uu___4))) } let printable_tuple3 : 'a 'b 'c . @@ -725,8 +725,8 @@ let printable_tuple3 : (fun uu___13 -> FStar_Tactics_Effect.lift_div_tac (fun uu___14 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___13)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -750,7 +750,7 @@ let printable_tuple3 : (fun uu___12 -> FStar_Tactics_Effect.lift_div_tac (fun uu___13 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___10 uu___12)))) uu___10) in FStar_Tactics_Effect.tac_bind @@ -772,8 +772,8 @@ let printable_tuple3 : (fun uu___9 -> FStar_Tactics_Effect.lift_div_tac (fun uu___10 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma uu___9)) in + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___9)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -794,7 +794,7 @@ let printable_tuple3 : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.op_Hat_Hat uu___6 + FStarC_Pprint.op_Hat_Hat uu___6 uu___8)))) uu___6) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -810,7 +810,7 @@ let printable_tuple3 : (Obj.magic uu___4) (fun uu___5 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___6 -> FStar_Pprint.parens uu___5))) + (fun uu___6 -> FStarC_Pprint.parens uu___5))) } let printable_tuple4 : 'a 'b 'c 'd . @@ -914,8 +914,8 @@ let printable_tuple4 : FStar_Tactics_Effect.lift_div_tac (fun uu___19 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___18)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -941,7 +941,7 @@ let printable_tuple4 : FStar_Tactics_Effect.lift_div_tac (fun uu___18 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___15 uu___17)))) uu___15) in @@ -966,8 +966,8 @@ let printable_tuple4 : (fun uu___14 -> FStar_Tactics_Effect.lift_div_tac (fun uu___15 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___14)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -991,7 +991,7 @@ let printable_tuple4 : (fun uu___13 -> FStar_Tactics_Effect.lift_div_tac (fun uu___14 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___11 uu___13)))) uu___11) in FStar_Tactics_Effect.tac_bind @@ -1013,8 +1013,8 @@ let printable_tuple4 : (fun uu___10 -> FStar_Tactics_Effect.lift_div_tac (fun uu___11 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma uu___10)) in + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___10)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1037,7 +1037,7 @@ let printable_tuple4 : (fun uu___9 -> FStar_Tactics_Effect.lift_div_tac (fun uu___10 -> - FStar_Pprint.op_Hat_Hat uu___7 + FStarC_Pprint.op_Hat_Hat uu___7 uu___9)))) uu___7) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1053,7 +1053,7 @@ let printable_tuple4 : (Obj.magic uu___5) (fun uu___6 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___7 -> FStar_Pprint.parens uu___6))) + (fun uu___7 -> FStarC_Pprint.parens uu___6))) } let printable_tuple5 : 'a 'b 'c 'd 'e . @@ -1194,8 +1194,8 @@ let printable_tuple5 : (fun uu___24 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___23)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1224,7 +1224,7 @@ let printable_tuple5 : (fun uu___23 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___20 uu___22)))) uu___20) in @@ -1252,8 +1252,8 @@ let printable_tuple5 : (fun uu___20 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___19)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1282,7 +1282,7 @@ let printable_tuple5 : (fun uu___19 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___16 uu___18)))) uu___16) in @@ -1307,8 +1307,8 @@ let printable_tuple5 : (fun uu___15 -> FStar_Tactics_Effect.lift_div_tac (fun uu___16 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___15)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1332,7 +1332,7 @@ let printable_tuple5 : (fun uu___14 -> FStar_Tactics_Effect.lift_div_tac (fun uu___15 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___12 uu___14)))) uu___12) in FStar_Tactics_Effect.tac_bind @@ -1356,8 +1356,8 @@ let printable_tuple5 : (fun uu___11 -> FStar_Tactics_Effect.lift_div_tac (fun uu___12 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma uu___11)) in + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___11)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1380,7 +1380,7 @@ let printable_tuple5 : (fun uu___10 -> FStar_Tactics_Effect.lift_div_tac (fun uu___11 -> - FStar_Pprint.op_Hat_Hat uu___8 + FStarC_Pprint.op_Hat_Hat uu___8 uu___10)))) uu___8) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1396,7 +1396,7 @@ let printable_tuple5 : (Obj.magic uu___6) (fun uu___7 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___8 -> FStar_Pprint.parens uu___7))) + (fun uu___8 -> FStarC_Pprint.parens uu___7))) } let printable_tuple6 : 'a 'b 'c 'd 'e 'f . @@ -1579,8 +1579,8 @@ let printable_tuple6 : (fun uu___29 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___28)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1609,7 +1609,7 @@ let printable_tuple6 : (fun uu___28 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___25 uu___27)))) uu___25) in @@ -1639,8 +1639,8 @@ let printable_tuple6 : (fun uu___25 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___24)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1669,7 +1669,7 @@ let printable_tuple6 : (fun uu___24 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___21 uu___23)))) uu___21) in @@ -1699,8 +1699,8 @@ let printable_tuple6 : fun uu___21 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___20)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1728,7 +1728,7 @@ let printable_tuple6 : (fun uu___20 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___17 uu___19)))) uu___17) in @@ -1753,8 +1753,8 @@ let printable_tuple6 : (fun uu___16 -> FStar_Tactics_Effect.lift_div_tac (fun uu___17 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___16)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1778,7 +1778,7 @@ let printable_tuple6 : (fun uu___15 -> FStar_Tactics_Effect.lift_div_tac (fun uu___16 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___13 uu___15)))) uu___13) in FStar_Tactics_Effect.tac_bind @@ -1802,8 +1802,8 @@ let printable_tuple6 : (fun uu___12 -> FStar_Tactics_Effect.lift_div_tac (fun uu___13 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma uu___12)) in + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___12)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1826,7 +1826,7 @@ let printable_tuple6 : (fun uu___11 -> FStar_Tactics_Effect.lift_div_tac (fun uu___12 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___9 uu___11)))) uu___9) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1842,7 +1842,7 @@ let printable_tuple6 : (Obj.magic uu___7) (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___9 -> FStar_Pprint.parens uu___8))) + (fun uu___9 -> FStarC_Pprint.parens uu___8))) } let printable_tuple7 : 'a 'b 'c 'd 'e 'f 'g . @@ -2062,8 +2062,8 @@ let printable_tuple7 : (fun uu___34 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___33)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2092,7 +2092,7 @@ let printable_tuple7 : (fun uu___33 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___30 uu___32)))) uu___30) in @@ -2122,8 +2122,8 @@ let printable_tuple7 : (fun uu___30 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___29)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2152,7 +2152,7 @@ let printable_tuple7 : (fun uu___29 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___26 uu___28)))) uu___26) in @@ -2182,8 +2182,8 @@ let printable_tuple7 : (fun uu___26 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___25)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2212,7 +2212,7 @@ let printable_tuple7 : (fun uu___25 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___22 uu___24)))) uu___22) in @@ -2243,8 +2243,8 @@ let printable_tuple7 : (fun uu___22 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___21)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2273,7 +2273,7 @@ let printable_tuple7 : (fun uu___21 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___18 uu___20)))) uu___18) in @@ -2298,8 +2298,8 @@ let printable_tuple7 : (fun uu___17 -> FStar_Tactics_Effect.lift_div_tac (fun uu___18 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___17)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2323,7 +2323,7 @@ let printable_tuple7 : (fun uu___16 -> FStar_Tactics_Effect.lift_div_tac (fun uu___17 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___14 uu___16)))) uu___14) in @@ -2348,8 +2348,8 @@ let printable_tuple7 : (fun uu___13 -> FStar_Tactics_Effect.lift_div_tac (fun uu___14 -> - FStar_Pprint.op_Hat_Slash_Hat - FStar_Pprint.comma uu___13)) in + FStarC_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.comma uu___13)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2372,7 +2372,7 @@ let printable_tuple7 : (fun uu___12 -> FStar_Tactics_Effect.lift_div_tac (fun uu___13 -> - FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Hat uu___10 uu___12)))) uu___10) in FStar_Tactics_Effect.tac_bind @@ -2393,5 +2393,5 @@ let printable_tuple7 : (Obj.magic uu___8) (fun uu___9 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___10 -> FStar_Pprint.parens uu___9))) + (fun uu___10 -> FStarC_Pprint.parens uu___9))) } \ No newline at end of file diff --git a/src/ocaml/plugin/generated/Pulse_Readback.ml b/src/ocaml/plugin/generated/Pulse_Readback.ml index 557b98b74..0716324d2 100644 --- a/src/ocaml/plugin/generated/Pulse_Readback.ml +++ b/src/ocaml/plugin/generated/Pulse_Readback.ml @@ -23,13 +23,13 @@ let op_let_Question : | FStar_Pervasives_Native.None -> FStar_Pervasives_Native.None | FStar_Pervasives_Native.Some x -> g x let (readback_observability : - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> Pulse_Syntax_Base.observability FStar_Pervasives_Native.option) = fun t -> - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_FVar fv -> - let fv_lid = FStar_Reflection_V2_Builtins.inspect_fv fv in + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_FVar fv -> + let fv_lid = FStarC_Reflection_V2_Builtins.inspect_fv fv in if fv_lid = Pulse_Reflection_Util.observable_lid then FStar_Pervasives_Native.Some Pulse_Syntax_Base.Observable else @@ -38,31 +38,31 @@ let (readback_observability : else FStar_Pervasives_Native.None | uu___ -> FStar_Pervasives_Native.None let (try_readback_st_comp : - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> Pulse_Syntax_Base.comp FStar_Pervasives_Native.option) = fun t -> let uu___ = FStar_Reflection_V2_Collect.collect_app_ln t in match uu___ with | (hd, args) -> - (match FStar_Reflection_V2_Builtins.inspect_ln hd with - | FStar_Reflection_V2_Data.Tv_UInst (fv, u::[]) -> - let fv_lid = FStar_Reflection_V2_Builtins.inspect_fv fv in + (match FStarC_Reflection_V2_Builtins.inspect_ln hd with + | FStarC_Reflection_V2_Data.Tv_UInst (fv, u::[]) -> + let fv_lid = FStarC_Reflection_V2_Builtins.inspect_fv fv in if fv_lid = Pulse_Reflection_Util.stt_lid then (match args with | res::pre::post::[] -> - (match FStar_Reflection_V2_Builtins.inspect_ln + (match FStarC_Reflection_V2_Builtins.inspect_ln (FStar_Pervasives_Native.fst post) with - | FStar_Reflection_V2_Data.Tv_Abs (b, body) -> + | FStarC_Reflection_V2_Data.Tv_Abs (b, body) -> let uu___1 = - FStar_Reflection_V2_Builtins.inspect_binder b in + FStarC_Reflection_V2_Builtins.inspect_binder b in (match uu___1 with - | { FStar_Reflection_V2_Data.sort2 = sort; - FStar_Reflection_V2_Data.qual = aq; - FStar_Reflection_V2_Data.attrs = attrs; - FStar_Reflection_V2_Data.ppname2 = uu___2;_} -> + | { FStarC_Reflection_V2_Data.sort2 = sort; + FStarC_Reflection_V2_Data.qual = aq; + FStarC_Reflection_V2_Data.attrs = attrs; + FStarC_Reflection_V2_Data.ppname2 = uu___2;_} -> let res' = FStar_Pervasives_Native.fst res in let pre' = FStar_Pervasives_Native.fst pre in let post' = body in @@ -82,17 +82,17 @@ let (try_readback_st_comp : then (match args with | res::obs::opened::pre::post::[] -> - (match FStar_Reflection_V2_Builtins.inspect_ln + (match FStarC_Reflection_V2_Builtins.inspect_ln (FStar_Pervasives_Native.fst post) with - | FStar_Reflection_V2_Data.Tv_Abs (b, body) -> + | FStarC_Reflection_V2_Data.Tv_Abs (b, body) -> let uu___2 = - FStar_Reflection_V2_Builtins.inspect_binder b in + FStarC_Reflection_V2_Builtins.inspect_binder b in (match uu___2 with - | { FStar_Reflection_V2_Data.sort2 = uu___3; - FStar_Reflection_V2_Data.qual = aq; - FStar_Reflection_V2_Data.attrs = attrs; - FStar_Reflection_V2_Data.ppname2 = uu___4;_} + | { FStarC_Reflection_V2_Data.sort2 = uu___3; + FStarC_Reflection_V2_Data.qual = aq; + FStarC_Reflection_V2_Data.attrs = attrs; + FStarC_Reflection_V2_Data.ppname2 = uu___4;_} -> let res' = FStar_Pervasives_Native.fst res in op_let_Question @@ -121,17 +121,17 @@ let (try_readback_st_comp : then (match args with | res::inames::pre::post::[] -> - (match FStar_Reflection_V2_Builtins.inspect_ln + (match FStarC_Reflection_V2_Builtins.inspect_ln (FStar_Pervasives_Native.fst post) with - | FStar_Reflection_V2_Data.Tv_Abs (b, body) -> + | FStarC_Reflection_V2_Data.Tv_Abs (b, body) -> let uu___3 = - FStar_Reflection_V2_Builtins.inspect_binder b in + FStarC_Reflection_V2_Builtins.inspect_binder b in (match uu___3 with - | { FStar_Reflection_V2_Data.sort2 = uu___4; - FStar_Reflection_V2_Data.qual = aq; - FStar_Reflection_V2_Data.attrs = attrs; - FStar_Reflection_V2_Data.ppname2 = uu___5;_} + | { FStarC_Reflection_V2_Data.sort2 = uu___4; + FStarC_Reflection_V2_Data.qual = aq; + FStarC_Reflection_V2_Data.attrs = attrs; + FStarC_Reflection_V2_Data.ppname2 = uu___5;_} -> let res' = FStar_Pervasives_Native.fst res in let inames' = @@ -153,7 +153,7 @@ let (try_readback_st_comp : else FStar_Pervasives_Native.None | uu___1 -> FStar_Pervasives_Native.None) let (readback_comp : - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> Pulse_Syntax_Base.comp FStar_Pervasives_Native.option) = fun t -> diff --git a/src/ocaml/plugin/generated/Pulse_Recursion.ml b/src/ocaml/plugin/generated/Pulse_Recursion.ml index 00397646e..b95e4b222 100644 --- a/src/ocaml/plugin/generated/Pulse_Recursion.ml +++ b/src/ocaml/plugin/generated/Pulse_Recursion.ml @@ -136,18 +136,18 @@ let (debug_main : (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> - Obj.magic (FStar_Tactics_V2_Builtins.print uu___1)) + Obj.magic (FStarC_Tactics_V2_Builtins.print uu___1)) uu___1))) else Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac (fun uu___1 -> ())))) uu___1 uu___ -let (string_as_term : Prims.string -> FStar_Reflection_Types.term) = +let (string_as_term : Prims.string -> FStarC_Reflection_Types.term) = fun s -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - (FStar_Reflection_V2_Data.C_String s)) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + (FStarC_Reflection_V2_Data.C_String s)) let (freshen_binder : FStar_Tactics_NamedView.binder -> FStar_Tactics_NamedView.binder) = fun b -> @@ -162,7 +162,7 @@ let (freshen_binder : FStar_Tactics_NamedView.attrs = (b.FStar_Tactics_NamedView.attrs) } let (subst_binder_typ : - FStar_Syntax_Syntax.subst_t -> + FStarC_Syntax_Syntax.subst_t -> FStar_Tactics_NamedView.binder -> FStar_Tactics_NamedView.binder) = fun s -> @@ -171,7 +171,7 @@ let (subst_binder_typ : FStar_Tactics_NamedView.uniq = (b.FStar_Tactics_NamedView.uniq); FStar_Tactics_NamedView.ppname = (b.FStar_Tactics_NamedView.ppname); FStar_Tactics_NamedView.sort = - (FStar_Reflection_V2_Builtins.subst_term s + (FStarC_Reflection_V2_Builtins.subst_term s b.FStar_Tactics_NamedView.sort); FStar_Tactics_NamedView.qual = (b.FStar_Tactics_NamedView.qual); FStar_Tactics_NamedView.attrs = (b.FStar_Tactics_NamedView.attrs) @@ -186,8 +186,8 @@ let rec (freshen_binders : let bs2 = FStar_List_Tot_Base.map (subst_binder_typ - [FStar_Syntax_Syntax.NT - ((FStar_Reflection_V2_Builtins.pack_namedv + [FStarC_Syntax_Syntax.NT + ((FStarC_Reflection_V2_Builtins.pack_namedv (FStar_Tactics_V2_SyntaxCoercions.binder_to_namedv b)), (FStar_Tactics_V2_SyntaxCoercions.binder_to_term b'))]) bs1 in @@ -460,16 +460,16 @@ let (add_knot : uu___12 -> fun b -> - FStar_Reflection_V2_Builtins.pack_namedv + FStarC_Reflection_V2_Builtins.pack_namedv { - FStar_Reflection_V2_Data.uniq + FStarC_Reflection_V2_Data.uniq = (b.FStar_Tactics_NamedView.uniq); - FStar_Reflection_V2_Data.sort + FStarC_Reflection_V2_Data.sort = (FStar_Sealed.seal b.FStar_Tactics_NamedView.sort); - FStar_Reflection_V2_Data.ppname + FStarC_Reflection_V2_Data.ppname = (b.FStar_Tactics_NamedView.ppname) })) in @@ -516,7 +516,7 @@ let (add_knot : (fun uu___13 -> - FStar_Syntax_Syntax.NT + FStarC_Syntax_Syntax.NT ((binder_to_r_namedv b1), (FStar_Tactics_V2_SyntaxCoercions.binder_to_term @@ -670,52 +670,52 @@ let (add_knot : (last.FStar_Tactics_NamedView.sort); FStar_Tactics_NamedView.qual = - FStar_Reflection_V2_Data.Q_Explicit; + FStarC_Reflection_V2_Data.Q_Explicit; FStar_Tactics_NamedView.attrs = [] }, - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["FStar"; "Range"; "labeled"]))), - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["FStar"; "Range"; "range_0"]))), - FStar_Reflection_V2_Data.Q_Explicit)))), - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - (FStar_Reflection_V2_Data.C_String + FStarC_Reflection_V2_Data.Q_Explicit)))), + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + (FStarC_Reflection_V2_Data.C_String "Could not prove termination"))), - FStar_Reflection_V2_Data.Q_Explicit)))), - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Data.Q_Explicit)))), + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "precedes"]))), - ((FStar_Reflection_V2_Builtins.subst_term + ((FStarC_Reflection_V2_Builtins.subst_term prime_subst (FStar_Pervasives_Native.__proj__Some__item__v meas)), - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), ((FStar_Pervasives_Native.__proj__Some__item__v meas), - FStar_Reflection_V2_Data.Q_Explicit)))), - FStar_Reflection_V2_Data.Q_Explicit))))))); + FStarC_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit))))))); FStar_Tactics_NamedView.qual = (last.FStar_Tactics_NamedView.qual); @@ -763,7 +763,7 @@ let (add_knot : (fun uu___15 -> - FStar_Reflection_V2_Builtins.subst_term + FStarC_Reflection_V2_Builtins.subst_term prime_subst r_res)) in Obj.magic @@ -824,8 +824,8 @@ let (add_knot : let uu___16 = if - FStar_Reflection_V2_Data.uu___is_Tv_Unknown - (FStar_Reflection_V2_Builtins.inspect_ln + FStarC_Reflection_V2_Data.uu___is_Tv_Unknown + (FStarC_Reflection_V2_Builtins.inspect_ln r_ty) then Obj.magic @@ -877,13 +877,13 @@ let (add_knot : Pulse_Syntax_Base.id = (match - FStar_Reflection_V2_Builtins.inspect_ident + FStarC_Reflection_V2_Builtins.inspect_ident id with | (s, rng1) -> - FStar_Reflection_V2_Builtins.pack_ident + FStarC_Reflection_V2_Builtins.pack_ident ((Prims.strcat "__recaux_" s), rng1)); @@ -895,7 +895,7 @@ let (add_knot : bs1 [( match - FStar_Reflection_V2_Builtins.inspect_ident + FStarC_Reflection_V2_Builtins.inspect_ident id with | @@ -949,9 +949,9 @@ let (tie_knot : FStar_Range.range -> Prims.string -> Prims.string -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStar_Reflection_Typing.blob -> - ((Prims.bool * FStar_Reflection_Types.sigelt * + ((Prims.bool * FStarC_Reflection_Types.sigelt * FStar_Reflection_Typing.blob FStar_Pervasives_Native.option), unit) FStar_Tactics_Effect.tac_repr) = @@ -1116,16 +1116,16 @@ let (tie_knot : FStar_Reflection_Typing.mk_unchecked_let (Pulse_Typing_Env.fstar_env g) uu___3 nm_orig - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "magic"]))), - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_Unit)), - FStar_Reflection_V2_Data.Q_Explicit)))) + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_Unit)), + FStarC_Reflection_V2_Data.Q_Explicit)))) knot_r_typ)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1148,23 +1148,23 @@ let (tie_knot : (flag, (Pulse_RuntimeUtils.add_attribute sig1 - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["FStar"; "Pervasives"; "Native"; "Mktuple2"]))), - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - (FStar_Reflection_V2_Data.C_String + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + (FStarC_Reflection_V2_Data.C_String "pulse.recursive.knot"))), - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), ((string_as_term nm_aux), - FStar_Reflection_V2_Data.Q_Explicit))))), + FStarC_Reflection_V2_Data.Q_Explicit))))), (FStar_Pervasives_Native.Some blob)))))) uu___1) \ No newline at end of file diff --git a/src/ocaml/plugin/generated/Pulse_Reflection_Util.ml b/src/ocaml/plugin/generated/Pulse_Reflection_Util.ml index 7064f23a0..c011634ec 100644 --- a/src/ocaml/plugin/generated/Pulse_Reflection_Util.ml +++ b/src/ocaml/plugin/generated/Pulse_Reflection_Util.ml @@ -1,18 +1,18 @@ open Prims -let (u_two : FStar_Reflection_Types.universe) = +let (u_two : FStarC_Reflection_Types.universe) = FStar_Reflection_Typing.u_succ (FStar_Reflection_Typing.u_succ FStar_Reflection_Typing.u_zero) -let (u_three : FStar_Reflection_Types.universe) = +let (u_three : FStarC_Reflection_Types.universe) = FStar_Reflection_Typing.u_succ (FStar_Reflection_Typing.u_succ (FStar_Reflection_Typing.u_succ FStar_Reflection_Typing.u_zero)) -let (u_four : FStar_Reflection_Types.universe) = +let (u_four : FStarC_Reflection_Types.universe) = FStar_Reflection_Typing.u_succ (FStar_Reflection_Typing.u_succ (FStar_Reflection_Typing.u_succ (FStar_Reflection_Typing.u_succ FStar_Reflection_Typing.u_zero))) let (u_atomic_ghost : - FStar_Reflection_Types.universe -> FStar_Reflection_Types.universe) = + FStarC_Reflection_Types.universe -> FStarC_Reflection_Types.universe) = fun u -> FStar_Reflection_Typing.u_max u_four u let (pulse_lib_core : Prims.string Prims.list) = ["Pulse"; "Lib"; "Core"] let (mk_pulse_lib_core_lid : Prims.string -> Prims.string Prims.list) = @@ -22,8 +22,8 @@ let (pulse_lib_noninformative : Prims.string Prims.list) = let (mk_pulse_lib_noninformative_lid : Prims.string -> Prims.string Prims.list) = fun s -> FStar_List_Tot_Base.op_At pulse_lib_noninformative [s] -let (tun : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln FStar_Reflection_V2_Data.Tv_Unknown +let (tun : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln FStarC_Reflection_V2_Data.Tv_Unknown let (unit_lid : Prims.string Prims.list) = FStar_Reflection_Const.unit_lid let (bool_lid : Prims.string Prims.list) = FStar_Reflection_Const.bool_lid let (int_lid : Prims.string Prims.list) = FStar_Reflection_Const.int_lid @@ -31,58 +31,58 @@ let (erased_lid : Prims.string Prims.list) = ["FStar"; "Ghost"; "erased"] let (hide_lid : Prims.string Prims.list) = ["FStar"; "Ghost"; "hide"] let (reveal_lid : Prims.string Prims.list) = ["FStar"; "Ghost"; "reveal"] let (slprop_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "slprop" -let (slprop_fv : FStar_Reflection_Types.fv) = - FStar_Reflection_V2_Builtins.pack_fv slprop_lid -let (slprop_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar slprop_fv) +let (slprop_fv : FStarC_Reflection_Types.fv) = + FStarC_Reflection_V2_Builtins.pack_fv slprop_lid +let (slprop_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar slprop_fv) let (emp_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "emp" -let (unit_fv : FStar_Reflection_Types.fv) = - FStar_Reflection_V2_Builtins.pack_fv unit_lid -let (unit_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar unit_fv) -let (bool_fv : FStar_Reflection_Types.fv) = - FStar_Reflection_V2_Builtins.pack_fv bool_lid -let (bool_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar bool_fv) +let (unit_fv : FStarC_Reflection_Types.fv) = + FStarC_Reflection_V2_Builtins.pack_fv unit_lid +let (unit_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar unit_fv) +let (bool_fv : FStarC_Reflection_Types.fv) = + FStarC_Reflection_V2_Builtins.pack_fv bool_lid +let (bool_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar bool_fv) let (nat_lid : Prims.string Prims.list) = ["Prims"; "nat"] -let (nat_fv : FStar_Reflection_Types.fv) = - FStar_Reflection_V2_Builtins.pack_fv nat_lid -let (nat_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar nat_fv) +let (nat_fv : FStarC_Reflection_Types.fv) = + FStarC_Reflection_V2_Builtins.pack_fv nat_lid +let (nat_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar nat_fv) let (szt_lid : Prims.string Prims.list) = ["FStar"; "SizeT"; "t"] -let (szt_fv : FStar_Reflection_Types.fv) = - FStar_Reflection_V2_Builtins.pack_fv szt_lid -let (szt_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar szt_fv) +let (szt_fv : FStarC_Reflection_Types.fv) = + FStarC_Reflection_V2_Builtins.pack_fv szt_lid +let (szt_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar szt_fv) let (szv_lid : Prims.string Prims.list) = ["FStar"; "SizeT"; "v"] -let (szv_fv : FStar_Reflection_Types.fv) = - FStar_Reflection_V2_Builtins.pack_fv szv_lid -let (szv_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar szv_fv) +let (szv_fv : FStarC_Reflection_Types.fv) = + FStarC_Reflection_V2_Builtins.pack_fv szv_lid +let (szv_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar szv_fv) let (seq_lid : Prims.string Prims.list) = ["FStar"; "Seq"; "Base"; "seq"] let (seq_create_lid : Prims.string Prims.list) = ["FStar"; "Seq"; "Base"; "create"] let (tot_lid : Prims.string Prims.list) = ["Prims"; "Tot"] -let (slprop_equiv_norm_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv +let (slprop_equiv_norm_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv (mk_pulse_lib_core_lid "slprop_equiv_norm"))) -let (match_rewrite_tac_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv +let (match_rewrite_tac_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv (mk_pulse_lib_core_lid "match_rewrite_tac"))) -let (ex : FStar_Reflection_Types.term -> FStar_Reflection_V2_Data.argv) = - fun t -> (t, FStar_Reflection_V2_Data.Q_Explicit) -let (im : FStar_Reflection_Types.term -> FStar_Reflection_V2_Data.argv) = - fun t -> (t, FStar_Reflection_V2_Data.Q_Implicit) +let (ex : FStarC_Reflection_Types.term -> FStarC_Reflection_V2_Data.argv) = + fun t -> (t, FStarC_Reflection_V2_Data.Q_Explicit) +let (im : FStarC_Reflection_Types.term -> FStarC_Reflection_V2_Data.argv) = + fun t -> (t, FStarC_Reflection_V2_Data.Q_Implicit) let (tuple2_lid : Prims.string Prims.list) = ["FStar"; "Pervasives"; "Native"; "tuple2"] let (fst_lid : Prims.string Prims.list) = @@ -90,33 +90,33 @@ let (fst_lid : Prims.string Prims.list) = let (snd_lid : Prims.string Prims.list) = ["FStar"; "Pervasives"; "Native"; "snd"] let (mk_tuple2 : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> fun a1 -> fun a2 -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv tuple2_lid), + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv tuple2_lid), [u1; u2])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a1, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (a2, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a1, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (a2, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_fst : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> @@ -124,26 +124,26 @@ let (mk_fst : fun a2 -> fun e -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv fst_lid), [u1; u2])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv fst_lid), [u1; u2])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a1, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a1, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (a2, FStar_Reflection_V2_Data.Q_Implicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (e, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (a2, FStarC_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (e, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_snd : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> @@ -151,45 +151,45 @@ let (mk_snd : fun a2 -> fun e -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv snd_lid), [u1; u2])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv snd_lid), [u1; u2])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a1, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a1, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (a2, FStar_Reflection_V2_Data.Q_Implicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (e, FStar_Reflection_V2_Data.Q_Explicit))) -let (true_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const FStar_Reflection_V2_Data.C_True) -let (false_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const FStar_Reflection_V2_Data.C_False) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (a2, FStarC_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (e, FStarC_Reflection_V2_Data.Q_Explicit))) +let (true_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const FStarC_Reflection_V2_Data.C_True) +let (false_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const FStarC_Reflection_V2_Data.C_False) let (star_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "op_Star_Star" let (mk_star : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun l -> fun r -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv star_lid)) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv star_lid)) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (l, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (r, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (l, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (r, FStarC_Reflection_V2_Data.Q_Explicit))) let (pure_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "pure" let (exists_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "op_exists_Star" @@ -199,200 +199,200 @@ let (mk_pulse_lib_forall_lid : Prims.string -> Prims.string Prims.list) = let (forall_lid : Prims.string Prims.list) = mk_pulse_lib_forall_lid "op_forall_Star" let (args_of : - FStar_Reflection_Types.term Prims.list -> - (FStar_Reflection_Types.term * FStar_Reflection_V2_Data.aqualv) + FStarC_Reflection_Types.term Prims.list -> + (FStarC_Reflection_Types.term * FStarC_Reflection_V2_Data.aqualv) Prims.list) = fun tms -> FStar_List_Tot_Base.map - (fun x -> (x, FStar_Reflection_V2_Data.Q_Explicit)) tms -let (mk_pure : FStar_Reflection_Types.term -> FStar_Reflection_Types.term) = + (fun x -> (x, FStarC_Reflection_V2_Data.Q_Explicit)) tms +let (mk_pure : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun p -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv pure_lid)) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (p, FStar_Reflection_V2_Data.Q_Explicit))) -let (uzero : FStar_Reflection_Types.universe) = - FStar_Reflection_V2_Builtins.pack_universe FStar_Reflection_V2_Data.Uv_Zero -let (uone : FStar_Reflection_Types.universe) = - FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Succ uzero) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv pure_lid)) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (p, FStarC_Reflection_V2_Data.Q_Explicit))) +let (uzero : FStarC_Reflection_Types.universe) = + FStarC_Reflection_V2_Builtins.pack_universe FStarC_Reflection_V2_Data.Uv_Zero +let (uone : FStarC_Reflection_Types.universe) = + FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Succ uzero) let (pulse_lib_reference : Prims.string Prims.list) = ["Pulse"; "Lib"; "Reference"] let (mk_pulse_lib_reference_lid : Prims.string -> Prims.string Prims.list) = fun s -> FStar_List_Tot_Base.op_At pulse_lib_reference [s] let (mk_squash : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun ty -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv FStar_Reflection_Const.squash_qn), [u])) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (ty, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (ty, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_eq2 : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun ty -> fun e1 -> fun e2 -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv FStar_Reflection_Const.eq2_qn), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (ty, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (ty, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (e1, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (e2, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (e1, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (e2, FStarC_Reflection_V2_Data.Q_Explicit))) let (stt_admit_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "stt_admit" let (mk_stt_admit : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> fun pre -> fun post -> let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv stt_admit_lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv stt_admit_lid), [u])) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (t1, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (t1, FStarC_Reflection_V2_Data.Q_Explicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (pre, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (post, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (pre, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (post, FStarC_Reflection_V2_Data.Q_Explicit))) let (stt_atomic_admit_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "stt_atomic_admit" let (mk_stt_atomic_admit : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> fun pre -> fun post -> let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv stt_atomic_admit_lid), + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv stt_atomic_admit_lid), [u])) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (t1, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (t1, FStarC_Reflection_V2_Data.Q_Explicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (pre, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (post, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (pre, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (post, FStarC_Reflection_V2_Data.Q_Explicit))) let (stt_ghost_admit_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "stt_ghost_admit" let (mk_stt_ghost_admit : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> fun pre -> fun post -> let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv stt_ghost_admit_lid), + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv stt_ghost_admit_lid), [u])) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (t1, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (t1, FStarC_Reflection_V2_Data.Q_Explicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (pre, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (post, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (pre, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (post, FStarC_Reflection_V2_Data.Q_Explicit))) let (elim_pure_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "elim_pure" let (stt_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "stt" -let (stt_fv : FStar_Reflection_Types.fv) = - FStar_Reflection_V2_Builtins.pack_fv stt_lid -let (stt_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar stt_fv) +let (stt_fv : FStarC_Reflection_Types.fv) = + FStarC_Reflection_V2_Builtins.pack_fv stt_lid +let (stt_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar stt_fv) let (mk_stt_comp : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun res -> fun pre -> fun post -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst (stt_fv, [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst (stt_fv, [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (res, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (res, FStarC_Reflection_V2_Data.Q_Explicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (pre, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (post, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (pre, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (post, FStarC_Reflection_V2_Data.Q_Explicit))) let (stt_atomic_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "stt_atomic" -let (stt_atomic_fv : FStar_Reflection_Types.fv) = - FStar_Reflection_V2_Builtins.pack_fv stt_atomic_lid -let (stt_atomic_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar stt_atomic_fv) +let (stt_atomic_fv : FStarC_Reflection_Types.fv) = + FStarC_Reflection_V2_Builtins.pack_fv stt_atomic_lid +let (stt_atomic_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar stt_atomic_fv) let (mk_stt_atomic_comp : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun obs -> fun u -> @@ -402,40 +402,40 @@ let (mk_stt_atomic_comp : fun post -> let head = stt_atomic_fv in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst (head, [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst (head, [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Explicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (obs, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (obs, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (inames, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (inames, FStarC_Reflection_V2_Data.Q_Explicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (pre, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t4, (post, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (pre, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t4, (post, FStarC_Reflection_V2_Data.Q_Explicit))) let (stt_ghost_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "stt_ghost" -let (stt_ghost_fv : FStar_Reflection_Types.fv) = - FStar_Reflection_V2_Builtins.pack_fv stt_ghost_lid -let (stt_ghost_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar stt_ghost_fv) +let (stt_ghost_fv : FStarC_Reflection_Types.fv) = + FStarC_Reflection_V2_Builtins.pack_fv stt_ghost_lid +let (stt_ghost_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar stt_ghost_fv) let (mk_stt_ghost_comp : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -443,31 +443,31 @@ let (mk_stt_ghost_comp : fun pre -> fun post -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst (stt_ghost_fv, [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst (stt_ghost_fv, [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Explicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (inames, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (inames, FStarC_Reflection_V2_Data.Q_Explicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (pre, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (post, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (pre, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (post, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_stt_ghost_comp_post_equiv : - FStar_Reflection_Types.env -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv) = @@ -480,64 +480,64 @@ let (mk_stt_ghost_comp_post_equiv : fun post2 -> fun posts_equiv -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst (stt_ghost_fv, [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst (stt_ghost_fv, [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Explicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (inames, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (inames, FStarC_Reflection_V2_Data.Q_Explicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (pre, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (pre, FStarC_Reflection_V2_Data.Q_Explicit))) in FStar_Reflection_Typing.Rel_ctxt (g, post1, post2, (FStar_Reflection_Typing.Ctxt_app_arg - (t3, FStar_Reflection_V2_Data.Q_Explicit, + (t3, FStarC_Reflection_V2_Data.Q_Explicit, FStar_Reflection_Typing.Ctxt_hole)), posts_equiv) let (mk_total : - FStar_Reflection_Types.typ -> FStar_Reflection_V2_Data.comp_view) = - fun t -> FStar_Reflection_V2_Data.C_Total t + FStarC_Reflection_Types.typ -> FStarC_Reflection_V2_Data.comp_view) = + fun t -> FStarC_Reflection_V2_Data.C_Total t let (mk_ghost : - FStar_Reflection_Types.typ -> FStar_Reflection_V2_Data.comp_view) = - fun t -> FStar_Reflection_V2_Data.C_GTotal t + FStarC_Reflection_Types.typ -> FStarC_Reflection_V2_Data.comp_view) = + fun t -> FStarC_Reflection_V2_Data.C_GTotal t let (binder_of_t_q : - FStar_Reflection_Types.term -> - FStar_Reflection_V2_Data.aqualv -> FStar_Reflection_Types.binder) + FStarC_Reflection_Types.term -> + FStarC_Reflection_V2_Data.aqualv -> FStarC_Reflection_Types.binder) = fun t -> fun q -> FStar_Reflection_Typing.binder_of_t_q t q let (binder_of_t_q_s : - FStar_Reflection_Types.term -> - FStar_Reflection_V2_Data.aqualv -> - FStar_Reflection_Typing.pp_name_t -> FStar_Reflection_Types.binder) + FStarC_Reflection_Types.term -> + FStarC_Reflection_V2_Data.aqualv -> + FStar_Reflection_Typing.pp_name_t -> FStarC_Reflection_Types.binder) = fun t -> fun q -> fun s -> FStar_Reflection_Typing.mk_binder s t q -let (bound_var : Prims.nat -> FStar_Reflection_Types.term) = +let (bound_var : Prims.nat -> FStarC_Reflection_Types.term) = fun i -> FStar_Reflection_Typing.bound_var i -let (mk_name : Prims.nat -> FStar_Reflection_Types.term) = +let (mk_name : Prims.nat -> FStarC_Reflection_Types.term) = fun i -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Var - (FStar_Reflection_V2_Builtins.pack_namedv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Var + (FStarC_Reflection_V2_Builtins.pack_namedv (FStar_Reflection_Typing.make_namedv i))) type arrow_dom = - (FStar_Reflection_Types.term * FStar_Reflection_V2_Data.aqualv) + (FStarC_Reflection_Types.term * FStarC_Reflection_V2_Data.aqualv) let (mk_arrow : - arrow_dom -> FStar_Reflection_Types.term -> FStar_Reflection_Types.term) = + arrow_dom -> FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun f -> fun out -> let uu___ = f in match uu___ with | (ty, q) -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Arrow + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Arrow ((binder_of_t_q ty q), - (FStar_Reflection_V2_Builtins.pack_comp (mk_total out)))) + (FStarC_Reflection_V2_Builtins.pack_comp (mk_total out)))) let (mk_arrow_with_name : FStar_Reflection_Typing.pp_name_t -> - arrow_dom -> FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + arrow_dom -> FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun s -> fun f -> @@ -545,13 +545,13 @@ let (mk_arrow_with_name : let uu___ = f in match uu___ with | (ty, q) -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Arrow + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Arrow ((binder_of_t_q_s ty q s), - (FStar_Reflection_V2_Builtins.pack_comp (mk_total out)))) + (FStarC_Reflection_V2_Builtins.pack_comp (mk_total out)))) let (mk_ghost_arrow_with_name : FStar_Reflection_Typing.pp_name_t -> - arrow_dom -> FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + arrow_dom -> FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun s -> fun f -> @@ -559,33 +559,33 @@ let (mk_ghost_arrow_with_name : let uu___ = f in match uu___ with | (ty, q) -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Arrow + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Arrow ((binder_of_t_q_s ty q s), - (FStar_Reflection_V2_Builtins.pack_comp (mk_ghost out)))) + (FStarC_Reflection_V2_Builtins.pack_comp (mk_ghost out)))) let (mk_abs : - FStar_Reflection_Types.term -> - FStar_Reflection_V2_Data.aqualv -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_V2_Data.aqualv -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun ty -> fun qual -> fun t -> FStar_Reflection_Typing.mk_abs ty qual t let (mk_abs_with_name : FStar_Reflection_Typing.pp_name_t -> - FStar_Reflection_Types.term -> - FStar_Reflection_V2_Data.aqualv -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_V2_Data.aqualv -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun s -> fun ty -> fun qual -> fun t -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Abs ((binder_of_t_q_s ty qual s), t)) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Abs ((binder_of_t_q_s ty qual s), t)) let (mk_abs_with_name_and_range : FStar_Reflection_Typing.pp_name_t -> FStar_Range.range -> - FStar_Reflection_Types.term -> - FStar_Reflection_V2_Data.aqualv -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_V2_Data.aqualv -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun s -> fun r -> @@ -594,40 +594,40 @@ let (mk_abs_with_name_and_range : fun t -> let b = binder_of_t_q_s ty qual s in let b1 = Pulse_RuntimeUtils.binder_set_range b r in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Abs (b1, t)) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Abs (b1, t)) let (mk_erased : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> let hd = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv erased_lid), [u])) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (hd, (t, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv erased_lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (hd, (t, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_reveal : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> fun e -> let hd = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv reveal_lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv reveal_lid), [u])) in let hd1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (hd, (t, FStar_Reflection_V2_Data.Q_Implicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (hd1, (e, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (hd, (t, FStarC_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (hd1, (e, FStarC_Reflection_V2_Data.Q_Explicit))) let (elim_exists_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "elim_exists" let (intro_exists_lid : Prims.string Prims.list) = @@ -635,210 +635,210 @@ let (intro_exists_lid : Prims.string Prims.list) = let (intro_exists_erased_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "intro_exists_erased" let (mk_exists : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> fun p -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv exists_lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv exists_lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (p, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (p, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_forall : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> fun p -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv forall_lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv forall_lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (p, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (p, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_elim_exists : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> fun p -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv elim_exists_lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv elim_exists_lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (p, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (p, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_intro_exists : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> fun p -> fun e -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv intro_exists_lid), + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv intro_exists_lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (p, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (e, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (p, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (e, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_intro_exists_erased : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> fun p -> fun e -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv intro_exists_erased_lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (p, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (e, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (p, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (e, FStarC_Reflection_V2_Data.Q_Explicit))) let (while_lid : Prims.string Prims.list) = ["Pulse"; "Lib"; "WhileLoop"; "while_loop"] let (mk_while : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun inv -> fun cond -> fun body -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv while_lid)) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv while_lid)) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (inv, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (inv, FStarC_Reflection_V2_Data.Q_Explicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (cond, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (body, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (cond, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (body, FStarC_Reflection_V2_Data.Q_Explicit))) let (slprop_eq_tm : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun t1 -> fun t2 -> let u2 = - FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Succ - (FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Succ - (FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Zero)))) in + FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Succ + (FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Succ + (FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero)))) in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv FStar_Reflection_Const.eq2_qn), [u2])) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t, - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv slprop_lid))), - FStar_Reflection_V2_Data.Q_Implicit))) in + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv slprop_lid))), + FStarC_Reflection_V2_Data.Q_Implicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (t1, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (t1, FStarC_Reflection_V2_Data.Q_Explicit))) in let t5 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t4, (t2, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t4, (t2, FStarC_Reflection_V2_Data.Q_Explicit))) in t5 let (non_informative_lid : Prims.string Prims.list) = mk_pulse_lib_noninformative_lid "non_informative" let (non_informative_rt : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv non_informative_lid), + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv non_informative_lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Explicit))) in t1 -let (stt_slprop_equiv_fv : FStar_Reflection_Types.fv) = - FStar_Reflection_V2_Builtins.pack_fv (mk_pulse_lib_core_lid "slprop_equiv") -let (stt_slprop_equiv_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar stt_slprop_equiv_fv) +let (stt_slprop_equiv_fv : FStarC_Reflection_Types.fv) = + FStarC_Reflection_V2_Builtins.pack_fv (mk_pulse_lib_core_lid "slprop_equiv") +let (stt_slprop_equiv_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar stt_slprop_equiv_fv) let (stt_slprop_equiv : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun t1 -> fun t2 -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (stt_slprop_equiv_tm, (t1, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (t2, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (stt_slprop_equiv_tm, (t1, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (t2, FStarC_Reflection_V2_Data.Q_Explicit))) let (return_stt_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "return_stt" let (return_stt_noeq_lid : Prims.string Prims.list) = @@ -852,166 +852,166 @@ let (return_stt_ghost_lid : Prims.string Prims.list) = let (return_stt_ghost_noeq_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "return_stt_ghost_noeq" let (mk_stt_return : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun ty -> fun t -> fun post -> let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv return_stt_lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv return_stt_lid), [u])) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (ty, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (ty, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (t2, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (post, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (t2, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (post, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_stt_return_noeq : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun ty -> fun t -> fun post -> let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv return_stt_noeq_lid), + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv return_stt_noeq_lid), [u])) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (ty, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (ty, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (t2, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (post, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (t2, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (post, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_stt_atomic_return : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun ty -> fun t -> fun post -> let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv return_stt_atomic_lid), + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv return_stt_atomic_lid), [u])) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (ty, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (ty, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (t2, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (post, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (t2, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (post, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_stt_atomic_return_noeq : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun ty -> fun t -> fun post -> let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv return_stt_atomic_noeq_lid), [u])) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (ty, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (ty, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (t2, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (post, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (t2, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (post, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_stt_ghost_return : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun ty -> fun t -> fun post -> let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv return_stt_ghost_lid), + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv return_stt_ghost_lid), [u])) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (ty, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (ty, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (t2, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (post, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (t2, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (post, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_stt_ghost_return_noeq : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun ty -> fun t -> fun post -> let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv return_stt_ghost_noeq_lid), [u])) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (ty, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (ty, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (t2, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (post, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (t2, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (post, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_lift_atomic_stt : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -1020,31 +1020,31 @@ let (mk_lift_atomic_stt : fun e -> let lid = mk_pulse_lib_core_lid "lift_stt_atomic" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (pre, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (pre, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (post, FStar_Reflection_V2_Data.Q_Implicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (e, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (post, FStarC_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (e, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_lift_ghost_neutral : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -1054,34 +1054,34 @@ let (mk_lift_ghost_neutral : fun reveal_a -> let lid = mk_pulse_lib_core_lid "lift_ghost_neutral" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (pre, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (pre, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (post, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (post, FStarC_Reflection_V2_Data.Q_Implicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (e, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t4, (reveal_a, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (e, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t4, (reveal_a, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_lift_neutral_ghost : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -1090,35 +1090,35 @@ let (mk_lift_neutral_ghost : fun e -> let lid = mk_pulse_lib_core_lid "lift_neutral_ghost" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (pre, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (pre, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (post, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (post, FStarC_Reflection_V2_Data.Q_Implicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (e, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (e, FStarC_Reflection_V2_Data.Q_Explicit))) in t4 let (mk_lift_observability : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -1130,46 +1130,46 @@ let (mk_lift_observability : fun e -> let lid = mk_pulse_lib_core_lid "lift_observablility" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (o1, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (o1, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (o2, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (o2, FStarC_Reflection_V2_Data.Q_Implicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (opened, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (opened, FStarC_Reflection_V2_Data.Q_Implicit))) in let t5 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t4, (pre, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t4, (pre, FStarC_Reflection_V2_Data.Q_Implicit))) in let t6 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t5, (post, FStar_Reflection_V2_Data.Q_Implicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t6, (e, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t5, (post, FStarC_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t6, (e, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_bind_stt : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> @@ -1182,9 +1182,9 @@ let (mk_bind_stt : fun t2 -> let bind_lid = mk_pulse_lib_core_lid "bind_stt" in let head = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv bind_lid), + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv bind_lid), [u1; u2])) in FStar_Reflection_V2_Derived.mk_app (FStar_Reflection_V2_Derived.mk_app @@ -1194,27 +1194,27 @@ let (mk_bind_stt : (FStar_Reflection_V2_Derived.mk_app (FStar_Reflection_V2_Derived.mk_app head [(ty1, - FStar_Reflection_V2_Data.Q_Implicit)]) + FStarC_Reflection_V2_Data.Q_Implicit)]) [(ty2, - FStar_Reflection_V2_Data.Q_Implicit)]) + FStarC_Reflection_V2_Data.Q_Implicit)]) [(pre1, - FStar_Reflection_V2_Data.Q_Implicit)]) - [(post1, FStar_Reflection_V2_Data.Q_Implicit)]) - [(post2, FStar_Reflection_V2_Data.Q_Implicit)]) - [(t1, FStar_Reflection_V2_Data.Q_Explicit)]) - [(t2, FStar_Reflection_V2_Data.Q_Explicit)] + FStarC_Reflection_V2_Data.Q_Implicit)]) + [(post1, FStarC_Reflection_V2_Data.Q_Implicit)]) + [(post2, FStarC_Reflection_V2_Data.Q_Implicit)]) + [(t1, FStarC_Reflection_V2_Data.Q_Explicit)]) + [(t2, FStarC_Reflection_V2_Data.Q_Explicit)] let (mk_bind_ghost : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> @@ -1228,59 +1228,59 @@ let (mk_bind_ghost : fun e2 -> let bind_lid = mk_pulse_lib_core_lid "bind_ghost" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv bind_lid), + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv bind_lid), [u1; u2])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (b, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (b, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t2, - (opens, FStar_Reflection_V2_Data.Q_Implicit))) in + (opens, FStarC_Reflection_V2_Data.Q_Implicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t3, - (pre1, FStar_Reflection_V2_Data.Q_Implicit))) in + (pre1, FStarC_Reflection_V2_Data.Q_Implicit))) in let t5 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t4, - (post1, FStar_Reflection_V2_Data.Q_Implicit))) in + (post1, FStarC_Reflection_V2_Data.Q_Implicit))) in let t6 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t5, - (post2, FStar_Reflection_V2_Data.Q_Implicit))) in + (post2, FStarC_Reflection_V2_Data.Q_Implicit))) in let t7 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t6, (e1, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t7, (e2, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t6, (e1, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t7, (e2, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_bind_atomic : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> @@ -1296,72 +1296,72 @@ let (mk_bind_atomic : fun e2 -> let bind_lid = mk_pulse_lib_core_lid "bind_atomic" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv bind_lid), [u1; u2])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t, - (a, FStar_Reflection_V2_Data.Q_Implicit))) in + (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t1, - (b, FStar_Reflection_V2_Data.Q_Implicit))) in + (b, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t2, (obs1, - FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Data.Q_Implicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t3, (obs2, - FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Data.Q_Implicit))) in let t5 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t4, (opens, - FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Data.Q_Implicit))) in let t6 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t5, (pre1, - FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Data.Q_Implicit))) in let t7 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t6, (post1, - FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Data.Q_Implicit))) in let t8 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t7, (post2, - FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Data.Q_Implicit))) in let t9 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t8, - (e1, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + (e1, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t9, - (e2, FStar_Reflection_V2_Data.Q_Explicit))) + (e2, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_frame_stt : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun ty -> @@ -1370,30 +1370,30 @@ let (mk_frame_stt : fun frame -> fun t -> let frame_lid = mk_pulse_lib_core_lid "frame_stt" in - let frame_fv = FStar_Reflection_V2_Builtins.pack_fv frame_lid in + let frame_fv = FStarC_Reflection_V2_Builtins.pack_fv frame_lid in let frame_univ_inst u1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv frame_lid), [u1])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv frame_lid), [u1])) in let head = frame_univ_inst u in FStar_Reflection_V2_Derived.mk_app (FStar_Reflection_V2_Derived.mk_app (FStar_Reflection_V2_Derived.mk_app (FStar_Reflection_V2_Derived.mk_app (FStar_Reflection_V2_Derived.mk_app head - [(ty, FStar_Reflection_V2_Data.Q_Implicit)]) - [(pre, FStar_Reflection_V2_Data.Q_Implicit)]) - [(post, FStar_Reflection_V2_Data.Q_Implicit)]) - [(frame, FStar_Reflection_V2_Data.Q_Explicit)]) - [(t, FStar_Reflection_V2_Data.Q_Explicit)] + [(ty, FStarC_Reflection_V2_Data.Q_Implicit)]) + [(pre, FStarC_Reflection_V2_Data.Q_Implicit)]) + [(post, FStarC_Reflection_V2_Data.Q_Implicit)]) + [(frame, FStarC_Reflection_V2_Data.Q_Explicit)]) + [(t, FStarC_Reflection_V2_Data.Q_Explicit)] let (mk_frame_stt_atomic : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -1404,39 +1404,39 @@ let (mk_frame_stt_atomic : fun e -> let lid = mk_pulse_lib_core_lid "frame_atomic" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (opened, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (opened, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (pre, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (pre, FStarC_Reflection_V2_Data.Q_Implicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (post, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (post, FStarC_Reflection_V2_Data.Q_Implicit))) in let t5 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t4, (frame, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t5, (e, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t4, (frame, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t5, (e, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_frame_stt_ghost : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -1446,36 +1446,36 @@ let (mk_frame_stt_ghost : fun e -> let lid = mk_pulse_lib_core_lid "frame_ghost" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (pre, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (pre, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (post, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (post, FStarC_Reflection_V2_Data.Q_Implicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (frame, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t4, (e, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (frame, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t4, (e, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_sub_stt : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun ty -> @@ -1486,10 +1486,10 @@ let (mk_sub_stt : fun t -> let subsumption_lid = mk_pulse_lib_core_lid "sub_stt" in let subsumption_fv = - FStar_Reflection_V2_Builtins.pack_fv subsumption_lid in + FStarC_Reflection_V2_Builtins.pack_fv subsumption_lid in let subsumption_univ_inst u1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst (subsumption_fv, [u1])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst (subsumption_fv, [u1])) in let head = subsumption_univ_inst u in FStar_Reflection_V2_Derived.mk_app (FStar_Reflection_V2_Derived.mk_app @@ -1500,30 +1500,30 @@ let (mk_sub_stt : (FStar_Reflection_V2_Derived.mk_app (FStar_Reflection_V2_Derived.mk_app head [(ty, - FStar_Reflection_V2_Data.Q_Implicit)]) + FStarC_Reflection_V2_Data.Q_Implicit)]) [(pre1, - FStar_Reflection_V2_Data.Q_Implicit)]) - [(pre2, FStar_Reflection_V2_Data.Q_Explicit)]) - [(post1, FStar_Reflection_V2_Data.Q_Implicit)]) - [(post2, FStar_Reflection_V2_Data.Q_Explicit)]) - [((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_Unit)), - FStar_Reflection_V2_Data.Q_Explicit)]) - [((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_Unit)), - FStar_Reflection_V2_Data.Q_Explicit)]) - [(t, FStar_Reflection_V2_Data.Q_Explicit)] + FStarC_Reflection_V2_Data.Q_Implicit)]) + [(pre2, FStarC_Reflection_V2_Data.Q_Explicit)]) + [(post1, FStarC_Reflection_V2_Data.Q_Implicit)]) + [(post2, FStarC_Reflection_V2_Data.Q_Explicit)]) + [((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_Unit)), + FStarC_Reflection_V2_Data.Q_Explicit)]) + [((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_Unit)), + FStarC_Reflection_V2_Data.Q_Explicit)]) + [(t, FStarC_Reflection_V2_Data.Q_Explicit)] let (mk_sub_stt_atomic : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -1535,60 +1535,60 @@ let (mk_sub_stt_atomic : fun e -> let lid = mk_pulse_lib_core_lid "sub_atomic" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (opened, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (opened, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (pre1, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (pre1, FStarC_Reflection_V2_Data.Q_Implicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (pre2, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (pre2, FStarC_Reflection_V2_Data.Q_Explicit))) in let t5 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t4, (post1, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t4, (post1, FStarC_Reflection_V2_Data.Q_Implicit))) in let t6 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t5, (post2, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t5, (post2, FStarC_Reflection_V2_Data.Q_Explicit))) in let t7 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t6, - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_Unit)), - FStar_Reflection_V2_Data.Q_Explicit))) in + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_Unit)), + FStarC_Reflection_V2_Data.Q_Explicit))) in let t8 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t7, - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_Unit)), - FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t8, (e, FStar_Reflection_V2_Data.Q_Explicit))) + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_Unit)), + FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t8, (e, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_sub_inv_atomic : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -1599,24 +1599,24 @@ let (mk_sub_inv_atomic : fun e -> let lid = mk_pulse_lib_core_lid "sub_invs_atomic" in let head = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv lid), [u])) in FStar_Reflection_V2_Derived.mk_app head - [(a, FStar_Reflection_V2_Data.Q_Implicit); - (opens1, FStar_Reflection_V2_Data.Q_Implicit); - (opens2, FStar_Reflection_V2_Data.Q_Implicit); - (pre, FStar_Reflection_V2_Data.Q_Implicit); - (post, FStar_Reflection_V2_Data.Q_Implicit); - (e, FStar_Reflection_V2_Data.Q_Explicit)] + [(a, FStarC_Reflection_V2_Data.Q_Implicit); + (opens1, FStarC_Reflection_V2_Data.Q_Implicit); + (opens2, FStarC_Reflection_V2_Data.Q_Implicit); + (pre, FStarC_Reflection_V2_Data.Q_Implicit); + (post, FStarC_Reflection_V2_Data.Q_Implicit); + (e, FStarC_Reflection_V2_Data.Q_Explicit)] let (mk_sub_stt_ghost : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> @@ -1627,58 +1627,58 @@ let (mk_sub_stt_ghost : fun e -> let lid = mk_pulse_lib_core_lid "sub_ghost" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (pre1, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (pre1, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (pre2, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (pre2, FStarC_Reflection_V2_Data.Q_Explicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (post1, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (post1, FStarC_Reflection_V2_Data.Q_Implicit))) in let t5 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t4, (post2, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t4, (post2, FStarC_Reflection_V2_Data.Q_Explicit))) in let t6 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t5, - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_Unit)), - FStar_Reflection_V2_Data.Q_Explicit))) in + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_Unit)), + FStarC_Reflection_V2_Data.Q_Explicit))) in let t7 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t6, - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_Unit)), - FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t7, (e, FStar_Reflection_V2_Data.Q_Explicit))) + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_Unit)), + FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t7, (e, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_par : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun aL -> @@ -1691,79 +1691,79 @@ let (mk_par : fun eR -> let lid = mk_pulse_lib_core_lid "par_stt" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (aL, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (aL, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (aR, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (aR, FStarC_Reflection_V2_Data.Q_Implicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (preL, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (preL, FStarC_Reflection_V2_Data.Q_Implicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (postL, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (postL, FStarC_Reflection_V2_Data.Q_Implicit))) in let t5 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t4, (preR, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t4, (preR, FStarC_Reflection_V2_Data.Q_Implicit))) in let t6 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t5, (postR, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t5, (postR, FStarC_Reflection_V2_Data.Q_Implicit))) in let t7 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t6, (eL, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t7, (eR, FStar_Reflection_V2_Data.Q_Explicit))) -let (tm_rewrite_tactic_t : FStar_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t6, (eL, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t7, (eR, FStarC_Reflection_V2_Data.Q_Explicit))) +let (tm_rewrite_tactic_t : FStarC_Reflection_Types.term) = let fv = - FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_fv (mk_pulse_lib_core_lid "rewrite_tactic_t") in - FStar_Reflection_V2_Builtins.pack_ln (FStar_Reflection_V2_Data.Tv_FVar fv) + FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_FVar fv) let (mk_rewrite : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun p -> fun q -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv (mk_pulse_lib_core_lid "rewrite"))) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (p, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (p, FStarC_Reflection_V2_Data.Q_Explicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (q, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (q, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App (t2, - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_Unit)), - FStar_Reflection_V2_Data.Q_Explicit))) + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_Unit)), + FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_withlocal : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun ret_u -> fun a -> @@ -1774,38 +1774,38 @@ let (mk_withlocal : fun body -> let lid = mk_pulse_lib_reference_lid "with_local" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv lid), [ret_u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv lid), [ret_u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (init, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (init, FStarC_Reflection_V2_Data.Q_Explicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (pre, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (pre, FStarC_Reflection_V2_Data.Q_Implicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (ret_t, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (ret_t, FStarC_Reflection_V2_Data.Q_Implicit))) in let t5 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t4, (post, FStar_Reflection_V2_Data.Q_Implicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t5, (body, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t4, (post, FStarC_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t5, (body, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_star_equiv : - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv) @@ -1814,14 +1814,14 @@ let (mk_star_equiv : fun t1 -> fun t2 -> fun t3 -> fun t4 -> fun eq1 -> fun eq2 -> Prims.admit () let (mk_stt_comp_equiv : - FStar_Reflection_Types.env -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> @@ -1837,15 +1837,15 @@ let (mk_stt_comp_equiv : fun post2 -> fun res_eq -> fun pre_eq -> fun post_eq -> Prims.admit () let (mk_stt_atomic_comp_equiv : - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv) @@ -1860,14 +1860,14 @@ let (mk_stt_atomic_comp_equiv : fun pre2 -> fun post2 -> fun pre_eq -> fun post_eq -> Prims.admit () let (mk_stt_ghost_comp_equiv : - FStar_Reflection_Types.env -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv -> (unit, unit, unit) FStar_Reflection_Typing.equiv) @@ -1883,44 +1883,44 @@ let (mk_stt_ghost_comp_equiv : let (ref_lid : Prims.string Prims.list) = mk_pulse_lib_reference_lid "ref" let (pts_to_lid : Prims.string Prims.list) = mk_pulse_lib_reference_lid "pts_to" -let (mk_ref : FStar_Reflection_Types.term -> FStar_Reflection_Types.term) = +let (mk_ref : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun a -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv ref_lid)) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ref_lid)) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_pts_to : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun a -> fun r -> fun perm -> fun v -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv pts_to_lid)) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv pts_to_lid)) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (r, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (r, FStarC_Reflection_V2_Data.Q_Explicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (perm, FStar_Reflection_V2_Data.Q_Implicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (v, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (perm, FStarC_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (v, FStarC_Reflection_V2_Data.Q_Explicit))) let (pulse_lib_array_core : Prims.string Prims.list) = ["Pulse"; "Lib"; "Array"; "Core"] let (mk_pulse_lib_array_core_lid : Prims.string -> Prims.string Prims.list) = @@ -1933,108 +1933,108 @@ let (array_length_lid : Prims.string Prims.list) = mk_pulse_lib_array_core_lid "length" let (array_is_full_lid : Prims.string Prims.list) = mk_pulse_lib_array_core_lid "is_full_array" -let (mk_array : FStar_Reflection_Types.term -> FStar_Reflection_Types.term) = +let (mk_array : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun a -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv array_lid)) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv array_lid)) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_array_length : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun a -> fun arr -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv array_length_lid)) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv array_length_lid)) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (arr, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (arr, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_array_pts_to : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun a -> fun arr -> fun perm -> fun v -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv array_pts_to_lid)) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv array_pts_to_lid)) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (arr, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (arr, FStarC_Reflection_V2_Data.Q_Explicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (perm, FStar_Reflection_V2_Data.Q_Implicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (v, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (perm, FStarC_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (v, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_seq : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv seq_lid), [u])) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv seq_lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_seq_create : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun a -> fun len -> fun v -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv seq_create_lid), [u])) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv seq_create_lid), [u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (len, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (v, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (len, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (v, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_withlocalarray : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun ret_u -> fun a -> @@ -2046,52 +2046,52 @@ let (mk_withlocalarray : fun body -> let lid = mk_pulse_lib_array_core_lid "with_local" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv lid), + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv lid), [ret_u])) in let t1 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (a, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (a, FStarC_Reflection_V2_Data.Q_Implicit))) in let t2 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t1, (init, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t1, (init, FStarC_Reflection_V2_Data.Q_Explicit))) in let t3 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t2, (len, FStar_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t2, (len, FStarC_Reflection_V2_Data.Q_Explicit))) in let t4 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t3, (pre, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t3, (pre, FStarC_Reflection_V2_Data.Q_Implicit))) in let t5 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t4, (ret_t, FStar_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t4, (ret_t, FStarC_Reflection_V2_Data.Q_Implicit))) in let t6 = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t5, (post, FStar_Reflection_V2_Data.Q_Implicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t6, (body, FStar_Reflection_V2_Data.Q_Explicit))) -let (mk_szv : FStar_Reflection_Types.term -> FStar_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t5, (post, FStarC_Reflection_V2_Data.Q_Implicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t6, (body, FStarC_Reflection_V2_Data.Q_Explicit))) +let (mk_szv : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun n -> let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv szv_lid)) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (n, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv szv_lid)) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (n, FStarC_Reflection_V2_Data.Q_Explicit))) let (mk_opaque_let : - FStar_Reflection_Types.env -> - FStar_Reflection_Types.name -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.name -> Prims.string -> unit -> - FStar_Reflection_Types.typ -> + FStarC_Reflection_Types.typ -> ((unit, unit) FStar_Reflection_Typing.sigelt_for, unit) FStar_Tactics_Effect.tac_repr) = @@ -2109,24 +2109,24 @@ let (mk_opaque_let : (FStar_Tactics_Effect.lift_div_tac (fun uu___ -> (true, - (FStar_Reflection_V2_Builtins.pack_sigelt - (FStar_Reflection_V2_Data.Sg_Let + (FStarC_Reflection_V2_Builtins.pack_sigelt + (FStarC_Reflection_V2_Data.Sg_Let (false, - [FStar_Reflection_V2_Builtins.pack_lb + [FStarC_Reflection_V2_Builtins.pack_lb { - FStar_Reflection_V2_Data.lb_fv + FStarC_Reflection_V2_Data.lb_fv = - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_fv (FStar_List_Tot_Base.op_At cur_module [nm])); - FStar_Reflection_V2_Data.lb_us + FStarC_Reflection_V2_Data.lb_us = []; - FStar_Reflection_V2_Data.lb_typ + FStarC_Reflection_V2_Data.lb_typ = ty; - FStar_Reflection_V2_Data.lb_def + FStarC_Reflection_V2_Data.lb_def = - (FStar_Reflection_V2_Builtins.pack_ln - FStar_Reflection_V2_Data.Tv_Unknown) + (FStarC_Reflection_V2_Builtins.pack_ln + FStarC_Reflection_V2_Data.Tv_Unknown) }]))), FStar_Pervasives_Native.None)))) uu___4 uu___3 uu___2 uu___1 uu___ @@ -2146,40 +2146,40 @@ let (add_inv_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "add_inv" let (remove_inv_lid : Prims.string Prims.list) = mk_pulse_lib_core_lid "remove_inv" let (remove_inv_tm : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun is -> fun iname -> let h = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv remove_inv_lid)) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv remove_inv_lid)) in FStar_Reflection_V2_Derived.mk_app h [ex is; ex iname] let (mk_mem_inv : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun is -> fun iname -> let mem_inv_tm = mk_pulse_lib_core_lid "mem_inv" in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv mem_inv_tm)) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv mem_inv_tm)) in FStar_Reflection_V2_Derived.mk_app t [ex is; ex iname] let (inv_disjointness_goal : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun is -> fun iname -> let p = mk_mem_inv is iname in let u0 = - FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Zero in + FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero in let p1 = mk_reveal u0 bool_tm p in mk_eq2 u0 bool_tm - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_False)) p1 \ No newline at end of file + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_False)) p1 \ No newline at end of file diff --git a/src/ocaml/plugin/generated/Pulse_Show.ml b/src/ocaml/plugin/generated/Pulse_Show.ml index 89f940eb6..004f62a6e 100644 --- a/src/ocaml/plugin/generated/Pulse_Show.ml +++ b/src/ocaml/plugin/generated/Pulse_Show.ml @@ -566,10 +566,10 @@ let (tac_showable_post_hint_t : Pulse_Typing.post_hint_t tac_showable) = FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> Prims.strcat "{" uu___1))) } -let (tac_showable_r_term : FStar_Reflection_Types.term tac_showable) = - { show = FStar_Tactics_V1_Builtins.term_to_string } +let (tac_showable_r_term : FStarC_Reflection_Types.term tac_showable) = + { show = FStarC_Tactics_V1_Builtins.term_to_string } let (tac_showable_range : FStar_Range.range tac_showable) = - { show = FStar_Tactics_V1_Builtins.range_to_string } + { show = FStarC_Tactics_V1_Builtins.range_to_string } let tac_showable_tuple2 : 'a 'b . 'a tac_showable -> 'b tac_showable -> ('a * 'b) tac_showable = fun uu___ -> diff --git a/src/ocaml/plugin/generated/Pulse_Soundness_Bind.ml b/src/ocaml/plugin/generated/Pulse_Soundness_Bind.ml index b8a464718..bf83fef72 100644 --- a/src/ocaml/plugin/generated/Pulse_Soundness_Bind.ml +++ b/src/ocaml/plugin/generated/Pulse_Soundness_Bind.ml @@ -1,12 +1,12 @@ open Prims let (inst_bind_t2 : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing) = @@ -17,14 +17,14 @@ let (inst_bind_t2 : fun t1 -> fun head_typing -> fun t2 -> fun t2_typing -> Prims.admit () let (inst_bind_pre : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing) = @@ -36,15 +36,15 @@ let (inst_bind_pre : fun t2 -> fun head_typing -> fun pre -> fun pre_typing -> Prims.admit () let (inst_bind_post1 : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing) = @@ -58,16 +58,16 @@ let (inst_bind_post1 : fun head_typing -> fun post1 -> fun post1_typing -> Prims.admit () let (inst_bind_post2 : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing) @@ -83,17 +83,17 @@ let (inst_bind_post2 : fun head_typing -> fun post2 -> fun post2_typing -> Prims.admit () let (inst_bind_f : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> (unit, unit, unit) @@ -111,17 +111,17 @@ let (inst_bind_f : fun head_typing -> fun f -> fun f_typing -> Prims.admit () let (inst_bind_g : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (unit, unit, unit) FStar_Reflection_Typing.tot_typing -> (unit, unit, unit) @@ -145,8 +145,8 @@ let (inst_bind_g : (Pulse_Reflection_Util.binder_of_t_q (Pulse_Soundness_Common.g_type_bind u2 t1 t2 post1 post2) - FStar_Reflection_V2_Data.Q_Explicit), + FStarC_Reflection_V2_Data.Q_Explicit), (Pulse_Soundness_Common.bind_res u2 t2 pre - post2), FStar_TypeChecker_Core.E_Total, + post2), FStarC_TypeChecker_Core.E_Total, head_typing, g_typing) in d \ No newline at end of file diff --git a/src/ocaml/plugin/generated/Pulse_Soundness_Common.ml b/src/ocaml/plugin/generated/Pulse_Soundness_Common.ml index 68176db02..2b85b6ae9 100644 --- a/src/ocaml/plugin/generated/Pulse_Soundness_Common.ml +++ b/src/ocaml/plugin/generated/Pulse_Soundness_Common.ml @@ -1,21 +1,21 @@ open Prims type ln_comp = Pulse_Syntax_Base.comp_st let (bind_res : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u2 -> fun t2 -> fun pre -> fun post2 -> Pulse_Reflection_Util.mk_stt_comp u2 t2 pre post2 let (g_type_bind : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u2 -> fun t1 -> @@ -23,19 +23,19 @@ let (g_type_bind : fun post1 -> fun post2 -> Pulse_Reflection_Util.mk_arrow - (t1, FStar_Reflection_V2_Data.Q_Explicit) + (t1, FStarC_Reflection_V2_Data.Q_Explicit) (bind_res u2 t2 (FStar_Reflection_V2_Derived.mk_app post1 [((Pulse_Reflection_Util.bound_var Prims.int_zero), - FStar_Reflection_V2_Data.Q_Explicit)]) post2) + FStarC_Reflection_V2_Data.Q_Explicit)]) post2) let (bind_type_t1_t2_pre_post1_post2_f : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> @@ -46,16 +46,16 @@ let (bind_type_t1_t2_pre_post1_post2_f : fun post2 -> Pulse_Reflection_Util.mk_arrow ((g_type_bind u2 t1 t2 post1 post2), - FStar_Reflection_V2_Data.Q_Explicit) + FStarC_Reflection_V2_Data.Q_Explicit) (bind_res u2 t2 pre post2) let (bind_type_t1_t2_pre_post1_post2 : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> @@ -67,21 +67,21 @@ let (bind_type_t1_t2_pre_post1_post2 : let f_type = Pulse_Reflection_Util.mk_stt_comp u1 t1 pre post1 in Pulse_Reflection_Util.mk_arrow - (f_type, FStar_Reflection_V2_Data.Q_Explicit) + (f_type, FStarC_Reflection_V2_Data.Q_Explicit) (bind_type_t1_t2_pre_post1_post2_f u1 u2 t1 t2 pre post1 post2) let (post2_type_bind : - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) = + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun t2 -> - Pulse_Reflection_Util.mk_arrow (t2, FStar_Reflection_V2_Data.Q_Explicit) + Pulse_Reflection_Util.mk_arrow (t2, FStarC_Reflection_V2_Data.Q_Explicit) Pulse_Reflection_Util.slprop_tm let (bind_type_t1_t2_pre_post1 : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> @@ -92,22 +92,22 @@ let (bind_type_t1_t2_pre_post1 : let var = Prims.int_zero in let post2 = Pulse_Reflection_Util.mk_name var in Pulse_Reflection_Util.mk_arrow - ((post2_type_bind t2), FStar_Reflection_V2_Data.Q_Implicit) + ((post2_type_bind t2), FStarC_Reflection_V2_Data.Q_Implicit) (FStar_Reflection_Typing.subst_term (bind_type_t1_t2_pre_post1_post2 u1 u2 t1 t2 pre post1 post2) [FStar_Reflection_Typing.ND (var, Prims.int_zero)]) let (post1_type_bind : - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) = + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun t1 -> - Pulse_Reflection_Util.mk_arrow (t1, FStar_Reflection_V2_Data.Q_Explicit) + Pulse_Reflection_Util.mk_arrow (t1, FStarC_Reflection_V2_Data.Q_Explicit) Pulse_Reflection_Util.slprop_tm let (bind_type_t1_t2_pre : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> @@ -117,15 +117,15 @@ let (bind_type_t1_t2_pre : let var = Prims.int_one in let post1 = Pulse_Reflection_Util.mk_name var in Pulse_Reflection_Util.mk_arrow - ((post1_type_bind t1), FStar_Reflection_V2_Data.Q_Implicit) + ((post1_type_bind t1), FStarC_Reflection_V2_Data.Q_Implicit) (FStar_Reflection_Typing.subst_term (bind_type_t1_t2_pre_post1 u1 u2 t1 t2 pre post1) [FStar_Reflection_Typing.ND (var, Prims.int_zero)]) let (bind_type_t1_t2 : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> @@ -135,14 +135,14 @@ let (bind_type_t1_t2 : let pre = Pulse_Reflection_Util.mk_name var in let pre_type = Pulse_Reflection_Util.slprop_tm in Pulse_Reflection_Util.mk_arrow - (pre_type, FStar_Reflection_V2_Data.Q_Implicit) + (pre_type, FStarC_Reflection_V2_Data.Q_Implicit) (FStar_Reflection_Typing.subst_term (bind_type_t1_t2_pre u1 u2 t1 t2 pre) [FStar_Reflection_Typing.ND (var, Prims.int_zero)]) let (bind_type_t1 : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> @@ -151,12 +151,12 @@ let (bind_type_t1 : let t2 = Pulse_Reflection_Util.mk_name var in let t2_type = FStar_Reflection_Typing.tm_type u2 in Pulse_Reflection_Util.mk_arrow - (t2_type, FStar_Reflection_V2_Data.Q_Implicit) + (t2_type, FStarC_Reflection_V2_Data.Q_Implicit) (FStar_Reflection_Typing.subst_term (bind_type_t1_t2 u1 u2 t1 t2) [FStar_Reflection_Typing.ND (var, Prims.int_zero)]) let (bind_type : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.universe -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> @@ -164,29 +164,29 @@ let (bind_type : let t1 = Pulse_Reflection_Util.mk_name var in let t1_type = FStar_Reflection_Typing.tm_type u1 in Pulse_Reflection_Util.mk_arrow - (t1_type, FStar_Reflection_V2_Data.Q_Implicit) + (t1_type, FStarC_Reflection_V2_Data.Q_Implicit) (FStar_Reflection_Typing.subst_term (bind_type_t1 u1 u2 t1) [FStar_Reflection_Typing.ND (var, Prims.int_zero)]) let (mk_star : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun l -> fun r -> let head = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.star_lid)) in FStar_Reflection_V2_Derived.mk_app head - [(l, FStar_Reflection_V2_Data.Q_Explicit); - (r, FStar_Reflection_V2_Data.Q_Explicit)] + [(l, FStarC_Reflection_V2_Data.Q_Explicit); + (r, FStarC_Reflection_V2_Data.Q_Explicit)] let (frame_res : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> @@ -195,17 +195,17 @@ let (frame_res : fun frame -> Pulse_Reflection_Util.mk_stt_comp u t (mk_star pre frame) (Pulse_Reflection_Util.mk_abs t - FStar_Reflection_V2_Data.Q_Explicit + FStarC_Reflection_V2_Data.Q_Explicit (mk_star (FStar_Reflection_V2_Derived.mk_app post [((Pulse_Reflection_Util.bound_var Prims.int_zero), - FStar_Reflection_V2_Data.Q_Explicit)]) frame)) + FStarC_Reflection_V2_Data.Q_Explicit)]) frame)) let (frame_type_t_pre_post_frame : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> @@ -214,13 +214,13 @@ let (frame_type_t_pre_post_frame : fun frame -> let f_type = Pulse_Reflection_Util.mk_stt_comp u t pre post in Pulse_Reflection_Util.mk_arrow - (f_type, FStar_Reflection_V2_Data.Q_Explicit) + (f_type, FStarC_Reflection_V2_Data.Q_Explicit) (frame_res u t pre post frame) let (frame_type_t_pre_post : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> @@ -230,13 +230,13 @@ let (frame_type_t_pre_post : let frame = Pulse_Reflection_Util.mk_name var in Pulse_Reflection_Util.mk_arrow (Pulse_Reflection_Util.slprop_tm, - FStar_Reflection_V2_Data.Q_Explicit) + FStarC_Reflection_V2_Data.Q_Explicit) (FStar_Reflection_Typing.close_term (frame_res u t pre post frame) var) let (frame_type_t_pre : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> @@ -245,15 +245,15 @@ let (frame_type_t_pre : let post = Pulse_Reflection_Util.mk_name var in let post_type = Pulse_Reflection_Util.mk_arrow - (t, FStar_Reflection_V2_Data.Q_Explicit) + (t, FStarC_Reflection_V2_Data.Q_Explicit) Pulse_Reflection_Util.slprop_tm in Pulse_Reflection_Util.mk_arrow - (post_type, FStar_Reflection_V2_Data.Q_Implicit) + (post_type, FStarC_Reflection_V2_Data.Q_Implicit) (FStar_Reflection_Typing.close_term (frame_type_t_pre_post u t pre post) var) let (frame_type_t : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> @@ -261,30 +261,30 @@ let (frame_type_t : let pre = Pulse_Reflection_Util.mk_name var in let pre_type = Pulse_Reflection_Util.slprop_tm in Pulse_Reflection_Util.mk_arrow - (pre_type, FStar_Reflection_V2_Data.Q_Implicit) + (pre_type, FStarC_Reflection_V2_Data.Q_Implicit) (FStar_Reflection_Typing.close_term (frame_type_t_pre u t pre) var) let (frame_type : - FStar_Reflection_Types.universe -> FStar_Reflection_Types.term) = + FStarC_Reflection_Types.universe -> FStarC_Reflection_Types.term) = fun u -> let var = (Prims.of_int (3)) in let t = Pulse_Reflection_Util.mk_name var in let t_type = FStar_Reflection_Typing.tm_type u in Pulse_Reflection_Util.mk_arrow - (t_type, FStar_Reflection_V2_Data.Q_Implicit) + (t_type, FStarC_Reflection_V2_Data.Q_Implicit) (FStar_Reflection_Typing.close_term (frame_type_t u t) var) -let (stt_slprop_post_equiv_fv : FStar_Reflection_Types.fv) = - FStar_Reflection_V2_Builtins.pack_fv +let (stt_slprop_post_equiv_fv : FStarC_Reflection_Types.fv) = + FStarC_Reflection_V2_Builtins.pack_fv (Pulse_Reflection_Util.mk_pulse_lib_core_lid "slprop_post_equiv") let (stt_slprop_post_equiv_univ_inst : - FStar_Reflection_Types.universe -> FStar_Reflection_Types.term) = + FStarC_Reflection_Types.universe -> FStarC_Reflection_Types.term) = fun u -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst (stt_slprop_post_equiv_fv, [u])) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst (stt_slprop_post_equiv_fv, [u])) let (stt_slprop_post_equiv : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> @@ -292,26 +292,26 @@ let (stt_slprop_post_equiv : fun t2 -> FStar_Reflection_V2_Derived.mk_app (stt_slprop_post_equiv_univ_inst u) - [(t, FStar_Reflection_V2_Data.Q_Implicit); - (t1, FStar_Reflection_V2_Data.Q_Explicit); - (t2, FStar_Reflection_V2_Data.Q_Explicit)] + [(t, FStarC_Reflection_V2_Data.Q_Implicit); + (t1, FStarC_Reflection_V2_Data.Q_Explicit); + (t2, FStarC_Reflection_V2_Data.Q_Explicit)] let (sub_stt_res : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> fun pre -> fun post -> Pulse_Reflection_Util.mk_stt_comp u t pre post let sub_stt_equiv_post : 'uuuuu . - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> 'uuuuu -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term = fun u -> fun t -> @@ -321,15 +321,15 @@ let sub_stt_equiv_post : fun post2 -> Pulse_Reflection_Util.mk_arrow ((stt_slprop_post_equiv u t post1 post2), - FStar_Reflection_V2_Data.Q_Explicit) + FStarC_Reflection_V2_Data.Q_Explicit) (sub_stt_res u t pre2 post2) let (sub_stt_equiv_pre : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> @@ -339,14 +339,14 @@ let (sub_stt_equiv_pre : fun post2 -> Pulse_Reflection_Util.mk_arrow ((Pulse_Reflection_Util.stt_slprop_equiv pre1 pre2), - FStar_Reflection_V2_Data.Q_Explicit) + FStarC_Reflection_V2_Data.Q_Explicit) (sub_stt_equiv_post u t pre1 pre2 post1 post2) let (sub_stt_post2 : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> @@ -357,17 +357,17 @@ let (sub_stt_post2 : let post2 = Pulse_Reflection_Util.mk_name var in let post2_type = Pulse_Reflection_Util.mk_arrow - (t, FStar_Reflection_V2_Data.Q_Explicit) + (t, FStarC_Reflection_V2_Data.Q_Explicit) Pulse_Reflection_Util.slprop_tm in Pulse_Reflection_Util.mk_arrow - (post2_type, FStar_Reflection_V2_Data.Q_Explicit) + (post2_type, FStarC_Reflection_V2_Data.Q_Explicit) (FStar_Reflection_Typing.close_term (sub_stt_equiv_pre u t pre1 pre2 post1 post2) var) let (sub_stt_pre2 : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> @@ -377,13 +377,13 @@ let (sub_stt_pre2 : let pre2 = Pulse_Reflection_Util.mk_name var in let pre2_type = Pulse_Reflection_Util.slprop_tm in Pulse_Reflection_Util.mk_arrow - (pre2_type, FStar_Reflection_V2_Data.Q_Explicit) + (pre2_type, FStarC_Reflection_V2_Data.Q_Explicit) (FStar_Reflection_Typing.close_term (sub_stt_post2 u t pre1 post1 pre2) var) let (sub_stt_post1 : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> @@ -392,15 +392,15 @@ let (sub_stt_post1 : let post1 = Pulse_Reflection_Util.mk_name var in let post1_type = Pulse_Reflection_Util.mk_arrow - (t, FStar_Reflection_V2_Data.Q_Explicit) + (t, FStarC_Reflection_V2_Data.Q_Explicit) Pulse_Reflection_Util.slprop_tm in Pulse_Reflection_Util.mk_arrow - (post1_type, FStar_Reflection_V2_Data.Q_Explicit) + (post1_type, FStarC_Reflection_V2_Data.Q_Explicit) (FStar_Reflection_Typing.close_term (sub_stt_pre2 u t pre1 post1) var) let (sub_stt_pre1 : - FStar_Reflection_Types.universe -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.universe -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun u -> fun t -> @@ -408,16 +408,16 @@ let (sub_stt_pre1 : let pre1 = Pulse_Reflection_Util.mk_name var in let pre1_type = Pulse_Reflection_Util.slprop_tm in Pulse_Reflection_Util.mk_arrow - (pre1_type, FStar_Reflection_V2_Data.Q_Explicit) + (pre1_type, FStarC_Reflection_V2_Data.Q_Explicit) (FStar_Reflection_Typing.close_term (sub_stt_post1 u t pre1) var) let (sub_stt_type : - FStar_Reflection_Types.universe -> FStar_Reflection_Types.term) = + FStarC_Reflection_Types.universe -> FStarC_Reflection_Types.term) = fun u -> let var = (Prims.of_int (4)) in let t = Pulse_Reflection_Util.mk_name var in let ty_typ = FStar_Reflection_Typing.tm_type u in Pulse_Reflection_Util.mk_arrow - (ty_typ, FStar_Reflection_V2_Data.Q_Explicit) + (ty_typ, FStarC_Reflection_V2_Data.Q_Explicit) (FStar_Reflection_Typing.close_term (sub_stt_pre1 u t) var) type 'f has_stt_bindings = unit type stt_env = Pulse_Typing_Env.env @@ -426,15 +426,15 @@ let (check_top_level_environment : stt_env FStar_Pervasives_Native.option) = fun f -> FStar_Pervasives_Native.Some (Pulse_Typing_Env.mk_env f) let (elab_comp_post : - Pulse_Syntax_Base.comp_st -> FStar_Reflection_Types.term) = + Pulse_Syntax_Base.comp_st -> FStarC_Reflection_Types.term) = fun c -> let t = Pulse_Syntax_Base.comp_res c in let post = Pulse_Syntax_Base.comp_post c in - Pulse_Reflection_Util.mk_abs t FStar_Reflection_V2_Data.Q_Explicit post + Pulse_Reflection_Util.mk_abs t FStarC_Reflection_V2_Data.Q_Explicit post let (comp_post_type : - Pulse_Syntax_Base.comp_st -> FStar_Reflection_Types.term) = + Pulse_Syntax_Base.comp_st -> FStarC_Reflection_Types.term) = fun c -> let t = Pulse_Syntax_Base.comp_res c in - Pulse_Reflection_Util.mk_arrow (t, FStar_Reflection_V2_Data.Q_Explicit) + Pulse_Reflection_Util.mk_arrow (t, FStarC_Reflection_V2_Data.Q_Explicit) Pulse_Reflection_Util.slprop_tm type ('a, 'd) soundness_t = unit \ No newline at end of file diff --git a/src/ocaml/plugin/generated/Pulse_Soundness_Match.ml b/src/ocaml/plugin/generated/Pulse_Soundness_Match.ml index 2dd21292b..65f7bc7d4 100644 --- a/src/ocaml/plugin/generated/Pulse_Soundness_Match.ml +++ b/src/ocaml/plugin/generated/Pulse_Soundness_Match.ml @@ -8,7 +8,7 @@ let (complete_soundness : Pulse_Syntax_Base.comp_st -> (unit, unit, unit, unit, unit, unit) Pulse_Typing.brs_typing -> (unit, unit, unit, unit) Pulse_Typing.pats_complete -> - FStar_Reflection_V2_Data.binding Prims.list Prims.list -> + FStarC_Reflection_V2_Data.binding Prims.list Prims.list -> (unit, unit, unit, unit, unit) FStar_Reflection_Typing.match_is_complete) = diff --git a/src/ocaml/plugin/generated/Pulse_Soundness_SLPropEquiv.ml b/src/ocaml/plugin/generated/Pulse_Soundness_SLPropEquiv.ml index 3d74762db..f0005b9f7 100644 --- a/src/ocaml/plugin/generated/Pulse_Soundness_SLPropEquiv.ml +++ b/src/ocaml/plugin/generated/Pulse_Soundness_SLPropEquiv.ml @@ -1,53 +1,53 @@ open Prims -let (slprop_equiv_refl_type : FStar_Reflection_Types.term) = +let (slprop_equiv_refl_type : FStarC_Reflection_Types.term) = let var = Prims.int_zero in let v = Pulse_Reflection_Util.mk_name var in Pulse_Reflection_Util.mk_arrow - (Pulse_Syntax_Pure.tm_slprop, FStar_Reflection_V2_Data.Q_Explicit) + (Pulse_Syntax_Pure.tm_slprop, FStarC_Reflection_V2_Data.Q_Explicit) (FStar_Reflection_Typing.close_term (Pulse_Reflection_Util.stt_slprop_equiv v v) var) -let (slprop_equiv_sym_type : FStar_Reflection_Types.term) = +let (slprop_equiv_sym_type : FStarC_Reflection_Types.term) = let var0 = Prims.int_zero in let v0 = Pulse_Reflection_Util.mk_name var0 in let var1 = Prims.int_one in let v1 = Pulse_Reflection_Util.mk_name var1 in Pulse_Reflection_Util.mk_arrow - (Pulse_Syntax_Pure.tm_slprop, FStar_Reflection_V2_Data.Q_Implicit) + (Pulse_Syntax_Pure.tm_slprop, FStarC_Reflection_V2_Data.Q_Implicit) (FStar_Reflection_Typing.close_term (Pulse_Reflection_Util.mk_arrow - (Pulse_Syntax_Pure.tm_slprop, FStar_Reflection_V2_Data.Q_Implicit) + (Pulse_Syntax_Pure.tm_slprop, FStarC_Reflection_V2_Data.Q_Implicit) (FStar_Reflection_Typing.close_term (Pulse_Reflection_Util.mk_arrow ((Pulse_Reflection_Util.stt_slprop_equiv v0 v1), - FStar_Reflection_V2_Data.Q_Explicit) + FStarC_Reflection_V2_Data.Q_Explicit) (Pulse_Reflection_Util.stt_slprop_equiv v0 v1)) var1)) var0) -let (slprop_tm : FStar_Reflection_Types.term) = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.slprop_lid)) -let (slprop_equiv_ext_type : FStar_Reflection_Types.term) = +let (slprop_tm : FStarC_Reflection_Types.term) = + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.slprop_lid)) +let (slprop_equiv_ext_type : FStarC_Reflection_Types.term) = let v_typ = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.slprop_lid)) in let mk_bv index = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_BVar - (FStar_Reflection_V2_Builtins.pack_bv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_BVar + (FStarC_Reflection_V2_Builtins.pack_bv { - FStar_Reflection_V2_Data.index = index; - FStar_Reflection_V2_Data.sort1 = + FStarC_Reflection_V2_Data.index = index; + FStarC_Reflection_V2_Data.sort1 = (FStar_Sealed.seal Pulse_Reflection_Util.tun); - FStar_Reflection_V2_Data.ppname1 = + FStarC_Reflection_V2_Data.ppname1 = FStar_Reflection_Typing.pp_name_default })) in Pulse_Reflection_Util.mk_arrow - (slprop_tm, FStar_Reflection_V2_Data.Q_Explicit) + (slprop_tm, FStarC_Reflection_V2_Data.Q_Explicit) (Pulse_Reflection_Util.mk_arrow - (slprop_tm, FStar_Reflection_V2_Data.Q_Explicit) + (slprop_tm, FStarC_Reflection_V2_Data.Q_Explicit) (Pulse_Reflection_Util.mk_arrow ((Pulse_Reflection_Util.slprop_eq_tm (mk_bv Prims.int_one) - (mk_bv Prims.int_zero)), FStar_Reflection_V2_Data.Q_Explicit) + (mk_bv Prims.int_zero)), FStarC_Reflection_V2_Data.Q_Explicit) (Pulse_Reflection_Util.stt_slprop_equiv (mk_bv (Prims.of_int (2))) (mk_bv Prims.int_one)))) \ No newline at end of file diff --git a/src/ocaml/plugin/generated/Pulse_Soundness_STEquiv.ml b/src/ocaml/plugin/generated/Pulse_Soundness_STEquiv.ml index 02a350d3b..7a21cf29b 100644 --- a/src/ocaml/plugin/generated/Pulse_Soundness_STEquiv.ml +++ b/src/ocaml/plugin/generated/Pulse_Soundness_STEquiv.ml @@ -1,20 +1,20 @@ open Prims -let (app0 : FStar_Reflection_Types.term -> FStar_Reflection_Types.term) = +let (app0 : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun t -> FStar_Reflection_V2_Derived.mk_app t [((Pulse_Reflection_Util.bound_var Prims.int_zero), - FStar_Reflection_V2_Data.Q_Explicit)] + FStarC_Reflection_V2_Data.Q_Explicit)] let (abs_and_app0 : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun ty -> fun b -> FStar_Reflection_V2_Derived.mk_app - (Pulse_Reflection_Util.mk_abs ty FStar_Reflection_V2_Data.Q_Explicit + (Pulse_Reflection_Util.mk_abs ty FStarC_Reflection_V2_Data.Q_Explicit b) [((Pulse_Reflection_Util.bound_var Prims.int_zero), - FStar_Reflection_V2_Data.Q_Explicit)] + FStarC_Reflection_V2_Data.Q_Explicit)] let (slprop_arrow : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term) = fun t -> Pulse_Syntax_Pure.tm_arrow (Pulse_Syntax_Base.null_binder t) diff --git a/src/ocaml/plugin/generated/Pulse_Syntax_Base.ml b/src/ocaml/plugin/generated/Pulse_Syntax_Base.ml index 6cbd6c210..1d9054365 100644 --- a/src/ocaml/plugin/generated/Pulse_Syntax_Base.ml +++ b/src/ocaml/plugin/generated/Pulse_Syntax_Base.ml @@ -1,8 +1,8 @@ open Prims -type constant = FStar_Reflection_V2_Data.vconst +type constant = FStarC_Reflection_V2_Data.vconst type var = Prims.nat type index = Prims.nat -type universe = FStar_Reflection_Types.universe +type universe = FStarC_Reflection_Types.universe type 'r range_singleton_trigger = unit type range = FStar_Range.range type ppname = { @@ -46,15 +46,15 @@ let (uu___is_Implicit : qualifier -> Prims.bool) = let (uu___is_TcArg : qualifier -> Prims.bool) = fun projectee -> match projectee with | TcArg -> true | uu___ -> false type fv = { - fv_name: FStar_Reflection_Types.name ; + fv_name: FStarC_Reflection_Types.name ; fv_range: range } -let (__proj__Mkfv__item__fv_name : fv -> FStar_Reflection_Types.name) = +let (__proj__Mkfv__item__fv_name : fv -> FStarC_Reflection_Types.name) = fun projectee -> match projectee with | { fv_name; fv_range;_} -> fv_name let (__proj__Mkfv__item__fv_range : fv -> range) = fun projectee -> match projectee with | { fv_name; fv_range;_} -> fv_range -let (as_fv : FStar_Reflection_Types.name -> fv) = +let (as_fv : FStarC_Reflection_Types.name -> fv) = fun l -> { fv_name = l; fv_range = FStar_Range.range_0 } -type term = FStar_Reflection_Types.term +type term = FStarC_Reflection_Types.term type slprop = term type typ = term type binder = @@ -527,13 +527,13 @@ let uu___is_Tm_WithInv uu___ = type branch = (pattern * st_term) type fn_defn = { - id: FStar_Reflection_Types.ident ; + id: FStarC_Reflection_Types.ident ; isrec: Prims.bool ; bs: (qualifier FStar_Pervasives_Native.option * binder * bv) Prims.list ; comp: comp ; meas: term FStar_Pervasives_Native.option ; body7: st_term } -let (__proj__Mkfn_defn__item__id : fn_defn -> FStar_Reflection_Types.ident) = +let (__proj__Mkfn_defn__item__id : fn_defn -> FStarC_Reflection_Types.ident) = fun projectee -> match projectee with | { id; isrec; bs; comp = comp1; meas; body7 = body;_} -> id @@ -563,10 +563,10 @@ let (__proj__Mkfn_defn__item__body : fn_defn -> st_term) = | { id; isrec; bs; comp = comp1; meas; body7 = body;_} -> body type fn_decl = { - id1: FStar_Reflection_Types.ident ; + id1: FStarC_Reflection_Types.ident ; bs1: (qualifier FStar_Pervasives_Native.option * binder * bv) Prims.list ; comp1: comp_st } -let (__proj__Mkfn_decl__item__id : fn_decl -> FStar_Reflection_Types.ident) = +let (__proj__Mkfn_decl__item__id : fn_decl -> FStarC_Reflection_Types.ident) = fun projectee -> match projectee with | { id1 = id; bs1 = bs; comp1;_} -> id let (__proj__Mkfn_decl__item__bs : @@ -696,8 +696,8 @@ let (eq_binder : binder -> binder -> Prims.bool) = let (eq_tm_list : term Prims.list -> term Prims.list -> Prims.bool) = fun t1 -> fun t2 -> eq_list eq_tm t1 t2 let (fstar_const_eq : - FStar_Reflection_V2_Data.vconst -> - FStar_Reflection_V2_Data.vconst -> Prims.bool) + FStarC_Reflection_V2_Data.vconst -> + FStarC_Reflection_V2_Data.vconst -> Prims.bool) = fun c1 -> fun c2 -> @@ -883,7 +883,7 @@ let (with_st_comp : comp -> st_comp -> comp) = | C_STAtomic (inames, obs, uu___) -> C_STAtomic (inames, obs, s) | C_STGhost (inames, uu___) -> C_STGhost (inames, s) let (comp_u : comp -> universe) = fun c -> (st_comp_of_comp c).u -let (universe_of_comp : comp_st -> FStar_Reflection_Types.universe) = +let (universe_of_comp : comp_st -> FStarC_Reflection_Types.universe) = fun c -> match c with | C_ST uu___ -> FStar_Reflection_Typing.u_zero diff --git a/src/ocaml/plugin/generated/Pulse_Syntax_Builder.ml b/src/ocaml/plugin/generated/Pulse_Syntax_Builder.ml index cb2e3ae1f..0cc06ecd5 100644 --- a/src/ocaml/plugin/generated/Pulse_Syntax_Builder.ml +++ b/src/ocaml/plugin/generated/Pulse_Syntax_Builder.ml @@ -12,18 +12,18 @@ let map_opt : let (thunk : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term) = fun t -> let b = - FStar_Reflection_V2_Builtins.pack_binder + FStarC_Reflection_V2_Builtins.pack_binder { - FStar_Reflection_V2_Data.sort2 = - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv ["Prims"; "unit"]))); - FStar_Reflection_V2_Data.qual = FStar_Reflection_V2_Data.Q_Explicit; - FStar_Reflection_V2_Data.attrs = []; - FStar_Reflection_V2_Data.ppname2 = (FStar_Sealed.seal "_") + FStarC_Reflection_V2_Data.sort2 = + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "unit"]))); + FStarC_Reflection_V2_Data.qual = FStarC_Reflection_V2_Data.Q_Explicit; + FStarC_Reflection_V2_Data.attrs = []; + FStarC_Reflection_V2_Data.ppname2 = (FStar_Sealed.seal "_") } in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Abs (b, t)) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Abs (b, t)) let (pat_var : FStar_Reflection_Typing.pp_name_t -> FStar_Reflection_Typing.sort_t -> Pulse_Syntax_Base.pattern) @@ -208,8 +208,8 @@ let (tm_with_inv : } let tm_add_inv : 'uuuuu . - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> 'uuuuu -> FStar_Reflection_Types.term + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> 'uuuuu -> FStarC_Reflection_Types.term = fun names -> fun n -> fun r -> Pulse_Syntax_Pure.tm_add_inv names n let (tm_with_local : Pulse_Syntax_Base.binder -> @@ -341,7 +341,7 @@ let (mk_rewrite_hint_type : Pulse_Syntax_Base.tac_opt1 = (map_opt tac_opt thunk) } let (mk_fn_defn : - FStar_Reflection_Types.ident -> + FStarC_Reflection_Types.ident -> Prims.bool -> (Pulse_Syntax_Base.qualifier FStar_Pervasives_Native.option * Pulse_Syntax_Base.binder * Pulse_Syntax_Base.bv) Prims.list -> @@ -365,7 +365,7 @@ let (mk_fn_defn : Pulse_Syntax_Base.body7 = body } let (mk_fn_decl : - FStar_Reflection_Types.ident -> + FStarC_Reflection_Types.ident -> (Pulse_Syntax_Base.qualifier FStar_Pervasives_Native.option * Pulse_Syntax_Base.binder * Pulse_Syntax_Base.bv) Prims.list -> Pulse_Syntax_Base.comp_st -> Pulse_Syntax_Base.decl') diff --git a/src/ocaml/plugin/generated/Pulse_Syntax_Naming.ml b/src/ocaml/plugin/generated/Pulse_Syntax_Naming.ml index f47abad59..d258fba63 100644 --- a/src/ocaml/plugin/generated/Pulse_Syntax_Naming.ml +++ b/src/ocaml/plugin/generated/Pulse_Syntax_Naming.ml @@ -471,24 +471,24 @@ let (shift_subst : FStar_Reflection_Typing.subst_elt Prims.list -> FStar_Reflection_Typing.subst_elt Prims.list) = FStar_Reflection_Typing.shift_subst -let (r_subst_of_rt_subst_elt : subst_elt -> FStar_Syntax_Syntax.subst_elt) = +let (r_subst_of_rt_subst_elt : subst_elt -> FStarC_Syntax_Syntax.subst_elt) = fun x -> match x with | FStar_Reflection_Typing.DT (i, t) -> - (match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_Var n -> FStar_Syntax_Syntax.DB (i, n) - | uu___ -> FStar_Syntax_Syntax.DT (i, t)) + (match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_Var n -> FStarC_Syntax_Syntax.DB (i, n) + | uu___ -> FStarC_Syntax_Syntax.DT (i, t)) | FStar_Reflection_Typing.NT (x1, t) -> - FStar_Syntax_Syntax.NT + FStarC_Syntax_Syntax.NT ((FStar_Reflection_Typing.var_as_namedv x1), t) | FStar_Reflection_Typing.ND (x1, i) -> - FStar_Syntax_Syntax.NM + FStarC_Syntax_Syntax.NM ((FStar_Reflection_Typing.var_as_namedv x1), i) let (subst_host_term' : - Pulse_Syntax_Base.term -> subst -> FStar_Reflection_Types.term) = + Pulse_Syntax_Base.term -> subst -> FStarC_Reflection_Types.term) = fun t -> fun ss -> - FStar_Reflection_V2_Builtins.subst_term + FStarC_Reflection_V2_Builtins.subst_term (FStar_List_Tot_Base.map r_subst_of_rt_subst_elt ss) t let (subst_host_term : Pulse_Syntax_Base.term -> subst -> Pulse_Syntax_Base.term) = @@ -1054,7 +1054,7 @@ let (close_term_list' : fun v -> fun i -> subst_term_list t [FStar_Reflection_Typing.ND (v, i)] let (close_binder : Pulse_Syntax_Base.binder -> - FStar_Reflection_V2_Data.var -> Prims.nat -> Pulse_Syntax_Base.binder) + FStarC_Reflection_V2_Data.var -> Prims.nat -> Pulse_Syntax_Base.binder) = fun b -> fun v -> fun i -> subst_binder b [FStar_Reflection_Typing.ND (v, i)] diff --git a/src/ocaml/plugin/generated/Pulse_Syntax_Printer.ml b/src/ocaml/plugin/generated/Pulse_Syntax_Printer.ml index 5a605b16e..cb73d4bc1 100644 --- a/src/ocaml/plugin/generated/Pulse_Syntax_Printer.ml +++ b/src/ocaml/plugin/generated/Pulse_Syntax_Printer.ml @@ -1,31 +1,31 @@ open Prims let (tot_or_ghost_to_string : - FStar_TypeChecker_Core.tot_or_ghost -> Prims.string) = + FStarC_TypeChecker_Core.tot_or_ghost -> Prims.string) = fun uu___ -> match uu___ with - | FStar_TypeChecker_Core.E_Total -> "total" - | FStar_TypeChecker_Core.E_Ghost -> "ghost" -let (name_to_string : FStar_Reflection_Types.name -> Prims.string) = + | FStarC_TypeChecker_Core.E_Total -> "total" + | FStarC_TypeChecker_Core.E_Ghost -> "ghost" +let (name_to_string : FStarC_Reflection_Types.name -> Prims.string) = fun f -> FStar_String.concat "." f let (dbg_printing : Prims.bool) = true let rec (universe_to_string : Prims.nat -> Pulse_Syntax_Base.universe -> Prims.string) = fun n -> fun u -> - match FStar_Reflection_V2_Builtins.inspect_universe u with - | FStar_Reflection_V2_Data.Uv_Unk -> "_" - | FStar_Reflection_V2_Data.Uv_Zero -> + match FStarC_Reflection_V2_Builtins.inspect_universe u with + | FStarC_Reflection_V2_Data.Uv_Unk -> "_" + | FStarC_Reflection_V2_Data.Uv_Zero -> Prims.strcat "" (Prims.strcat (Prims.string_of_int n) "") - | FStar_Reflection_V2_Data.Uv_Succ u1 -> + | FStarC_Reflection_V2_Data.Uv_Succ u1 -> universe_to_string (n + Prims.int_one) u1 - | FStar_Reflection_V2_Data.Uv_BVar x -> + | FStarC_Reflection_V2_Data.Uv_BVar x -> if n = Prims.int_zero then Prims.strcat "" (Prims.strcat (Prims.string_of_int x) "") else Prims.strcat (Prims.strcat "(" (Prims.strcat (Prims.string_of_int x) " + ")) (Prims.strcat (Prims.string_of_int n) ")") - | FStar_Reflection_V2_Data.Uv_Max us -> + | FStarC_Reflection_V2_Data.Uv_Max us -> let r = "(max _)" in if n = Prims.int_zero then r @@ -778,13 +778,13 @@ and (term_to_string' : uu___1))) | Pulse_Syntax_Pure.Tm_FStar t1 -> Obj.magic - (Obj.repr (FStar_Tactics_V2_Builtins.term_to_string t1))) + (Obj.repr (FStarC_Tactics_V2_Builtins.term_to_string t1))) uu___1 uu___ let (term_to_string : Pulse_Syntax_Base.term -> (Prims.string, unit) FStar_Tactics_Effect.tac_repr) = fun t -> term_to_string' "" t -let (star_doc : FStar_Pprint.document) = FStar_Pprint.doc_of_string "**" +let (star_doc : FStarC_Pprint.document) = FStarC_Pprint.doc_of_string "**" let rec fold_right1 : 'a . ('a -> 'a -> ('a, unit) FStar_Tactics_Effect.tac_repr) -> @@ -847,7 +847,7 @@ let (should_paren_term : | uu___3 -> false)) let rec (binder_to_doc : Pulse_Syntax_Base.binder -> - (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) + (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) = fun b -> let uu___ = @@ -869,7 +869,7 @@ let rec (binder_to_doc : (Obj.magic uu___2) (fun uu___3 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___4 -> FStar_Pprint.doc_of_string uu___3)) in + (fun uu___4 -> FStarC_Pprint.doc_of_string uu___3)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -900,8 +900,8 @@ let rec (binder_to_doc : (fun uu___5 -> FStar_Tactics_Effect.lift_div_tac (fun uu___6 -> - FStar_Pprint.op_Hat_Hat - (FStar_Pprint.doc_of_string ":") uu___5)) in + FStarC_Pprint.op_Hat_Hat + (FStarC_Pprint.doc_of_string ":") uu___5)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -917,7 +917,7 @@ let rec (binder_to_doc : (Obj.magic uu___3) (fun uu___4 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___5 -> FStar_Pprint.op_Hat_Hat uu___2 uu___4)))) + (fun uu___5 -> FStarC_Pprint.op_Hat_Hat uu___2 uu___4)))) uu___2) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -932,10 +932,10 @@ let rec (binder_to_doc : (Prims.of_int (37))))) (Obj.magic uu___) (fun uu___1 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___2 -> FStar_Pprint.parens uu___1)) + (fun uu___2 -> FStarC_Pprint.parens uu___1)) and (term_to_doc : Pulse_Syntax_Base.term -> - (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) + (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> (fun t -> @@ -944,7 +944,7 @@ and (term_to_doc : Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac - (fun uu___ -> FStar_Pprint.doc_of_string "emp"))) + (fun uu___ -> FStarC_Pprint.doc_of_string "emp"))) | Pulse_Syntax_Pure.Tm_Pure p -> Obj.magic (Obj.repr @@ -964,7 +964,7 @@ and (term_to_doc : (Obj.magic uu___1) (fun uu___2 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___3 -> FStar_Pprint.parens uu___2)) in + (fun uu___3 -> FStarC_Pprint.parens uu___2)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -980,8 +980,8 @@ and (term_to_doc : (fun uu___1 -> FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> - FStar_Pprint.op_Hat_Hat - (FStar_Pprint.doc_of_string "pure ") uu___1)))) + FStarC_Pprint.op_Hat_Hat + (FStarC_Pprint.doc_of_string "pure ") uu___1)))) | Pulse_Syntax_Pure.Tm_Star (uu___, uu___1) -> Obj.magic (Obj.repr @@ -1054,7 +1054,7 @@ and (term_to_doc : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.parens + FStarC_Pprint.parens uu___8))) else Obj.magic (term_to_doc t1)) uu___6))) in @@ -1113,11 +1113,11 @@ and (term_to_doc : (FStar_Tactics_Effect.lift_div_tac (fun uu___6 -> - FStar_Pprint.op_Hat_Slash_Hat - (FStar_Pprint.op_Hat_Hat + FStarC_Pprint.op_Hat_Slash_Hat + (FStarC_Pprint.op_Hat_Hat p - (FStar_Pprint.op_Hat_Hat - (FStar_Pprint.doc_of_string + (FStarC_Pprint.op_Hat_Hat + (FStarC_Pprint.doc_of_string " ") star_doc)) q))) @@ -1144,7 +1144,7 @@ and (term_to_doc : (fun uu___6 -> FStar_Tactics_Effect.lift_div_tac (fun uu___7 -> - FStar_Pprint.group + FStarC_Pprint.group uu___6)))) uu___5))) uu___4))) uu___3))) | Pulse_Syntax_Pure.Tm_ExistsSL (uu___, uu___1, uu___2) -> @@ -1198,8 +1198,8 @@ and (term_to_doc : (fun uu___9 -> FStar_Tactics_Effect.lift_div_tac (fun uu___10 -> - FStar_Pprint.separate - (FStar_Pprint.doc_of_string + FStarC_Pprint.separate + (FStarC_Pprint.doc_of_string " ") uu___9)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1222,7 +1222,7 @@ and (term_to_doc : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.group uu___8)) in + FStarC_Pprint.group uu___8)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1244,7 +1244,7 @@ and (term_to_doc : (fun uu___7 -> FStar_Tactics_Effect.lift_div_tac (fun uu___8 -> - FStar_Pprint.align uu___7)) in + FStarC_Pprint.align uu___7)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1289,17 +1289,17 @@ and (term_to_doc : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one - (FStar_Pprint.op_Hat_Hat - (FStar_Pprint.prefix + (FStarC_Pprint.op_Hat_Hat + (FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one - (FStar_Pprint.doc_of_string + (FStarC_Pprint.doc_of_string "exists*") bs_doc) - FStar_Pprint.dot) + FStarC_Pprint.dot) uu___8)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1323,7 +1323,7 @@ and (term_to_doc : (fun uu___7 -> FStar_Tactics_Effect.lift_div_tac (fun uu___8 -> - FStar_Pprint.parens + FStarC_Pprint.parens uu___7)))) uu___6))) uu___4))) | Pulse_Syntax_Pure.Tm_ForallSL (uu___, uu___1, uu___2) -> @@ -1377,8 +1377,8 @@ and (term_to_doc : (fun uu___9 -> FStar_Tactics_Effect.lift_div_tac (fun uu___10 -> - FStar_Pprint.separate - (FStar_Pprint.doc_of_string + FStarC_Pprint.separate + (FStarC_Pprint.doc_of_string " ") uu___9)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1401,7 +1401,7 @@ and (term_to_doc : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.group uu___8)) in + FStarC_Pprint.group uu___8)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1423,7 +1423,7 @@ and (term_to_doc : (fun uu___7 -> FStar_Tactics_Effect.lift_div_tac (fun uu___8 -> - FStar_Pprint.align uu___7)) in + FStarC_Pprint.align uu___7)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1468,17 +1468,17 @@ and (term_to_doc : (fun uu___8 -> FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one - (FStar_Pprint.op_Hat_Hat - (FStar_Pprint.prefix + (FStarC_Pprint.op_Hat_Hat + (FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one - (FStar_Pprint.doc_of_string + (FStarC_Pprint.doc_of_string "forall*") bs_doc) - FStar_Pprint.dot) + FStarC_Pprint.dot) uu___8)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1502,24 +1502,24 @@ and (term_to_doc : (fun uu___7 -> FStar_Tactics_Effect.lift_div_tac (fun uu___8 -> - FStar_Pprint.parens + FStarC_Pprint.parens uu___7)))) uu___6))) uu___4))) | Pulse_Syntax_Pure.Tm_SLProp -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac - (fun uu___ -> FStar_Pprint.doc_of_string "slprop"))) + (fun uu___ -> FStarC_Pprint.doc_of_string "slprop"))) | Pulse_Syntax_Pure.Tm_Inames -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac - (fun uu___ -> FStar_Pprint.doc_of_string "inames"))) + (fun uu___ -> FStarC_Pprint.doc_of_string "inames"))) | Pulse_Syntax_Pure.Tm_EmpInames -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac - (fun uu___ -> FStar_Pprint.doc_of_string "emp_inames"))) + (fun uu___ -> FStarC_Pprint.doc_of_string "emp_inames"))) | Pulse_Syntax_Pure.Tm_Inv (i, p) -> Obj.magic (Obj.repr @@ -1563,7 +1563,7 @@ and (term_to_doc : (fun uu___6 -> FStar_Tactics_Effect.lift_div_tac (fun uu___7 -> - FStar_Pprint.parens uu___6)) in + FStarC_Pprint.parens uu___6)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1585,8 +1585,8 @@ and (term_to_doc : (fun uu___5 -> FStar_Tactics_Effect.lift_div_tac (fun uu___6 -> - FStar_Pprint.op_Hat_Hat - (FStar_Pprint.doc_of_string " ") + FStarC_Pprint.op_Hat_Hat + (FStarC_Pprint.doc_of_string " ") uu___5)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1610,7 +1610,7 @@ and (term_to_doc : (fun uu___4 -> FStar_Tactics_Effect.lift_div_tac (fun uu___5 -> - FStar_Pprint.op_Hat_Hat uu___2 uu___4)))) + FStarC_Pprint.op_Hat_Hat uu___2 uu___4)))) uu___2) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1627,15 +1627,15 @@ and (term_to_doc : (fun uu___1 -> FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> - FStar_Pprint.op_Hat_Hat - (FStar_Pprint.doc_of_string "inv ") uu___1)))) + FStarC_Pprint.op_Hat_Hat + (FStarC_Pprint.doc_of_string "inv ") uu___1)))) | Pulse_Syntax_Pure.Tm_Unknown -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac - (fun uu___ -> FStar_Pprint.doc_of_string "_"))) + (fun uu___ -> FStarC_Pprint.doc_of_string "_"))) | Pulse_Syntax_Pure.Tm_FStar t1 -> - Obj.magic (Obj.repr (FStar_Tactics_V2_Builtins.term_to_doc t1))) + Obj.magic (Obj.repr (FStarC_Tactics_V2_Builtins.term_to_doc t1))) uu___ let (binder_to_string : Pulse_Syntax_Base.binder -> @@ -5776,7 +5776,7 @@ let (decl_to_string : (fun uu___6 -> Prims.strcat (FStar_Pervasives_Native.fst - (FStar_Reflection_V2_Builtins.inspect_ident id)) + (FStarC_Reflection_V2_Builtins.inspect_ident id)) uu___5)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -5864,7 +5864,7 @@ let (decl_to_string : (fun uu___4 -> Prims.strcat (FStar_Pervasives_Native.fst - (FStar_Reflection_V2_Builtins.inspect_ident id)) + (FStarC_Reflection_V2_Builtins.inspect_ident id)) uu___3)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal diff --git a/src/ocaml/plugin/generated/Pulse_Syntax_Pure.ml b/src/ocaml/plugin/generated/Pulse_Syntax_Pure.ml index 23e17c4b6..e1e44ba77 100644 --- a/src/ocaml/plugin/generated/Pulse_Syntax_Pure.ml +++ b/src/ocaml/plugin/generated/Pulse_Syntax_Pure.ml @@ -11,40 +11,40 @@ let op_let_Question : | FStar_Pervasives_Native.None -> FStar_Pervasives_Native.None | FStar_Pervasives_Native.Some x -> g x let (u0 : Pulse_Syntax_Base.universe) = - FStar_Reflection_V2_Builtins.pack_universe FStar_Reflection_V2_Data.Uv_Zero + FStarC_Reflection_V2_Builtins.pack_universe FStarC_Reflection_V2_Data.Uv_Zero let (u1 : Pulse_Syntax_Base.universe) = - FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Succ u0) + FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Succ u0) let (u2 : Pulse_Syntax_Base.universe) = - FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Succ u1) + FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Succ u1) let (u_zero : Pulse_Syntax_Base.universe) = u0 let (u_one : Pulse_Syntax_Base.universe) = u1 let (u_succ : Pulse_Syntax_Base.universe -> Pulse_Syntax_Base.universe) = fun u -> - FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Succ u) + FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Succ u) let (u_var : Prims.string -> Pulse_Syntax_Base.universe) = fun s -> - FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Name - (FStar_Reflection_V2_Builtins.pack_ident (s, FStar_Range.range_0))) + FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Name + (FStarC_Reflection_V2_Builtins.pack_ident (s, FStar_Range.range_0))) let (u_max : Pulse_Syntax_Base.universe -> Pulse_Syntax_Base.universe -> Pulse_Syntax_Base.universe) = fun u01 -> fun u11 -> - FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Max [u01; u11]) + FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Max [u01; u11]) let (u_unknown : Pulse_Syntax_Base.universe) = - FStar_Reflection_V2_Builtins.pack_universe FStar_Reflection_V2_Data.Uv_Unk + FStarC_Reflection_V2_Builtins.pack_universe FStarC_Reflection_V2_Data.Uv_Unk let (tm_bvar : Pulse_Syntax_Base.bv -> Pulse_Syntax_Base.term) = fun bv -> Pulse_RuntimeUtils.set_range - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_BVar - (FStar_Reflection_V2_Builtins.pack_bv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_BVar + (FStarC_Reflection_V2_Builtins.pack_bv (FStar_Reflection_Typing.make_bv_with_name (bv.Pulse_Syntax_Base.bv_ppname).Pulse_Syntax_Base.name bv.Pulse_Syntax_Base.bv_index)))) @@ -52,9 +52,9 @@ let (tm_bvar : Pulse_Syntax_Base.bv -> Pulse_Syntax_Base.term) = let (tm_var : Pulse_Syntax_Base.nm -> Pulse_Syntax_Base.term) = fun nm -> Pulse_RuntimeUtils.set_range - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Var - (FStar_Reflection_V2_Builtins.pack_namedv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Var + (FStarC_Reflection_V2_Builtins.pack_namedv (FStar_Reflection_Typing.make_namedv_with_name (nm.Pulse_Syntax_Base.nm_ppname).Pulse_Syntax_Base.name nm.Pulse_Syntax_Base.nm_index)))) @@ -62,9 +62,9 @@ let (tm_var : Pulse_Syntax_Base.nm -> Pulse_Syntax_Base.term) = let (tm_fvar : Pulse_Syntax_Base.fv -> Pulse_Syntax_Base.term) = fun l -> Pulse_RuntimeUtils.set_range - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv l.Pulse_Syntax_Base.fv_name))) + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv l.Pulse_Syntax_Base.fv_name))) l.Pulse_Syntax_Base.fv_range let (tm_uinst : Pulse_Syntax_Base.fv -> @@ -73,15 +73,15 @@ let (tm_uinst : fun l -> fun us -> Pulse_RuntimeUtils.set_range - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_UInst - ((FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv l.Pulse_Syntax_Base.fv_name), us))) l.Pulse_Syntax_Base.fv_range let (tm_constant : Pulse_Syntax_Base.constant -> Pulse_Syntax_Base.term) = fun c -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const c) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const c) let (tm_refine : Pulse_Syntax_Base.binder -> Pulse_Syntax_Base.term -> FStar_Range.range -> Pulse_Syntax_Base.term) @@ -94,8 +94,8 @@ let (tm_refine : (b.Pulse_Syntax_Base.binder_ppname).Pulse_Syntax_Base.name b.Pulse_Syntax_Base.binder_ty in Pulse_RuntimeUtils.set_range - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Refine (rb, t))) rng + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Refine (rb, t))) rng let (tm_let : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term -> @@ -109,8 +109,8 @@ let (tm_let : FStar_Reflection_Typing.mk_simple_binder FStar_Reflection_Typing.pp_name_default t in Pulse_RuntimeUtils.set_range - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Let (false, [], rb, e1, e2))) rng + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Let (false, [], rb, e1, e2))) rng let (tm_pureapp : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.qualifier FStar_Pervasives_Native.option -> @@ -126,7 +126,7 @@ let (tm_pureapp : (Pulse_RuntimeUtils.range_of_term head) (Pulse_RuntimeUtils.range_of_term arg)) let (tm_pureabs : - FStar_Reflection_V2_Data.ppname_t -> + FStarC_Reflection_V2_Data.ppname_t -> Pulse_Syntax_Base.term -> Pulse_Syntax_Base.qualifier FStar_Pervasives_Native.option -> Pulse_Syntax_Base.term -> FStar_Range.range -> Pulse_Syntax_Base.term) @@ -208,50 +208,50 @@ let (term_of_no_name_var : Pulse_Syntax_Base.var -> Pulse_Syntax_Base.term) = let (is_bvar : Pulse_Syntax_Base.term -> Prims.nat FStar_Pervasives_Native.option) = fun t -> - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_BVar bv -> - let bv_view = FStar_Reflection_V2_Builtins.inspect_bv bv in - FStar_Pervasives_Native.Some (bv_view.FStar_Reflection_V2_Data.index) + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_BVar bv -> + let bv_view = FStarC_Reflection_V2_Builtins.inspect_bv bv in + FStar_Pervasives_Native.Some (bv_view.FStarC_Reflection_V2_Data.index) | uu___ -> FStar_Pervasives_Native.None let (is_var : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.nm FStar_Pervasives_Native.option) = fun t -> - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_Var nv -> - let nv_view = FStar_Reflection_V2_Builtins.inspect_namedv nv in + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_Var nv -> + let nv_view = FStarC_Reflection_V2_Builtins.inspect_namedv nv in FStar_Pervasives_Native.Some { Pulse_Syntax_Base.nm_index = - (nv_view.FStar_Reflection_V2_Data.uniq); + (nv_view.FStarC_Reflection_V2_Data.uniq); Pulse_Syntax_Base.nm_ppname = (Pulse_Syntax_Base.mk_ppname - nv_view.FStar_Reflection_V2_Data.ppname - (FStar_Reflection_V2_Builtins.range_of_term t)) + nv_view.FStarC_Reflection_V2_Data.ppname + (FStarC_Reflection_V2_Builtins.range_of_term t)) } | uu___ -> FStar_Pervasives_Native.None let (is_fvar : Pulse_Syntax_Base.term -> - (FStar_Reflection_Types.name * Pulse_Syntax_Base.universe Prims.list) + (FStarC_Reflection_Types.name * Pulse_Syntax_Base.universe Prims.list) FStar_Pervasives_Native.option) = fun t -> - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_FVar fv -> + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_FVar fv -> FStar_Pervasives_Native.Some - ((FStar_Reflection_V2_Builtins.inspect_fv fv), []) - | FStar_Reflection_V2_Data.Tv_UInst (fv, us) -> + ((FStarC_Reflection_V2_Builtins.inspect_fv fv), []) + | FStarC_Reflection_V2_Data.Tv_UInst (fv, us) -> FStar_Pervasives_Native.Some - ((FStar_Reflection_V2_Builtins.inspect_fv fv), us) + ((FStarC_Reflection_V2_Builtins.inspect_fv fv), us) | uu___ -> FStar_Pervasives_Native.None let (readback_qual : - FStar_Reflection_V2_Data.aqualv -> + FStarC_Reflection_V2_Data.aqualv -> Pulse_Syntax_Base.qualifier FStar_Pervasives_Native.option) = fun uu___ -> match uu___ with - | FStar_Reflection_V2_Data.Q_Implicit -> + | FStarC_Reflection_V2_Data.Q_Implicit -> FStar_Pervasives_Native.Some Pulse_Syntax_Base.Implicit | uu___1 -> FStar_Pervasives_Native.None let (is_pure_app : @@ -261,8 +261,8 @@ let (is_pure_app : FStar_Pervasives_Native.option) = fun t -> - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_App (hd, (arg, q)) -> + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_App (hd, (arg, q)) -> let q1 = readback_qual q in FStar_Pervasives_Native.Some (hd, q1, arg) | uu___ -> FStar_Pervasives_Native.None @@ -275,7 +275,7 @@ let (leftmost_head : match uu___ with | (hd, uu___1) -> FStar_Pervasives_Native.Some hd let (is_fvar_app : Pulse_Syntax_Base.term -> - (FStar_Reflection_Types.name * Pulse_Syntax_Base.universe Prims.list * + (FStarC_Reflection_Types.name * Pulse_Syntax_Base.universe Prims.list * Pulse_Syntax_Base.qualifier FStar_Pervasives_Native.option * Pulse_Syntax_Base.term FStar_Pervasives_Native.option) FStar_Pervasives_Native.option) @@ -302,19 +302,19 @@ let (is_arrow : = fun t -> match FStar_Reflection_V2_Collect.inspect_ln_unascribe t with - | FStar_Reflection_V2_Data.Tv_Arrow (b, c) -> - let uu___ = FStar_Reflection_V2_Builtins.inspect_binder b in + | FStarC_Reflection_V2_Data.Tv_Arrow (b, c) -> + let uu___ = FStarC_Reflection_V2_Builtins.inspect_binder b in (match uu___ with - | { FStar_Reflection_V2_Data.sort2 = sort; - FStar_Reflection_V2_Data.qual = qual; - FStar_Reflection_V2_Data.attrs = uu___1; - FStar_Reflection_V2_Data.ppname2 = ppname;_} -> + | { FStarC_Reflection_V2_Data.sort2 = sort; + FStarC_Reflection_V2_Data.qual = qual; + FStarC_Reflection_V2_Data.attrs = uu___1; + FStarC_Reflection_V2_Data.ppname2 = ppname;_} -> (match qual with - | FStar_Reflection_V2_Data.Q_Meta uu___2 -> + | FStarC_Reflection_V2_Data.Q_Meta uu___2 -> FStar_Pervasives_Native.None | uu___2 -> let q = readback_qual qual in - let c_view = FStar_Reflection_V2_Builtins.inspect_comp c in + let c_view = FStarC_Reflection_V2_Builtins.inspect_comp c in let ret c_t = let binder_ty = sort in op_let_Question @@ -327,11 +327,11 @@ let (is_arrow : FStar_Pervasives_Native.Some ((Pulse_Syntax_Base.mk_binder_ppname binder_ty (Pulse_Syntax_Base.mk_ppname ppname - (FStar_Reflection_V2_Builtins.range_of_term + (FStarC_Reflection_V2_Builtins.range_of_term t))), q, c1)) in (match c_view with - | FStar_Reflection_V2_Data.C_Total c_t -> ret c_t - | FStar_Reflection_V2_Data.C_Eff + | FStarC_Reflection_V2_Data.C_Total c_t -> ret c_t + | FStarC_Reflection_V2_Data.C_Eff (uu___3, eff_name, c_t, uu___4, uu___5) -> if eff_name = Pulse_Reflection_Util.tot_lid then ret c_t @@ -439,39 +439,39 @@ let (pack_term_view : match top with | Tm_SLProp -> w - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.slprop_lid))) | Tm_Emp -> w - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.emp_lid))) | Tm_Inv (i, p) -> let head = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.inv_lid)) in let t = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (head, (i, FStar_Reflection_V2_Data.Q_Explicit))) in - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (t, (p, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (head, (i, FStarC_Reflection_V2_Data.Q_Explicit))) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (t, (p, FStarC_Reflection_V2_Data.Q_Explicit))) | Tm_Pure p -> let head = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.pure_lid)) in w - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - (head, (p, FStar_Reflection_V2_Data.Q_Explicit)))) + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_App + (head, (p, FStarC_Reflection_V2_Data.Q_Explicit)))) | Tm_Star (l, r1) -> w (Pulse_Reflection_Util.mk_star l r1) | Tm_ExistsSL (u, b, body) -> let t = b.Pulse_Syntax_Base.binder_ty in @@ -479,7 +479,7 @@ let (pack_term_view : Pulse_Reflection_Util.mk_abs_with_name_and_range (b.Pulse_Syntax_Base.binder_ppname).Pulse_Syntax_Base.name (b.Pulse_Syntax_Base.binder_ppname).Pulse_Syntax_Base.range t - FStar_Reflection_V2_Data.Q_Explicit body in + FStarC_Reflection_V2_Data.Q_Explicit body in if uu___is_Tm_ExistsSL top then w (Pulse_Reflection_Util.mk_exists u t abs) else w (Pulse_Reflection_Util.mk_forall u t abs) @@ -489,26 +489,26 @@ let (pack_term_view : Pulse_Reflection_Util.mk_abs_with_name_and_range (b.Pulse_Syntax_Base.binder_ppname).Pulse_Syntax_Base.name (b.Pulse_Syntax_Base.binder_ppname).Pulse_Syntax_Base.range t - FStar_Reflection_V2_Data.Q_Explicit body in + FStarC_Reflection_V2_Data.Q_Explicit body in if uu___is_Tm_ExistsSL top then w (Pulse_Reflection_Util.mk_exists u t abs) else w (Pulse_Reflection_Util.mk_forall u t abs) | Tm_Inames -> w - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.inames_lid))) | Tm_EmpInames -> w - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.emp_inames_lid))) | Tm_Unknown -> w - (FStar_Reflection_V2_Builtins.pack_ln - FStar_Reflection_V2_Data.Tv_Unknown) + (FStarC_Reflection_V2_Builtins.pack_ln + FStarC_Reflection_V2_Data.Tv_Unknown) | Tm_FStar t -> w t let (term_range : Pulse_Syntax_Base.term -> FStar_Range.range) = fun t -> Pulse_RuntimeUtils.range_of_term t @@ -573,27 +573,27 @@ let (tm_inv : let (tm_all_inames : Pulse_Syntax_Base.term) = tm_fvar (Pulse_Syntax_Base.as_fv Pulse_Reflection_Util.all_inames_lid) let (tm_add_inv : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> FStar_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun is -> fun iname -> let h = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.add_inv_lid)) in FStar_Reflection_V2_Derived.mk_app h [Pulse_Reflection_Util.ex is; Pulse_Reflection_Util.ex iname] let (tm_full_perm : Pulse_Syntax_Base.term) = - tm_constant (FStar_Reflection_V2_Data.C_Real "1.0") + tm_constant (FStarC_Reflection_V2_Data.C_Real "1.0") type ('tv, 't) is_view_of = Obj.t -let rec (inspect_term : FStar_Reflection_Types.term -> term_view) = +let rec (inspect_term : FStarC_Reflection_Types.term -> term_view) = fun t -> let default_view = Tm_FStar t in - match FStar_Reflection_V2_Builtins.inspect_ln t with - | FStar_Reflection_V2_Data.Tv_FVar fv -> - let fv_lid = FStar_Reflection_V2_Builtins.inspect_fv fv in + match FStarC_Reflection_V2_Builtins.inspect_ln t with + | FStarC_Reflection_V2_Data.Tv_FVar fv -> + let fv_lid = FStarC_Reflection_V2_Builtins.inspect_fv fv in if fv_lid = Pulse_Reflection_Util.slprop_lid then Tm_SLProp else @@ -606,15 +606,15 @@ let rec (inspect_term : FStar_Reflection_Types.term -> term_view) = if fv_lid = Pulse_Reflection_Util.emp_inames_lid then Tm_EmpInames else default_view - | FStar_Reflection_V2_Data.Tv_App (hd, (a, q)) -> + | FStarC_Reflection_V2_Data.Tv_App (hd, (a, q)) -> let uu___ = FStar_Reflection_V2_Collect.collect_app_ln t in (match uu___ with | (head, args) -> - (match ((FStar_Reflection_V2_Builtins.inspect_ln head), args) + (match ((FStarC_Reflection_V2_Builtins.inspect_ln head), args) with - | (FStar_Reflection_V2_Data.Tv_FVar fv, a1::a2::[]) -> + | (FStarC_Reflection_V2_Data.Tv_FVar fv, a1::a2::[]) -> if - (FStar_Reflection_V2_Builtins.inspect_fv fv) = + (FStarC_Reflection_V2_Builtins.inspect_fv fv) = Pulse_Reflection_Util.star_lid then Tm_Star @@ -622,66 +622,66 @@ let rec (inspect_term : FStar_Reflection_Types.term -> term_view) = (FStar_Pervasives_Native.fst a2)) else if - (FStar_Reflection_V2_Builtins.inspect_fv fv) = + (FStarC_Reflection_V2_Builtins.inspect_fv fv) = Pulse_Reflection_Util.inv_lid then Tm_Inv ((FStar_Pervasives_Native.fst a1), (FStar_Pervasives_Native.fst a2)) else default_view - | (FStar_Reflection_V2_Data.Tv_UInst (fv, u::[]), a1::a2::[]) + | (FStarC_Reflection_V2_Data.Tv_UInst (fv, u::[]), a1::a2::[]) -> if - ((FStar_Reflection_V2_Builtins.inspect_fv fv) = + ((FStarC_Reflection_V2_Builtins.inspect_fv fv) = Pulse_Reflection_Util.exists_lid) || - ((FStar_Reflection_V2_Builtins.inspect_fv fv) = + ((FStarC_Reflection_V2_Builtins.inspect_fv fv) = Pulse_Reflection_Util.forall_lid) then let t1 = FStar_Pervasives_Native.fst a1 in let t2 = FStar_Pervasives_Native.fst a2 in - (match FStar_Reflection_V2_Builtins.inspect_ln t2 with - | FStar_Reflection_V2_Data.Tv_Abs (b, body) -> + (match FStarC_Reflection_V2_Builtins.inspect_ln t2 with + | FStarC_Reflection_V2_Data.Tv_Abs (b, body) -> let bview = - FStar_Reflection_V2_Builtins.inspect_binder b in + FStarC_Reflection_V2_Builtins.inspect_binder b in let b1 = Pulse_Syntax_Base.mk_binder_ppname t1 (Pulse_Syntax_Base.mk_ppname - bview.FStar_Reflection_V2_Data.ppname2 + bview.FStarC_Reflection_V2_Data.ppname2 (Pulse_RuntimeUtils.binder_range b)) in if - (FStar_Reflection_V2_Builtins.inspect_fv fv) = + (FStarC_Reflection_V2_Builtins.inspect_fv fv) = Pulse_Reflection_Util.exists_lid then Tm_ExistsSL (u, b1, body) else Tm_ForallSL (u, b1, body) | uu___1 -> default_view) else default_view - | (FStar_Reflection_V2_Data.Tv_FVar fv, a1::[]) -> + | (FStarC_Reflection_V2_Data.Tv_FVar fv, a1::[]) -> if - (FStar_Reflection_V2_Builtins.inspect_fv fv) = + (FStarC_Reflection_V2_Builtins.inspect_fv fv) = Pulse_Reflection_Util.pure_lid then Tm_Pure (FStar_Pervasives_Native.fst a1) else default_view | uu___1 -> default_view)) - | FStar_Reflection_V2_Data.Tv_Refine (uu___, uu___1) -> default_view - | FStar_Reflection_V2_Data.Tv_Arrow (uu___, uu___1) -> default_view - | FStar_Reflection_V2_Data.Tv_Type uu___ -> default_view - | FStar_Reflection_V2_Data.Tv_Const uu___ -> default_view - | FStar_Reflection_V2_Data.Tv_Let (uu___, uu___1, uu___2, uu___3, uu___4) + | FStarC_Reflection_V2_Data.Tv_Refine (uu___, uu___1) -> default_view + | FStarC_Reflection_V2_Data.Tv_Arrow (uu___, uu___1) -> default_view + | FStarC_Reflection_V2_Data.Tv_Type uu___ -> default_view + | FStarC_Reflection_V2_Data.Tv_Const uu___ -> default_view + | FStarC_Reflection_V2_Data.Tv_Let (uu___, uu___1, uu___2, uu___3, uu___4) -> default_view - | FStar_Reflection_V2_Data.Tv_Var uu___ -> default_view - | FStar_Reflection_V2_Data.Tv_BVar uu___ -> default_view - | FStar_Reflection_V2_Data.Tv_UInst (uu___, uu___1) -> default_view - | FStar_Reflection_V2_Data.Tv_Match (uu___, uu___1, uu___2) -> + | FStarC_Reflection_V2_Data.Tv_Var uu___ -> default_view + | FStarC_Reflection_V2_Data.Tv_BVar uu___ -> default_view + | FStarC_Reflection_V2_Data.Tv_UInst (uu___, uu___1) -> default_view + | FStarC_Reflection_V2_Data.Tv_Match (uu___, uu___1, uu___2) -> default_view - | FStar_Reflection_V2_Data.Tv_Abs (uu___, uu___1) -> default_view - | FStar_Reflection_V2_Data.Tv_AscribedT (t1, uu___, uu___1, uu___2) -> + | FStarC_Reflection_V2_Data.Tv_Abs (uu___, uu___1) -> default_view + | FStarC_Reflection_V2_Data.Tv_AscribedT (t1, uu___, uu___1, uu___2) -> inspect_term t1 - | FStar_Reflection_V2_Data.Tv_AscribedC (t1, uu___, uu___1, uu___2) -> + | FStarC_Reflection_V2_Data.Tv_AscribedC (t1, uu___, uu___1, uu___2) -> inspect_term t1 - | FStar_Reflection_V2_Data.Tv_Uvar (uu___, uu___1) -> default_view - | FStar_Reflection_V2_Data.Tv_Unknown -> Tm_Unknown - | FStar_Reflection_V2_Data.Tv_Unsupp -> default_view + | FStarC_Reflection_V2_Data.Tv_Uvar (uu___, uu___1) -> default_view + | FStarC_Reflection_V2_Data.Tv_Unknown -> Tm_Unknown + | FStarC_Reflection_V2_Data.Tv_Unsupp -> default_view let rec (slprop_as_list : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term Prims.list) = fun vp -> diff --git a/src/ocaml/plugin/generated/Pulse_Typing.ml b/src/ocaml/plugin/generated/Pulse_Typing.ml index 2bd2da382..583f35fda 100644 --- a/src/ocaml/plugin/generated/Pulse_Typing.ml +++ b/src/ocaml/plugin/generated/Pulse_Typing.ml @@ -53,7 +53,7 @@ let (debug_log : (fun uu___1 -> (fun uu___1 -> Obj.magic - (FStar_Tactics_V2_Builtins.print uu___1)) + (FStarC_Tactics_V2_Builtins.print uu___1)) uu___1))) else Obj.magic @@ -63,19 +63,19 @@ let (debug_log : let (tm_unit : Pulse_Syntax_Base.term) = Pulse_Syntax_Pure.tm_fvar (Pulse_Syntax_Base.as_fv Pulse_Reflection_Util.unit_lid) -let (tm_bool : FStar_Reflection_Types.term) = FStar_Reflection_Typing.bool_ty +let (tm_bool : FStarC_Reflection_Types.term) = FStar_Reflection_Typing.bool_ty let (tm_int : Pulse_Syntax_Base.term) = Pulse_Syntax_Pure.tm_fvar (Pulse_Syntax_Base.as_fv Pulse_Reflection_Util.int_lid) let (tm_nat : Pulse_Syntax_Base.term) = Pulse_Syntax_Pure.tm_fvar (Pulse_Syntax_Base.as_fv Pulse_Reflection_Util.nat_lid) -let (tm_szt : FStar_Reflection_Types.term) = Pulse_Reflection_Util.szt_tm +let (tm_szt : FStarC_Reflection_Types.term) = Pulse_Reflection_Util.szt_tm let (tm_true : Pulse_Syntax_Base.term) = - Pulse_Syntax_Pure.tm_constant FStar_Reflection_V2_Data.C_True + Pulse_Syntax_Pure.tm_constant FStarC_Reflection_V2_Data.C_True let (tm_false : Pulse_Syntax_Base.term) = - Pulse_Syntax_Pure.tm_constant FStar_Reflection_V2_Data.C_False -let (tm_prop : FStar_Reflection_Types.term) = + Pulse_Syntax_Pure.tm_constant FStarC_Reflection_V2_Data.C_False +let (tm_prop : FStarC_Reflection_Types.term) = Pulse_RuntimeUtils.set_range FStar_Reflection_Typing.tm_prop FStar_Range.range_0 let (mk_erased : @@ -250,8 +250,8 @@ let (comp_return : Pulse_Syntax_Base.post = post_maybe_eq }) let (extend_env_l : - FStar_Reflection_Types.env -> - Pulse_Typing_Env.env_bindings -> FStar_Reflection_Types.env) + FStarC_Reflection_Types.env -> + Pulse_Typing_Env.env_bindings -> FStarC_Reflection_Types.env) = fun f -> fun g -> @@ -260,7 +260,7 @@ let (extend_env_l : fun g1 -> match uu___ with | (x, b) -> FStar_Reflection_Typing.extend_env g1 x b) g f -let (elab_env : Pulse_Typing_Env.env -> FStar_Reflection_Types.env) = +let (elab_env : Pulse_Typing_Env.env -> FStarC_Reflection_Types.env) = fun e -> extend_env_l (Pulse_Typing_Env.fstar_env e) (Pulse_Typing_Env.bindings e) type ('g, 'x) freshv = unit @@ -857,12 +857,12 @@ let (tm_join_inames : (let join_lid = Pulse_Reflection_Util.mk_pulse_lib_core_lid "join_inames" in let join = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv join_lid)) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv join_lid)) in Pulse_Syntax_Pure.wr (FStar_Reflection_V2_Derived.mk_e_app join [inames1; inames2]) - (FStar_Reflection_V2_Builtins.range_of_term inames1)) + (FStarC_Reflection_V2_Builtins.range_of_term inames1)) let (tm_inames_subset : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term) = @@ -871,12 +871,12 @@ let (tm_inames_subset : let join_lid = Pulse_Reflection_Util.mk_pulse_lib_core_lid "inames_subset" in let join = - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv join_lid)) in + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv join_lid)) in Pulse_Syntax_Pure.wr (FStar_Reflection_V2_Derived.mk_e_app join [inames1; inames2]) - (FStar_Reflection_V2_Builtins.range_of_term inames1) + (FStarC_Reflection_V2_Builtins.range_of_term inames1) type ('g, 't) prop_validity = unit type ('dummyV0, 'dummyV1, 'dummyV2) st_equiv = @@ -969,21 +969,21 @@ let uu___is_Bind_comp uu___4 uu___3 uu___2 uu___1 uu___ uu___5 = match uu___5 with | Bind_comp _ -> true | _ -> false let (tr_binding : (Pulse_Syntax_Base.var * Pulse_Syntax_Base.typ) -> - FStar_Reflection_V2_Data.binding) + FStarC_Reflection_V2_Data.binding) = fun vt -> let uu___ = vt in match uu___ with | (v, t) -> { - FStar_Reflection_V2_Data.uniq1 = v; - FStar_Reflection_V2_Data.sort3 = t; - FStar_Reflection_V2_Data.ppname3 = + FStarC_Reflection_V2_Data.uniq1 = v; + FStarC_Reflection_V2_Data.sort3 = t; + FStarC_Reflection_V2_Data.ppname3 = (Pulse_Syntax_Base.ppname_default.Pulse_Syntax_Base.name) } let (tr_bindings : (Pulse_Syntax_Base.var * Pulse_Syntax_Base.typ) Prims.list -> - FStar_Reflection_V2_Data.binding Prims.list) + FStarC_Reflection_V2_Data.binding Prims.list) = FStar_List_Tot_Base.map tr_binding type ('dummyV0, 'dummyV1, 'dummyV2) comp_typing = | CT_Tot of Pulse_Typing_Env.env * Pulse_Syntax_Base.term * @@ -1005,11 +1005,11 @@ let uu___is_CT_STGhost uu___2 uu___1 uu___ uu___3 = match uu___3 with | CT_STGhost _ -> true | _ -> false type ('e, 'c) comp_typing_u = (unit, unit, unit) comp_typing type ('g, 't1, 't2) subtyping_token = - (unit, unit, unit) FStar_Tactics_Types.subtyping_token + (unit, unit, unit) FStarC_Tactics_Types.subtyping_token let (readback_binding : - FStar_Reflection_V2_Data.binding -> Pulse_Typing_Env.binding) = + FStarC_Reflection_V2_Data.binding -> Pulse_Typing_Env.binding) = fun b -> - ((b.FStar_Reflection_V2_Data.uniq1), (b.FStar_Reflection_V2_Data.sort3)) + ((b.FStarC_Reflection_V2_Data.uniq1), (b.FStarC_Reflection_V2_Data.sort3)) type ('g, 'c) non_informative = unit let (inv_disjointness : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term) @@ -1019,11 +1019,11 @@ let (inv_disjointness : let g = Pulse_Reflection_Util.inv_disjointness_goal inames i in Pulse_Syntax_Pure.wr g (Pulse_RuntimeUtils.range_of_term i) let (eff_of_ctag : - Pulse_Syntax_Base.ctag -> FStar_TypeChecker_Core.tot_or_ghost) = + Pulse_Syntax_Base.ctag -> FStarC_TypeChecker_Core.tot_or_ghost) = fun uu___ -> match uu___ with - | Pulse_Syntax_Base.STT_Ghost -> FStar_TypeChecker_Core.E_Ghost - | uu___1 -> FStar_TypeChecker_Core.E_Total + | Pulse_Syntax_Base.STT_Ghost -> FStarC_TypeChecker_Core.E_Ghost + | uu___1 -> FStarC_TypeChecker_Core.E_Total type ('dummyV0, 'dummyV1, 'dummyV2) st_typing = | T_Abs of Pulse_Typing_Env.env * Pulse_Syntax_Base.var * Pulse_Syntax_Base.qualifier FStar_Pervasives_Native.option * @@ -1111,8 +1111,8 @@ type ('dummyV0, 'dummyV1, 'dummyV2) st_typing = unit and ('dummyV0, 'dummyV1, 'dummyV2, 'dummyV3) pats_complete = | PC_Elab of Pulse_Typing_Env.env * Pulse_Syntax_Base.term * - Pulse_Syntax_Base.typ * FStar_Reflection_V2_Data.pattern Prims.list * - FStar_Reflection_V2_Data.binding Prims.list Prims.list * (unit, unit, + Pulse_Syntax_Base.typ * FStarC_Reflection_V2_Data.pattern Prims.list * + FStarC_Reflection_V2_Data.binding Prims.list Prims.list * (unit, unit, unit, unit, unit) FStar_Reflection_Typing.match_is_complete and ('g, 'scuu, 'scuty, 'sc, 'dummyV0, 'dummyV1) brs_typing = | TBRS_0 of Pulse_Syntax_Base.comp_st @@ -1125,7 +1125,7 @@ and ('dummyV0, 'dummyV1, 'dummyV2, 'dummyV3, 'dummyV4, 'dummyV5, | TBR of Pulse_Typing_Env.env * Pulse_Syntax_Base.universe * Pulse_Syntax_Base.typ * Pulse_Syntax_Base.term * Pulse_Syntax_Base.comp_st * Pulse_Syntax_Base.pattern * Pulse_Syntax_Base.st_term * - FStar_Reflection_V2_Data.binding Prims.list * unit * unit * unit * + FStarC_Reflection_V2_Data.binding Prims.list * unit * unit * unit * Pulse_Syntax_Base.var * (unit, unit, unit) st_typing let uu___is_T_Abs uu___2 uu___1 uu___ uu___3 = match uu___3 with | T_Abs _ -> true | _ -> false diff --git a/src/ocaml/plugin/generated/Pulse_Typing_Combinators.ml b/src/ocaml/plugin/generated/Pulse_Typing_Combinators.ml index 6b0150c55..c22621a01 100644 --- a/src/ocaml/plugin/generated/Pulse_Typing_Combinators.ml +++ b/src/ocaml/plugin/generated/Pulse_Typing_Combinators.ml @@ -457,7 +457,7 @@ let (lift_ghost_atomic : (fun uu___6 -> FStar_Tactics_Effect.lift_div_tac (fun uu___7 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (2)) Prims.int_one (Pulse_PP.text "Got:") @@ -2006,7 +2006,7 @@ let rec (mk_bind : (fun uu___11 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -2071,7 +2071,7 @@ let rec (mk_bind : (fun uu___14 -> - FStar_Pprint.prefix + FStarC_Pprint.prefix (Prims.of_int (4)) Prims.int_one (Pulse_PP.text @@ -2158,10 +2158,10 @@ let rec (mk_bind : FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> - (FStar_Pprint.op_Hat_Slash_Hat + (FStarC_Pprint.op_Hat_Slash_Hat (Pulse_PP.text "Cannot compose computations in this ") - (FStar_Pprint.op_Hat_Slash_Hat + (FStarC_Pprint.op_Hat_Slash_Hat (Pulse_PP.text tag) (Pulse_PP.text diff --git a/src/ocaml/plugin/generated/Pulse_Typing_Env.ml b/src/ocaml/plugin/generated/Pulse_Typing_Env.ml index cd55576ee..1b586a0c1 100644 --- a/src/ocaml/plugin/generated/Pulse_Typing_Env.ml +++ b/src/ocaml/plugin/generated/Pulse_Typing_Env.ml @@ -358,7 +358,7 @@ let (ctxt_elt_to_string : | FStar_Pervasives_Native.Some r -> Obj.magic (Obj.repr - (let uu___ = FStar_Tactics_V2_Builtins.range_to_string r in + (let uu___ = FStarC_Tactics_V2_Builtins.range_to_string r in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -524,7 +524,7 @@ let (print_issue : | FStar_Pervasives_Native.Some r -> Obj.magic (Obj.repr - (FStar_Tactics_V2_Builtins.range_to_string r))) + (FStarC_Tactics_V2_Builtins.range_to_string r))) uu___2 uu___1)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -884,10 +884,10 @@ let (env_to_string : (fun uu___1 -> FStar_String.concat "\n " bs)) let rec separate_map : 'a . - FStar_Pprint.document -> - ('a -> (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) -> + FStarC_Pprint.document -> + ('a -> (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) -> 'a Prims.list -> - (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr + (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr = fun uu___2 -> fun uu___1 -> @@ -900,7 +900,7 @@ let rec separate_map : Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac - (fun uu___ -> FStar_Pprint.empty))) + (fun uu___ -> FStarC_Pprint.empty))) | x::[] -> Obj.magic (Obj.repr (f x)) | x::xs -> Obj.magic @@ -943,7 +943,7 @@ let rec separate_map : (fun uu___4 -> FStar_Tactics_Effect.lift_div_tac (fun uu___5 -> - FStar_Pprint.op_Hat_Slash_Hat + FStarC_Pprint.op_Hat_Slash_Hat sep uu___4)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -967,12 +967,12 @@ let rec separate_map : (fun uu___3 -> FStar_Tactics_Effect.lift_div_tac (fun uu___4 -> - FStar_Pprint.op_Hat_Hat uu___1 + FStarC_Pprint.op_Hat_Hat uu___1 uu___3)))) uu___1)))) uu___2 uu___1 uu___ let (env_to_doc' : Prims.bool -> - env -> (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) + env -> (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) = fun simplify -> fun e -> @@ -1022,7 +1022,7 @@ let (env_to_doc' : (fun uu___5 -> FStar_Tactics_Effect.lift_div_tac (fun uu___6 -> - FStar_Pprint.doc_of_string uu___5)) in + FStarC_Pprint.doc_of_string uu___5)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1061,7 +1061,7 @@ let (env_to_doc' : (fun uu___7 -> FStar_Tactics_Effect.lift_div_tac (fun uu___8 -> - FStar_Pprint.align uu___7)) in + FStarC_Pprint.align uu___7)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1084,9 +1084,9 @@ let (env_to_doc' : (fun uu___6 -> FStar_Tactics_Effect.lift_div_tac (fun uu___7 -> - FStar_Pprint.infix + FStarC_Pprint.infix (Prims.of_int (2)) Prims.int_one - FStar_Pprint.colon uu___4 uu___6)))) + FStarC_Pprint.colon uu___4 uu___6)))) uu___4))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1122,9 +1122,9 @@ let (env_to_doc' : (fun uu___5 -> FStar_Reflection_TermEq.term_eq t - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "unit"]))))) in FStar_Tactics_Effect.tac_bind @@ -1302,10 +1302,10 @@ let (env_to_doc' : (fun uu___3 -> (fun uu___3 -> Obj.magic - (separate_map FStar_Pprint.comma pp1 + (separate_map FStarC_Pprint.comma pp1 uu___3)) uu___3))) uu___2))) uu___1) let (env_to_doc : - env -> (FStar_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) = + env -> (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr) = env_to_doc' false let (get_range : env -> @@ -1347,7 +1347,7 @@ let fail_doc_env : Prims.bool -> env -> Pulse_Syntax_Base.range FStar_Pervasives_Native.option -> - FStar_Pprint.document Prims.list -> + FStarC_Pprint.document Prims.list -> ('a, unit) FStar_Tactics_Effect.tac_repr = fun with_env -> @@ -1375,10 +1375,10 @@ let fail_doc_env : (FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> fun d -> - FStar_Pprint.nest (Prims.of_int (2)) - (FStar_Pprint.op_Hat_Hat - FStar_Pprint.hardline - (FStar_Pprint.align d)))) in + FStarC_Pprint.nest (Prims.of_int (2)) + (FStarC_Pprint.op_Hat_Hat + FStarC_Pprint.hardline + (FStarC_Pprint.align d)))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1477,8 +1477,8 @@ let fail_doc_env : (fun uu___7 -> FStar_Tactics_Effect.lift_div_tac (fun uu___8 -> - FStar_Pprint.op_Hat_Hat - (FStar_Pprint.doc_of_string + FStarC_Pprint.op_Hat_Hat + (FStarC_Pprint.doc_of_string "In typing environment:") uu___7)) in FStar_Tactics_Effect.tac_bind @@ -1597,7 +1597,7 @@ let fail_doc_env : (fun uu___3 -> (fun issue -> let uu___3 = - FStar_Tactics_V2_Builtins.log_issues + FStarC_Tactics_V2_Builtins.log_issues [issue] in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1628,13 +1628,13 @@ let fail_doc : 'a . env -> Pulse_Syntax_Base.range FStar_Pervasives_Native.option -> - FStar_Pprint.document Prims.list -> + FStarC_Pprint.document Prims.list -> ('a, unit) FStar_Tactics_Effect.tac_repr = fun g -> fun r -> fun msg -> fail_doc_env false g r msg let (warn_doc : env -> Pulse_Syntax_Base.range FStar_Pervasives_Native.option -> - FStar_Pprint.document Prims.list -> + FStarC_Pprint.document Prims.list -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun g -> @@ -1691,12 +1691,12 @@ let (warn_doc : (fun uu___2 -> (fun issue -> Obj.magic - (FStar_Tactics_V2_Builtins.log_issues [issue])) + (FStarC_Tactics_V2_Builtins.log_issues [issue])) uu___2))) uu___1) let (info_doc : env -> Pulse_Syntax_Base.range FStar_Pervasives_Native.option -> - FStar_Pprint.document Prims.list -> + FStarC_Pprint.document Prims.list -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun g -> @@ -1753,12 +1753,12 @@ let (info_doc : (fun uu___2 -> (fun issue -> Obj.magic - (FStar_Tactics_V2_Builtins.log_issues [issue])) + (FStarC_Tactics_V2_Builtins.log_issues [issue])) uu___2))) uu___1) let (info_doc_env : env -> Pulse_Syntax_Base.range FStar_Pervasives_Native.option -> - FStar_Pprint.document Prims.list -> + FStarC_Pprint.document Prims.list -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun g -> @@ -1769,9 +1769,9 @@ let (info_doc_env : (FStar_Tactics_Effect.lift_div_tac (fun uu___1 -> fun d -> - FStar_Pprint.nest (Prims.of_int (2)) - (FStar_Pprint.op_Hat_Hat FStar_Pprint.hardline - (FStar_Pprint.align d)))) in + FStarC_Pprint.nest (Prims.of_int (2)) + (FStarC_Pprint.op_Hat_Hat FStarC_Pprint.hardline + (FStarC_Pprint.align d)))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1821,8 +1821,8 @@ let (info_doc_env : (fun uu___5 -> FStar_Tactics_Effect.lift_div_tac (fun uu___6 -> - FStar_Pprint.op_Hat_Hat - (FStar_Pprint.doc_of_string + FStarC_Pprint.op_Hat_Hat + (FStarC_Pprint.doc_of_string "In typing environment:") uu___5)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1877,18 +1877,18 @@ let fail : Prims.string -> ('a, unit) FStar_Tactics_Effect.tac_repr = fun g -> - fun r -> fun msg -> fail_doc g r [FStar_Pprint.arbitrary_string msg] + fun r -> fun msg -> fail_doc g r [FStarC_Pprint.arbitrary_string msg] let (warn : env -> Pulse_Syntax_Base.range FStar_Pervasives_Native.option -> Prims.string -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun g -> - fun r -> fun msg -> warn_doc g r [FStar_Pprint.arbitrary_string msg] + fun r -> fun msg -> warn_doc g r [FStarC_Pprint.arbitrary_string msg] let (info : env -> Pulse_Syntax_Base.range FStar_Pervasives_Native.option -> Prims.string -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun g -> - fun r -> fun msg -> info_doc g r [FStar_Pprint.arbitrary_string msg] \ No newline at end of file + fun r -> fun msg -> info_doc g r [FStarC_Pprint.arbitrary_string msg] \ No newline at end of file diff --git a/src/ocaml/plugin/generated/Pulse_Typing_FV.ml b/src/ocaml/plugin/generated/Pulse_Typing_FV.ml index 4f0c7fbc8..214866f82 100644 --- a/src/ocaml/plugin/generated/Pulse_Typing_FV.ml +++ b/src/ocaml/plugin/generated/Pulse_Typing_FV.ml @@ -12,7 +12,7 @@ let set_minus : 'a . 'a FStar_Set.set -> 'a -> 'a FStar_Set.set = fun x -> FStar_Set.intersect s (FStar_Set.complement (FStar_Set.singleton x)) let (contains_r : - FStar_Reflection_Types.env -> Pulse_Syntax_Base.var -> Prims.bool) = + FStarC_Reflection_Types.env -> Pulse_Syntax_Base.var -> Prims.bool) = fun g -> fun x -> FStar_Pervasives_Native.uu___is_Some diff --git a/src/ocaml/plugin/generated/Pulse_Typing_Metatheory_Base.ml b/src/ocaml/plugin/generated/Pulse_Typing_Metatheory_Base.ml index 41ef63352..1a599da0a 100644 --- a/src/ocaml/plugin/generated/Pulse_Typing_Metatheory_Base.ml +++ b/src/ocaml/plugin/generated/Pulse_Typing_Metatheory_Base.ml @@ -100,7 +100,7 @@ let (tm_exists_inversion : = fun g -> fun u -> fun ty -> fun p -> fun uu___ -> fun x -> ((), ()) let (renaming : - FStar_Reflection_V2_Data.var -> + FStarC_Reflection_V2_Data.var -> Pulse_Syntax_Base.var -> FStar_Reflection_Typing.subst_elt Prims.list) = fun x -> @@ -867,7 +867,7 @@ let rec (st_typing_subst : Pulse_Syntax_Base.typ -> Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> - FStar_TypeChecker_Core.tot_or_ghost -> + FStarC_TypeChecker_Core.tot_or_ghost -> unit -> Pulse_Syntax_Base.st_term -> Pulse_Syntax_Base.comp_st -> diff --git a/src/ocaml/plugin/generated/Pulse_Typing_Util.ml b/src/ocaml/plugin/generated/Pulse_Typing_Util.ml index 711201934..6d40ade79 100644 --- a/src/ocaml/plugin/generated/Pulse_Typing_Util.ml +++ b/src/ocaml/plugin/generated/Pulse_Typing_Util.ml @@ -1,9 +1,9 @@ open Prims let (check_equiv_now : - FStar_Reflection_Types.env -> + FStarC_Reflection_Types.env -> FStar_Tactics_NamedView.term -> FStar_Tactics_NamedView.term -> - (((unit, unit, unit) FStar_Tactics_Types.equiv_token + (((unit, unit, unit) FStarC_Tactics_Types.equiv_token FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -13,14 +13,14 @@ let (check_equiv_now : Pulse_RuntimeUtils.disable_admit_smt_queries (fun uu___ -> FStar_Tactics_V2_Derived.with_policy - FStar_Tactics_Types.ForceSMT + FStarC_Tactics_Types.ForceSMT (fun uu___1 -> FStar_Tactics_V2_Derived.check_equiv tcenv t0 t1)) let (check_equiv_now_nosmt : - FStar_Reflection_Types.env -> + FStarC_Reflection_Types.env -> FStar_Tactics_NamedView.term -> FStar_Tactics_NamedView.term -> - (((unit, unit, unit) FStar_Tactics_Types.equiv_token + (((unit, unit, unit) FStarC_Tactics_Types.equiv_token FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -31,7 +31,7 @@ let (check_equiv_now_nosmt : (fun uu___ -> FStar_Tactics_V2_Derived.check_equiv_nosmt tcenv t0 t1) let (universe_of_now : - FStar_Reflection_Types.env -> + FStarC_Reflection_Types.env -> FStar_Tactics_NamedView.term -> ((FStar_Tactics_NamedView.universe FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), @@ -39,5 +39,5 @@ let (universe_of_now : = fun g -> fun e -> - FStar_Tactics_V2_Derived.with_policy FStar_Tactics_Types.ForceSMT - (fun uu___ -> FStar_Tactics_V2_Builtins.universe_of g e) \ No newline at end of file + FStar_Tactics_V2_Derived.with_policy FStarC_Tactics_Types.ForceSMT + (fun uu___ -> FStarC_Tactics_V2_Builtins.universe_of g e) \ No newline at end of file diff --git a/src/ocaml/plugin/pulseparser.mly b/src/ocaml/plugin/pulseparser.mly index 5a300a3e6..9e8ed8c8b 100644 --- a/src/ocaml/plugin/pulseparser.mly +++ b/src/ocaml/plugin/pulseparser.mly @@ -7,19 +7,19 @@ Warning: 221 end-of-stream conflicts were arbitrarily resolved. (* (c) Microsoft Corporation. All rights reserved *) open Prims open FStar_Pervasives -open FStar_Errors -open FStar_Compiler_List -open FStar_Compiler_Util -open FStar_Compiler_Range -open FStar_Options +open FStarC_Errors +open FStarC_Compiler_List +open FStarC_Compiler_Util +open FStarC_Compiler_Range +open FStarC_Options (* TODO : these files should be deprecated and removed *) -open FStar_Syntax_Syntax -open FStar_Parser_Const -open FStar_Syntax_Util -open FStar_Parser_AST -open FStar_Parser_Util -open FStar_Const -open FStar_Ident +open FStarC_Syntax_Syntax +open FStarC_Parser_Const +open FStarC_Syntax_Util +open FStarC_Parser_AST +open FStarC_Parser_Util +open FStarC_Const +open FStarC_Ident open FStar_String module PulseSyntaxExtension_Sugar = PulseSyntaxExtension_Sugar @@ -41,7 +41,7 @@ let as_aqual (q:unit option) = | None -> None | Some _ -> Some Implicit -let pos_of_lexpos (p:Lexing.position) = FStar_Parser_Util.pos_of_lexpos p +let pos_of_lexpos (p:Lexing.position) = FStarC_Parser_Util.pos_of_lexpos p let default_return = gen dummyRange, @@ -64,7 +64,7 @@ let mk_fn_defn q id is_rec bs body range = let add_decorations decors ds = List.map (function | Inl p -> Inl (PulseSyntaxExtension_Sugar.add_decorations p decors) - | Inr d -> Inr (FStar_Parser_AST.add_decorations d decors)) ds + | Inr d -> Inr (FStarC_Parser_AST.add_decorations d decors)) ds %} @@ -78,7 +78,7 @@ let add_decorations decors ds = %start iLangDeclOrEOF %type pulseDeclEOF %type peekFnId -%type <(((PulseSyntaxExtension_Sugar.decl, FStar_Parser_AST.decl) either) list * FStar_Sedlexing.snap option) option> iLangDeclOrEOF +%type <(((PulseSyntaxExtension_Sugar.decl, FStarC_Parser_AST.decl) either) list * FStarC_Sedlexing.snap option) option> iLangDeclOrEOF %% maybeRec: @@ -90,9 +90,9 @@ maybeRec: /* This is to just peek at the name of the top-level definition */ peekFnId: | q=option(qual) FN maybeRec id=lident - { FStar_Ident.string_of_id id } + { FStarC_Ident.string_of_id id } | q=option(qual) VAL FN id=lident - { FStar_Ident.string_of_id id } + { FStarC_Ident.string_of_id id } qual: | GHOST { PulseSyntaxExtension_Sugar.STGhost } @@ -226,7 +226,7 @@ pulseStmtNoSeq: | None, _ -> PulseSyntaxExtension_Sugar.mk_expr tm - | Some arr_elt, Op(op, [arr;ix]) when FStar_Ident.string_of_id op = ".()" -> + | Some arr_elt, Op(op, [arr;ix]) when FStarC_Ident.string_of_id op = ".()" -> PulseSyntaxExtension_Sugar.mk_array_assignment arr ix arr_elt | _ -> diff --git a/src/syntax_extension/PulseSyntaxExtension.ASTBuilder.fst b/src/syntax_extension/PulseSyntaxExtension.ASTBuilder.fst index a8da48536..fbb7305ec 100644 --- a/src/syntax_extension/PulseSyntaxExtension.ASTBuilder.fst +++ b/src/syntax_extension/PulseSyntaxExtension.ASTBuilder.fst @@ -16,19 +16,19 @@ module PulseSyntaxExtension.ASTBuilder open FStarC -open FStar.Compiler.Effect -open FStar.Parser.AST -open FStar.Parser.AST.Util -open FStar.Ident -module BU = FStar.Compiler.Util -module List = FStar.Compiler.List -module A = FStar.Parser.AST -module AU = FStar.Parser.AST.Util -module S = FStar.Syntax.Syntax +open FStarC.Compiler.Effect +open FStarC.Parser.AST +open FStarC.Parser.AST.Util +open FStarC.Ident +module BU = FStarC.Compiler.Util +module List = FStarC.Compiler.List +module A = FStarC.Parser.AST +module AU = FStarC.Parser.AST.Util +module S = FStarC.Syntax.Syntax open FStar.List.Tot -open FStar.Const +open FStarC.Const -let r_ = FStar.Compiler.Range.dummyRange +let r_ = FStarC.Compiler.Range.dummyRange #push-options "--warn_error -272" //intentional top-level effect let pulse_checker_tac = Ident.lid_of_path ["Pulse"; "Main"; "check_pulse"] r_ @@ -38,8 +38,8 @@ let tm t r = { tm=t; range=r; level=Un} let parse_decl_name : contents:string -> - FStar.Compiler.Range.range -> - either AU.error_message FStar.Ident.ident + FStarC.Compiler.Range.range -> + either AU.error_message FStarC.Ident.ident = fun contents r -> match Parser.parse_peek_id contents r with | Inl s -> Inr (Ident.id_of_text s) @@ -54,7 +54,7 @@ let lid_as_term ns r = str (Ident.string_of_lid ns) r let encode_open_namespaces_and_abbreviations (ctx:open_namespaces_and_abbreviations) - (r:FStar.Compiler.Range.range) + (r:FStarC.Compiler.Range.range) : term & term = let tm t = tm t r in let str s = str s r in @@ -72,9 +72,9 @@ let encode_open_namespaces_and_abbreviations in namespaces, abbrevs -let encode_range (r:FStar.Compiler.Range.range) +let encode_range (r:FStarC.Compiler.Range.range) : term & term & term -= let open FStar.Compiler.Range in += let open FStarC.Compiler.Range in let line = line_of_pos (start_of_range r) in let col = col_of_pos (start_of_range r) in str (file_of_range r) r, i line r, i col r @@ -82,7 +82,7 @@ let encode_range (r:FStar.Compiler.Range.range) let parse_decl : open_namespaces_and_abbreviations -> contents:string -> - FStar.Compiler.Range.range -> + FStarC.Compiler.Range.range -> either AU.error_message decl = fun ctx contents r -> let tm t = tm t r in @@ -116,26 +116,26 @@ let maybe_report_error first_error decls = | None -> Inr decls | Some (raw_error, msg, r) -> let should_fail_on_error = - let file = FStar.Compiler.Range.file_of_range r in - match FStar.Parser.Dep.maybe_module_name_of_file file with + let file = FStarC.Compiler.Range.file_of_range r in + match FStarC.Parser.Dep.maybe_module_name_of_file file with | None -> false //don't report hard errors on ; we'll log them as warnings below | Some _ -> - match FStar.Options.ide_filename() with + match FStarC.Options.ide_filename() with | None -> true //we're not in IDE mode, parsing failures are fatal | Some fn -> BU.basename fn <> BU.basename file //we're in IDE mode, failures are not fatal in the current file in if should_fail_on_error then ( - Inl { message = FStar.Errors.Msg.rendermsg msg; range = r } + Inl { message = FStarC.Errors.Msg.rendermsg msg; range = r } ) else ( - // FStar.Errors.log_issue_doc r (raw_error, msg); - let open FStar.Errors in - Inr <| (decls @ [Inr <| FStar.Parser.AST.(mk_decl Unparseable r [])]) + // FStarC.Errors.log_issue_doc r (raw_error, msg); + let open FStarC.Errors in + Inr <| (decls @ [Inr <| FStarC.Parser.AST.(mk_decl Unparseable r [])]) ) -open FStar.Class.Show -let parse_extension_lang (contents:string) (r:FStar.Compiler.Range.range) +open FStarC.Class.Show +let parse_extension_lang (contents:string) (r:FStarC.Compiler.Range.range) : either AU.error_message (list decl) = match Parser.parse_lang contents r with | Inr None -> @@ -164,7 +164,7 @@ let parse_extension_lang (contents:string) (r:FStar.Compiler.Range.range) | FnDecl { decorations } -> decorations in let d = - let open FStar.Dyn in + let open FStarC.Dyn in DeclToBeDesugared { lang_name="pulse"; blob=mkdyn d; @@ -201,11 +201,11 @@ let _ = register_extension_parser "pulse" {parse_decl_name; parse_decl} let _ = register_extension_lang_parser "pulse" {parse_decls=parse_extension_lang} #pop-options -module TcEnv = FStar.TypeChecker.Env +module TcEnv = FStarC.TypeChecker.Env module D = PulseSyntaxExtension.Desugar -module L = FStar.Compiler.List -module R = FStar.Compiler.Range -module DsEnv = FStar.Syntax.DsEnv +module L = FStarC.Compiler.List +module R = FStarC.Compiler.Range +module DsEnv = FStarC.Syntax.DsEnv let sugar_decl = PulseSyntaxExtension.Sugar.decl let desugar_pulse (env:TcEnv.env) (namespaces:list string) @@ -217,24 +217,24 @@ let desugar_pulse (env:TcEnv.env) let env = D.reinitialize_env env.dsenv (TcEnv.current_module env) namespaces module_abbrevs in fst (D.desugar_decl env sugar 0) -module S = FStar.Syntax.Syntax +module S = FStarC.Syntax.Syntax let desugar_pulse_decl_callback (env:DsEnv.env) - (blob:FStar.Dyn.dyn) + (blob:FStarC.Dyn.dyn) (lids:list lident) (rng:R.range) -: list FStar.Syntax.Syntax.sigelt' -= let d = D.desugar_decl (D.mk_env env) (FStar.Dyn.undyn blob) 0 in +: list FStarC.Syntax.Syntax.sigelt' += let d = D.desugar_decl (D.mk_env env) (FStarC.Dyn.undyn blob) 0 in match fst d with | Inr None -> //All errors were logged via the error API //Raise one final error at the start of the decl to stop further processing - let start = FStar.Compiler.Range.start_of_range rng in - let rng = FStar.Compiler.Range.mk_range (FStar.Compiler.Range.file_of_range rng) start start in - FStar.Errors.raise_error rng FStar.Errors.Fatal_SyntaxError "Failed to desugar pulse declaration" + let start = FStarC.Compiler.Range.start_of_range rng in + let rng = FStarC.Compiler.Range.mk_range (FStarC.Compiler.Range.file_of_range rng) start start in + FStarC.Errors.raise_error rng FStarC.Errors.Fatal_SyntaxError "Failed to desugar pulse declaration" | Inr (Some (msg, rng)) -> - FStar.Errors.raise_error rng FStar.Errors.Fatal_SyntaxError msg + FStarC.Errors.raise_error rng FStarC.Errors.Fatal_SyntaxError msg | Inl d -> - let blob = FStar.Syntax.Util.mk_lazy d S.t_bool (S.Lazy_extension "pulse_decl") (Some rng) in + let blob = FStarC.Syntax.Util.mk_lazy d S.t_bool (S.Lazy_extension "pulse_decl") (Some rng) in let splicer = let head = S.lid_as_fv pulse_checker_after_desugar_tac None |> S.fv_to_tm in S.mk_Tm_app head [(blob, None)] rng @@ -244,7 +244,7 @@ let desugar_pulse_decl_callback #push-options "--warn_error -272" //intentional top-level effect -let _ = FStar.ToSyntax.ToSyntax.register_extension_tosyntax "pulse" desugar_pulse_decl_callback +let _ = FStarC.ToSyntax.ToSyntax.register_extension_tosyntax "pulse" desugar_pulse_decl_callback #pop-options let parse_pulse (env:TcEnv.env) diff --git a/src/syntax_extension/PulseSyntaxExtension.Desugar.fst b/src/syntax_extension/PulseSyntaxExtension.Desugar.fst index 2a971af0d..a647479dd 100644 --- a/src/syntax_extension/PulseSyntaxExtension.Desugar.fst +++ b/src/syntax_extension/PulseSyntaxExtension.Desugar.fst @@ -16,25 +16,25 @@ module PulseSyntaxExtension.Desugar open FStarC -open FStar.Compiler.Effect +open FStarC.Compiler.Effect module Sugar = PulseSyntaxExtension.Sugar module SW = PulseSyntaxExtension.SyntaxWrapper -module A = FStar.Parser.AST -module D = FStar.Syntax.DsEnv -module ToSyntax = FStar.ToSyntax.ToSyntax -module S = FStar.Syntax.Syntax -module L = FStar.Compiler.List -module U = FStar.Syntax.Util -module SS = FStar.Syntax.Subst -module R = FStar.Compiler.Range -module BU = FStar.Compiler.Util -module P = FStar.Syntax.Print +module A = FStarC.Parser.AST +module D = FStarC.Syntax.DsEnv +module ToSyntax = FStarC.ToSyntax.ToSyntax +module S = FStarC.Syntax.Syntax +module L = FStarC.Compiler.List +module U = FStarC.Syntax.Util +module SS = FStarC.Syntax.Subst +module R = FStarC.Compiler.Range +module BU = FStarC.Compiler.Util +module P = FStarC.Syntax.Print module LR = PulseSyntaxExtension.TransformRValues -open FStar.Class.Show -open FStar.Class.HasRange -open FStar.Class.Monad -open FStar.Ident +open FStarC.Class.Show +open FStarC.Class.HasRange +open FStarC.Class.Monad +open FStarC.Ident open FStar.List.Tot open PulseSyntaxExtension.Err open PulseSyntaxExtension.Env @@ -58,17 +58,17 @@ let as_term (t:S.term) | _ -> SW.tm_expr t t.pos -let desugar_const (c:FStar.Const.sconst) : SW.constant = +let desugar_const (c:FStarC.Const.sconst) : SW.constant = SW.inspect_const c let slprop_to_ast_term (v:Sugar.slprop) : err A.term - = let open FStar.Parser.AST in + = let open FStarC.Parser.AST in match v.v with | Sugar.SLPropTerm t -> return t let comp_to_ast_term (c:Sugar.computation_type) : err A.term = - let open FStar.Parser.AST in + let open FStarC.Parser.AST in let return_ty = c.return_type in let r = c.range in let head = @@ -159,10 +159,10 @@ let tosyntax' (env:env_t) (t:A.term) return (ToSyntax.desugar_term env.dsenv t) with | e -> - match FStar.Errors.issue_of_exn e with + match FStarC.Errors.issue_of_exn e with | Some i -> let i = prepend_ctx_issue (Pprint.arbitrary_string "Failed to desugar Pulse term") i in - FStar.Errors.add_issues [i]; + FStarC.Errors.add_issues [i]; just_fail () | None -> @@ -184,7 +184,7 @@ let desugar_term (env:env_t) (t:A.term) let desugar_term_opt (env:env_t) (t:option A.term) : err SW.term = match t with - | None -> return (SW.tm_unknown FStar.Compiler.Range.dummyRange) + | None -> return (SW.tm_unknown FStarC.Compiler.Range.dummyRange) | Some e -> desugar_term env e // @@ -205,7 +205,7 @@ let idents_as_binders (env:env_t) (l:list ident) (BU.format1 "Identifiers (%s) not found, consider adding them as binders" s) (non_tick_idents |> L.hd |> Ident.range_of_id) else begin - let erased_tm = A.(mk_term (Var FStar.Parser.Const.erased_lid) FStar.Compiler.Range.dummyRange Un) in + let erased_tm = A.(mk_term (Var FStarC.Parser.Const.erased_lid) FStarC.Compiler.Range.dummyRange Un) in let mk_ty i = let wild = A.(mk_term Wild (Ident.range_of_id i) Un) in A.(mkApp erased_tm [wild, A.Nothing] (Ident.range_of_id i)) in @@ -362,12 +362,12 @@ let desugar_hint_type (env:env_t) (ht:Sugar.hint_type) | UNFOLD (ns, vp) -> let! vp = desugar_slprop env vp in let! ns = resolve_names env ns in - let ns = BU.map_opt ns (L.map FStar.Ident.string_of_lid) in + let ns = BU.map_opt ns (L.map FStarC.Ident.string_of_lid) in return (SW.mk_unfold_hint_type ns vp) | FOLD (ns, vp) -> let! vp = desugar_slprop env vp in let! ns = resolve_names env ns in - let ns = BU.map_opt ns (L.map FStar.Ident.string_of_lid) in + let ns = BU.map_opt ns (L.map FStarC.Ident.string_of_lid) in return (SW.mk_fold_hint_type ns vp) | RENAME (pairs, goal, tac_opt) -> let! pairs = @@ -434,7 +434,7 @@ let rec desugar_stmt (env:env_t) (s:Sugar.stmt) let env = push_namespace env l in return env with - | FStar.Errors.Error(e, msg, r, ctx) -> + | FStarC.Errors.Error(e, msg, r, ctx) -> fail (BU.format2 "Failed to open namespace %s; \ You may need to bind this namespace outside Pulse for the F* dependency scanner to pick it up, \ @@ -769,7 +769,7 @@ and desugar_lambda (env:env_t) (l:Sugar.lambda) return (env, bs, bvs, Some comp) in let! body = - if FStar.Options.Ext.get "pulse:rvalues" <> "" + if FStarC.Options.Ext.get "pulse:rvalues" <> "" then LR.transform env body else return body in @@ -823,7 +823,7 @@ and desugar_decl (env:env_t) let bvs = bvs@bvs' in let! comp = desugar_computation_type env ascription in let! body = - if FStar.Options.Ext.get "pulse:rvalues" <> "" + if FStarC.Options.Ext.get "pulse:rvalues" <> "" then LR.transform env body else return body in diff --git a/src/syntax_extension/PulseSyntaxExtension.Desugar.fsti b/src/syntax_extension/PulseSyntaxExtension.Desugar.fsti index 82344c953..af3bde73f 100644 --- a/src/syntax_extension/PulseSyntaxExtension.Desugar.fsti +++ b/src/syntax_extension/PulseSyntaxExtension.Desugar.fsti @@ -17,11 +17,11 @@ module PulseSyntaxExtension.Desugar open FStarC -open FStar.Compiler.Effect +open FStarC.Compiler.Effect module Sugar = PulseSyntaxExtension.Sugar module SW = PulseSyntaxExtension.SyntaxWrapper -module D = FStar.Syntax.DsEnv -module R = FStar.Compiler.Range +module D = FStarC.Syntax.DsEnv +module R = FStarC.Compiler.Range // An error can be "None", which means all relevant // errors were already logged via the error API. @@ -38,7 +38,7 @@ val desugar_decl (env:env_t) let name = list string val reinitialize_env (env:D.env) - (curmode:FStar.Ident.lident) + (curmode:FStarC.Ident.lident) (open_namespaces: list name) (module_abbrevs: list (string & name)) : env_t diff --git a/src/syntax_extension/PulseSyntaxExtension.Env.fst b/src/syntax_extension/PulseSyntaxExtension.Env.fst index 56d0de738..919cf2602 100644 --- a/src/syntax_extension/PulseSyntaxExtension.Env.fst +++ b/src/syntax_extension/PulseSyntaxExtension.Env.fst @@ -16,27 +16,27 @@ module PulseSyntaxExtension.Env open FStarC -open FStar.Compiler.Effect +open FStarC.Compiler.Effect // module Sugar = PulseSugar module SW = PulseSyntaxExtension.SyntaxWrapper -module A = FStar.Parser.AST -module D = FStar.Syntax.DsEnv -module S = FStar.Syntax.Syntax -module L = FStar.Compiler.List -module U = FStar.Syntax.Util -module SS = FStar.Syntax.Subst -module R = FStar.Compiler.Range -module BU = FStar.Compiler.Util -module P = FStar.Syntax.Print -module ToSyntax = FStar.ToSyntax.ToSyntax -open FStar.Class.Show -open FStar.Class.HasRange -open FStar.Class.Monad -open FStar.Ident +module A = FStarC.Parser.AST +module D = FStarC.Syntax.DsEnv +module S = FStarC.Syntax.Syntax +module L = FStarC.Compiler.List +module U = FStarC.Syntax.Util +module SS = FStarC.Syntax.Subst +module R = FStarC.Compiler.Range +module BU = FStarC.Compiler.Util +module P = FStarC.Syntax.Print +module ToSyntax = FStarC.ToSyntax.ToSyntax +open FStarC.Class.Show +open FStarC.Class.HasRange +open FStarC.Class.Monad +open FStarC.Ident open FStar.List.Tot open PulseSyntaxExtension.Err -let r_ = FStar.Compiler.Range.dummyRange +let r_ = FStarC.Compiler.Range.dummyRange #push-options "--warn_error -272" //intentional top-level effects let admit_lid = Ident.lid_of_path ["Prims"; "admit"] r_ let pulse_lib_core_lid l = Ident.lid_of_path (["Pulse"; "Lib"; "Core"]@[l]) r_ @@ -162,7 +162,7 @@ let free_vars_comp (env:env_t) (c:Sugar.computation_type) ensures bar 'x which elaborates to implicit arguments for `x` and `y`, and they should be in that order, i.e. textual order. *) - FStar.Class.Ord.dedup ids + FStarC.Class.Ord.dedup ids let pat_vars (p:A.pattern) : err (list ident) diff --git a/src/syntax_extension/PulseSyntaxExtension.Err.fst b/src/syntax_extension/PulseSyntaxExtension.Err.fst index e6a0705e3..e36efd6de 100644 --- a/src/syntax_extension/PulseSyntaxExtension.Err.fst +++ b/src/syntax_extension/PulseSyntaxExtension.Err.fst @@ -16,11 +16,11 @@ module PulseSyntaxExtension.Err open FStarC -module R = FStar.Compiler.Range -open FStar.Compiler.Effect -open FStar.Class.HasRange -open FStar.Ident -open FStar.Class.Monad +module R = FStarC.Compiler.Range +open FStarC.Compiler.Effect +open FStarC.Class.HasRange +open FStarC.Ident +open FStarC.Class.Monad instance hasRange_ident : hasRange ident = { pos = Ident.range_of_id; setPos = Ident.set_id_range @@ -74,7 +74,7 @@ let rec map2 (f : 'a -> 'b -> 'c) (xs : list 'a) (ys : list 'b) : err (list 'c) let! r = map2 f xx yy in return (f x y :: r) | _ -> - fail "map2: mismatch" FStar.Compiler.Range.dummyRange + fail "map2: mismatch" FStarC.Compiler.Range.dummyRange let left (f:either 'a 'b) (r:R.range) diff --git a/src/syntax_extension/PulseSyntaxExtension.Parser.fsti b/src/syntax_extension/PulseSyntaxExtension.Parser.fsti index 6377bb4a0..290e01ca1 100644 --- a/src/syntax_extension/PulseSyntaxExtension.Parser.fsti +++ b/src/syntax_extension/PulseSyntaxExtension.Parser.fsti @@ -18,16 +18,16 @@ module PulseSyntaxExtension.Parser open FStarC val parse_peek_id (contents:string) - (r:FStar.Compiler.Range.range) + (r:FStarC.Compiler.Range.range) : either string - (string & FStar.Compiler.Range.range) + (string & FStarC.Compiler.Range.range) val parse_decl (contents:string) - (r:FStar.Compiler.Range.range) + (r:FStarC.Compiler.Range.range) : either PulseSyntaxExtension.Sugar.decl - (option (string & FStar.Compiler.Range.range)) + (option (string & FStarC.Compiler.Range.range)) val parse_lang (contents:string) - (r:FStar.Compiler.Range.range) - : either (list (either PulseSyntaxExtension.Sugar.decl FStar.Parser.AST.decl) & option FStar.Parser.ParseIt.parse_error) - (option (string & FStar.Compiler.Range.range)) \ No newline at end of file + (r:FStarC.Compiler.Range.range) + : either (list (either PulseSyntaxExtension.Sugar.decl FStarC.Parser.AST.decl) & option FStarC.Parser.ParseIt.parse_error) + (option (string & FStarC.Compiler.Range.range)) \ No newline at end of file diff --git a/src/syntax_extension/PulseSyntaxExtension.Sugar.fst b/src/syntax_extension/PulseSyntaxExtension.Sugar.fst index 768c16f3c..344878a80 100644 --- a/src/syntax_extension/PulseSyntaxExtension.Sugar.fst +++ b/src/syntax_extension/PulseSyntaxExtension.Sugar.fst @@ -16,14 +16,14 @@ module PulseSyntaxExtension.Sugar open FStarC -open FStar.Ident -module A = FStar.Parser.AST -module AU = FStar.Parser.AST.Util -open FStar.Class.Show -open FStar.Class.Tagged +open FStarC.Ident +module A = FStarC.Parser.AST +module AU = FStarC.Parser.AST.Util +open FStarC.Class.Show +open FStarC.Class.Tagged -let rng = FStar.Compiler.Range.range -let dummyRange = FStar.Compiler.Range.dummyRange +let rng = FStarC.Compiler.Range.range +let dummyRange = FStarC.Compiler.Range.dummyRange //Note: We do not yet process binder attributes, like typeclass attributes type binder = A.binder @@ -293,13 +293,13 @@ let rec stmt_to_string (s:stmt) : string = "head", show head; "join_slprop", show join_slprop; "then_", stmt_to_string then_; - "else_opt", FStar.Common.string_of_option stmt_to_string else_opt; + "else_opt", FStarC.Common.string_of_option stmt_to_string else_opt; ] | Match { head; returns_annot; branches } -> "Match " ^ record_string [ "head", show head; "returns_annot", show returns_annot; - "branches", FStar.Common.string_of_list branch_to_string branches; + "branches", FStarC.Common.string_of_list branch_to_string branches; ] | While { guard; id; invariant; body } -> "While " ^ record_string [ @@ -311,7 +311,7 @@ let rec stmt_to_string (s:stmt) : string = | Introduce { slprop; witnesses } -> "Introduce " ^ record_string [ "slprop", show slprop; - "witnesses", FStar.Common.string_of_list show witnesses + "witnesses", FStarC.Common.string_of_list show witnesses ] | Sequence { s1; s2 } -> "Sequence " ^ record_string [ @@ -334,9 +334,9 @@ let rec stmt_to_string (s:stmt) : string = ] | WithInvariants { names; body; returns_ } -> "WithInvariants " ^ record_string [ - "names", FStar.Common.string_of_list show names; + "names", FStarC.Common.string_of_list show names; "body", stmt_to_string body; - "returns_", FStar.Common.string_of_option show returns_; + "returns_", FStarC.Common.string_of_option show returns_; ] and branch_to_string (b:A.pattern & stmt) : string = @@ -350,7 +350,7 @@ instance showable_stmt : showable stmt = { type decl = | FnDefn of fn_defn | FnDecl of fn_decl -open FStar.Class.Deq +open FStarC.Class.Deq let eq_ident (i1 i2:Ident.ident) = i1 =? i2 let eq_lident (i1 i2:Ident.lident) = i1 =? i2 let rec forall2 (f:'a -> 'a -> bool) (l1 l2:list 'a) : bool = diff --git a/src/syntax_extension/PulseSyntaxExtension.SyntaxWrapper.fsti b/src/syntax_extension/PulseSyntaxExtension.SyntaxWrapper.fsti index 265c4f3bb..2a8fd34ba 100644 --- a/src/syntax_extension/PulseSyntaxExtension.SyntaxWrapper.fsti +++ b/src/syntax_extension/PulseSyntaxExtension.SyntaxWrapper.fsti @@ -16,8 +16,8 @@ module PulseSyntaxExtension.SyntaxWrapper open FStarC -open FStar.Ident -let range = FStar.Compiler.Range.range +open FStarC.Ident +let range = FStarC.Compiler.Range.range let var = nat let index = nat @@ -56,8 +56,8 @@ val tm_pure (p:term) (_:range) : term val tm_star (p0 p1:term) (_:range) : term val tm_exists (b:binder) (body:slprop) (_:range) : term val tm_forall (b:binder) (body:slprop) (_:range) : term -val tm_arrow (b:binder) (q:FStar.Syntax.Syntax.aqual) (body:comp) (_:range) : term -val tm_expr (t:FStar.Syntax.Syntax.term) (_:range) : term +val tm_arrow (b:binder) (q:FStarC.Syntax.Syntax.aqual) (body:comp) (_:range) : term +val tm_expr (t:FStarC.Syntax.Syntax.term) (_:range) : term val tm_unknown (_:range) : term val tm_emp_inames : term val mk_tot (t:term) : comp @@ -77,7 +77,7 @@ val mk_rename_hint_type (l:list (term & term)) (goal:option slprop) (tac_opt : o val mk_rewrite_hint_type (p1:term) (p2:term) (tac_opt : option term) : hint_type new val constant : Type0 -val inspect_const : FStar.Const.sconst -> constant +val inspect_const : FStarC.Const.sconst -> constant new val pattern : Type0 val pat_var (ppname:string) (_:range) : pattern @@ -89,7 +89,7 @@ type branch = pattern & st_term val tm_return (t:term) (_:range) : st_term val tm_ghost_return (t:term) (_:range) : st_term val tm_abs (b:binder) (q:option qualifier) (_:option comp) (body:st_term) (_:range) : st_term -val tm_st_app (head:term) (q:FStar.Syntax.Syntax.aqual) (arg:term) (_:range) : st_term +val tm_st_app (head:term) (q:FStarC.Syntax.Syntax.aqual) (arg:term) (_:range) : st_term val tm_bind (x:binder) (e1:st_term) (e2:st_term) (_:range) : st_term val tm_totbind (x:binder) (e1:term) (e2:st_term) (_:range) : st_term val tm_let_mut (x:binder) (v:term) (k:st_term) (_:range) : st_term @@ -117,10 +117,10 @@ val comp_res (c:comp) : term val comp_post (c:comp) : term val print_exn (e:exn) : string -val binder_to_string (env:FStar.TypeChecker.Env.env) (b:binder) : string -val term_to_string (env:FStar.TypeChecker.Env.env) (_:term) : string -val st_term_to_string (env:FStar.TypeChecker.Env.env) (_:st_term) : string -val comp_to_string (env:FStar.TypeChecker.Env.env) (_:comp) : string +val binder_to_string (env:FStarC.TypeChecker.Env.env) (b:binder) : string +val term_to_string (env:FStarC.TypeChecker.Env.env) (_:term) : string +val st_term_to_string (env:FStarC.TypeChecker.Env.env) (_:st_term) : string +val comp_to_string (env:FStarC.TypeChecker.Env.env) (_:comp) : string val bv_to_string (_:bv) : string val subst : Type0 val bvs_as_subst (l:list var) : subst @@ -130,7 +130,7 @@ val subst_proof_hint (s:subst) (h:hint_type) : hint_type new val decl : Type0 -val decl_to_string (env:FStar.TypeChecker.Env.env) (_:decl) : string +val decl_to_string (env:FStarC.TypeChecker.Env.env) (_:decl) : string val fn_defn : range -> diff --git a/src/syntax_extension/PulseSyntaxExtension.TransformRValues.fst b/src/syntax_extension/PulseSyntaxExtension.TransformRValues.fst index a51be2fcc..39f4df2cd 100644 --- a/src/syntax_extension/PulseSyntaxExtension.TransformRValues.fst +++ b/src/syntax_extension/PulseSyntaxExtension.TransformRValues.fst @@ -16,22 +16,22 @@ module PulseSyntaxExtension.TransformRValues open FStarC -open FStar.Compiler.Effect +open FStarC.Compiler.Effect module Sugar = PulseSyntaxExtension.Sugar module SW = PulseSyntaxExtension.SyntaxWrapper -module A = FStar.Parser.AST -module D = FStar.Syntax.DsEnv -module S = FStar.Syntax.Syntax -module L = FStar.Compiler.List -module U = FStar.Syntax.Util -module SS = FStar.Syntax.Subst -module R = FStar.Compiler.Range -module BU = FStar.Compiler.Util -module P = FStar.Syntax.Print -open FStar.Class.Show -open FStar.Class.HasRange -open FStar.Class.Monad -open FStar.Ident +module A = FStarC.Parser.AST +module D = FStarC.Syntax.DsEnv +module S = FStarC.Syntax.Syntax +module L = FStarC.Compiler.List +module U = FStarC.Syntax.Util +module SS = FStarC.Syntax.Subst +module R = FStarC.Compiler.Range +module BU = FStarC.Compiler.Util +module P = FStarC.Syntax.Print +open FStarC.Class.Show +open FStarC.Class.HasRange +open FStarC.Class.Monad +open FStarC.Ident open FStar.List.Tot open PulseSyntaxExtension.Err open PulseSyntaxExtension.Env @@ -98,7 +98,7 @@ let resolve_mut (m:menv) (e:A.term) = let open A in match e.tm with | Var l -> ( - let topt = FStar.Syntax.DsEnv.try_lookup_lid m.env.dsenv l in + let topt = FStarC.Syntax.DsEnv.try_lookup_lid m.env.dsenv l in match topt with | Some {n=S.Tm_name x} -> L.tryFind (fun (_, y, _) -> S.bv_eq x y) m.map From 93d8a0acd98a85ba17cd10d95eed7443ae52e26d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Thu, 10 Oct 2024 17:42:24 -0700 Subject: [PATCH 4/9] Rename parser file --- .../plugin/{FStar_Parser_Parse.mly => FStarC_Parser_Parse.mly} | 0 1 file changed, 0 insertions(+), 0 deletions(-) rename src/ocaml/plugin/{FStar_Parser_Parse.mly => FStarC_Parser_Parse.mly} (100%) diff --git a/src/ocaml/plugin/FStar_Parser_Parse.mly b/src/ocaml/plugin/FStarC_Parser_Parse.mly similarity index 100% rename from src/ocaml/plugin/FStar_Parser_Parse.mly rename to src/ocaml/plugin/FStarC_Parser_Parse.mly From e3f7847e6543dd3e2170e45ad4976a880412ec95 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Thu, 10 Oct 2024 17:47:00 -0700 Subject: [PATCH 5/9] Update dune file --- src/ocaml/plugin/dune | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ocaml/plugin/dune b/src/ocaml/plugin/dune index 700f235d2..3d555c697 100755 --- a/src/ocaml/plugin/dune +++ b/src/ocaml/plugin/dune @@ -13,5 +13,5 @@ ) (menhir - (modules pulseparser FStar_Parser_Parse) + (modules pulseparser FStarC_Parser_Parse) (merge_into Pulse_FStar_Parser)) From 273794e6ee3c881d0cf9abd450e5b4adec13e500 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Thu, 10 Oct 2024 17:48:18 -0700 Subject: [PATCH 6/9] snap, as usual --- .../PulseSyntaxExtension_ASTBuilder.ml | 41 +++++++----- .../generated/PulseSyntaxExtension_Desugar.ml | 25 +++++--- .../generated/PulseSyntaxExtension_Env.ml | 7 ++- .../generated/PulseSyntaxExtension_Sugar.ml | 63 +++++++++++-------- .../PulseSyntaxExtension_TransformRValues.ml | 10 +-- .../plugin/generated/Pulse_Checker_Abs.ml | 3 +- .../Pulse_Checker_AssertWithBinders.ml | 5 +- .../plugin/generated/Pulse_Checker_Base.ml | 14 +++-- .../plugin/generated/Pulse_Checker_Match.ml | 11 ++-- .../Pulse_Checker_Prover_ElimPure.ml | 3 +- .../Pulse_Checker_Prover_Match_Matchers.ml | 5 +- .../generated/Pulse_Checker_Prover_Util.ml | 3 +- .../plugin/generated/Pulse_Checker_Pure.ml | 27 ++++---- .../plugin/generated/Pulse_Elaborate_Core.ml | 6 +- .../plugin/generated/Pulse_Extract_Main.ml | 11 ++-- src/ocaml/plugin/generated/Pulse_Main.ml | 48 +++++++------- src/ocaml/plugin/generated/Pulse_PP.ml | 14 +++-- src/ocaml/plugin/generated/Pulse_Readback.ml | 3 +- src/ocaml/plugin/generated/Pulse_Recursion.ml | 3 +- .../plugin/generated/Pulse_Reflection_Util.ml | 61 +++++++++++------- .../generated/Pulse_Soundness_SLPropEquiv.ml | 3 +- .../plugin/generated/Pulse_Syntax_Base.ml | 6 +- .../plugin/generated/Pulse_Syntax_Builder.ml | 3 +- .../plugin/generated/Pulse_Syntax_Naming.ml | 3 +- .../plugin/generated/Pulse_Syntax_Printer.ml | 4 +- .../plugin/generated/Pulse_Syntax_Pure.ml | 20 +++--- src/ocaml/plugin/generated/Pulse_Typing.ml | 8 ++- .../plugin/generated/Pulse_Typing_Env.ml | 4 +- 28 files changed, 245 insertions(+), 169 deletions(-) diff --git a/src/ocaml/plugin/generated/PulseSyntaxExtension_ASTBuilder.ml b/src/ocaml/plugin/generated/PulseSyntaxExtension_ASTBuilder.ml index 2f4e011ba..602c62461 100644 --- a/src/ocaml/plugin/generated/PulseSyntaxExtension_ASTBuilder.ml +++ b/src/ocaml/plugin/generated/PulseSyntaxExtension_ASTBuilder.ml @@ -48,9 +48,11 @@ let (i : FStarC_Parser_AST.Const uu___1 in tm uu___ r let (str : - Prims.string -> FStarC_Compiler_Range_Type.range -> FStarC_Parser_AST.term) = + Prims.string -> FStarC_Compiler_Range_Type.range -> FStarC_Parser_AST.term) + = fun s -> - fun r -> tm (FStarC_Parser_AST.Const (FStarC_Const.Const_string (s, r))) r + fun r -> + tm (FStarC_Parser_AST.Const (FStarC_Const.Const_string (s, r))) r let (lid_as_term : FStarC_Ident.lident -> FStarC_Compiler_Range_Type.range -> FStarC_Parser_AST.term) @@ -81,7 +83,8 @@ let (encode_open_namespaces_and_abbreviations : match uu___2 with | (a, m) -> let a1 = - let uu___3 = FStarC_Ident.string_of_id a in str1 uu___3 in + let uu___3 = FStarC_Ident.string_of_id a in + str1 uu___3 in let m1 = lid_as_term1 m in FStarC_Parser_AST.mkTuple [a1; m1] r) ctx.FStarC_Parser_AST_Util.module_abbreviations in @@ -90,7 +93,8 @@ let (encode_open_namespaces_and_abbreviations : (namespaces, abbrevs) let (encode_range : FStarC_Compiler_Range_Type.range -> - (FStarC_Parser_AST.term * FStarC_Parser_AST.term * FStarC_Parser_AST.term)) + (FStarC_Parser_AST.term * FStarC_Parser_AST.term * + FStarC_Parser_AST.term)) = fun r -> let line = @@ -170,7 +174,8 @@ let maybe_report_error : FStarC_Compiler_Range_Type.range) FStar_Pervasives_Native.option -> ('uuuuu1, FStarC_Parser_AST.decl) FStar_Pervasives.either Prims.list -> (FStarC_Parser_AST_Util.error_message, - ('uuuuu1, FStarC_Parser_AST.decl) FStar_Pervasives.either Prims.list) + ('uuuuu1, FStarC_Parser_AST.decl) FStar_Pervasives.either + Prims.list) FStar_Pervasives.either = fun first_error -> @@ -205,8 +210,8 @@ let maybe_report_error : let uu___2 = let uu___3 = let uu___4 = - FStarC_Parser_AST.mk_decl FStarC_Parser_AST.Unparseable r - [] in + FStarC_Parser_AST.mk_decl FStarC_Parser_AST.Unparseable + r [] in FStar_Pervasives.Inr uu___4 in [uu___3] in FStar_List_Tot_Base.op_At decls uu___2 in @@ -214,8 +219,8 @@ let maybe_report_error : let (parse_extension_lang : Prims.string -> FStarC_Compiler_Range_Type.range -> - (FStarC_Parser_AST_Util.error_message, FStarC_Parser_AST.decl Prims.list) - FStar_Pervasives.either) + (FStarC_Parser_AST_Util.error_message, + FStarC_Parser_AST.decl Prims.list) FStar_Pervasives.either) = fun contents -> fun r -> @@ -284,26 +289,28 @@ let (parse_extension_lang : PulseSyntaxExtension_Sugar.range4 = uu___6;_} -> decorations in let d1 = - FStarC_Parser_AST.DeclToBeDesugared + let uu___3 = + let uu___4 = FStarC_Dyn.mkdyn d in { FStarC_Parser_AST.lang_name = "pulse"; - FStarC_Parser_AST.blob = (FStarC_Dyn.mkdyn d); + FStarC_Parser_AST.blob = uu___4; FStarC_Parser_AST.idents = [id]; FStarC_Parser_AST.to_string = (fun d2 -> ""); FStarC_Parser_AST.eq = (fun d11 -> fun d2 -> - let uu___3 = FStarC_Dyn.undyn d11 in - let uu___4 = FStarC_Dyn.undyn d2 in - PulseSyntaxExtension_Sugar.eq_decl uu___3 - uu___4); + let uu___5 = FStarC_Dyn.undyn d11 in + let uu___6 = FStarC_Dyn.undyn d2 in + PulseSyntaxExtension_Sugar.eq_decl uu___5 + uu___6); FStarC_Parser_AST.dep_scan = (fun cbs -> fun d2 -> - let uu___3 = FStarC_Dyn.undyn d2 in + let uu___5 = FStarC_Dyn.undyn d2 in PulseSyntaxExtension_Sugar.scan_decl cbs - uu___3) + uu___5) } in + FStarC_Parser_AST.DeclToBeDesugared uu___3 in let d2 = let uu___3 = FStarC_Compiler_List.partition diff --git a/src/ocaml/plugin/generated/PulseSyntaxExtension_Desugar.ml b/src/ocaml/plugin/generated/PulseSyntaxExtension_Desugar.ml index d6318d744..d81b8015d 100644 --- a/src/ocaml/plugin/generated/PulseSyntaxExtension_Desugar.ml +++ b/src/ocaml/plugin/generated/PulseSyntaxExtension_Desugar.ml @@ -95,8 +95,9 @@ let (comp_to_ast_term : | PulseSyntaxExtension_Sugar.STGhost -> let h = FStarC_Parser_AST.mk_term - (FStarC_Parser_AST.Var PulseSyntaxExtension_Env.stt_ghost_lid) - r FStarC_Parser_AST.Expr in + (FStarC_Parser_AST.Var + PulseSyntaxExtension_Env.stt_ghost_lid) r + FStarC_Parser_AST.Expr in let h1 = FStarC_Parser_AST.mk_term (FStarC_Parser_AST.App @@ -106,8 +107,8 @@ let (comp_to_ast_term : let uu___ = slprop_to_ast_term c.PulseSyntaxExtension_Sugar.precondition in Obj.magic - (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () - () (Obj.magic uu___) + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad + () () (Obj.magic uu___) (fun uu___1 -> (fun pre -> let pre = Obj.magic pre in @@ -361,12 +362,14 @@ let (idents_as_binders : FStarC_Compiler_List.filter (fun i -> let uu___ = FStarC_Ident.string_of_id i in - Prims.op_Negation (FStarC_Compiler_Util.starts_with uu___ "'")) l in + Prims.op_Negation (FStarC_Compiler_Util.starts_with uu___ "'")) + l in if (FStarC_Compiler_List.length non_tick_idents) <> Prims.int_zero then let s = let uu___ = - FStarC_Compiler_List.map FStarC_Ident.string_of_id non_tick_idents in + FStarC_Compiler_List.map FStarC_Ident.string_of_id + non_tick_idents in FStarC_Compiler_Util.concat_l ", " uu___ in let uu___ = FStarC_Compiler_Util.format1 @@ -1089,8 +1092,8 @@ let (desugar_datacon : | uu___3 -> let uu___4 = let uu___5 = FStarC_Ident.string_of_lid l in - FStarC_Compiler_Util.format1 "Not a datacon? %s" - uu___5 in + FStarC_Compiler_Util.format1 + "Not a datacon? %s" uu___5 in PulseSyntaxExtension_Err.fail uu___4 rng in Obj.magic (FStarC_Class_Monad.op_let_Bang @@ -2143,7 +2146,8 @@ and (desugar_pat : | FStarC_Parser_AST.PatWild uu___3 -> let uu___4 = - FStarC_Ident.mk_ident ("_", r) in + FStarC_Ident.mk_ident + ("_", r) in Obj.magic (PulseSyntaxExtension_Err.return uu___4) @@ -3669,7 +3673,8 @@ let (reinitialize_env : let uu___ = FStarC_Ident.lid_of_path ns PulseSyntaxExtension_Env.r_ in FStarC_Syntax_DsEnv.push_namespace env uu___ - FStarC_Syntax_Syntax.Unrestricted) open_namespaces dsenv1 in + FStarC_Syntax_Syntax.Unrestricted) open_namespaces + dsenv1 in let dsenv3 = FStarC_Syntax_DsEnv.push_namespace dsenv2 curmod FStarC_Syntax_Syntax.Unrestricted in diff --git a/src/ocaml/plugin/generated/PulseSyntaxExtension_Env.ml b/src/ocaml/plugin/generated/PulseSyntaxExtension_Env.ml index 1b6437a3d..4f29d2169 100644 --- a/src/ocaml/plugin/generated/PulseSyntaxExtension_Env.ml +++ b/src/ocaml/plugin/generated/PulseSyntaxExtension_Env.ml @@ -16,7 +16,8 @@ let (prims_exists_lid : FStarC_Ident.lident) = FStarC_Ident.lid_of_path ["Prims"; "l_Exists"] r_ let (prims_forall_lid : FStarC_Ident.lident) = FStarC_Ident.lid_of_path ["Prims"; "l_Forall"] r_ -let (unreachable_lid : FStarC_Ident.lident) = pulse_lib_core_lid "unreachable" +let (unreachable_lid : FStarC_Ident.lident) = + pulse_lib_core_lid "unreachable" let (forall_lid : FStarC_Ident.lident) = pulse_lib_core_lid "op_forall_Star" let (exists_lid : FStarC_Ident.lident) = pulse_lib_core_lid "op_exists_Star" let (star_lid : FStarC_Ident.lident) = pulse_lib_core_lid "op_Star_Star" @@ -114,8 +115,8 @@ let (resolve_lid : FStarC_Class_Show.show FStarC_Ident.showable_lident lid in FStarC_Compiler_Util.format1 "Name %s not found" uu___2 in let uu___2 = - FStarC_Class_HasRange.pos PulseSyntaxExtension_Err.hasRange_lident - lid in + FStarC_Class_HasRange.pos + PulseSyntaxExtension_Err.hasRange_lident lid in PulseSyntaxExtension_Err.fail uu___1 uu___2 | FStar_Pervasives_Native.Some t -> let uu___1 = diff --git a/src/ocaml/plugin/generated/PulseSyntaxExtension_Sugar.ml b/src/ocaml/plugin/generated/PulseSyntaxExtension_Sugar.ml index 02d628de1..2beab94a7 100644 --- a/src/ocaml/plugin/generated/PulseSyntaxExtension_Sugar.ml +++ b/src/ocaml/plugin/generated/PulseSyntaxExtension_Sugar.ml @@ -68,7 +68,8 @@ let (__proj__Mkcomputation_type__item__postcondition : | { tag; precondition; return_name; return_type; postcondition; opens; range;_} -> postcondition let (__proj__Mkcomputation_type__item__opens : - computation_type -> FStarC_Parser_AST.term FStar_Pervasives_Native.option) = + computation_type -> FStarC_Parser_AST.term FStar_Pervasives_Native.option) + = fun projectee -> match projectee with | { tag; precondition; return_name; return_type; postcondition; opens; @@ -93,8 +94,8 @@ let (showable_mut_or_ref : mut_or_ref FStarC_Class_Show.showable) = type hint_type = | ASSERT of slprop | ASSUME of slprop - | UNFOLD of (FStarC_Ident.lident Prims.list FStar_Pervasives_Native.option * - slprop) + | UNFOLD of (FStarC_Ident.lident Prims.list FStar_Pervasives_Native.option + * slprop) | FOLD of (FStarC_Ident.lident Prims.list FStar_Pervasives_Native.option * slprop) | RENAME of ((FStarC_Parser_AST.term * FStarC_Parser_AST.term) Prims.list * @@ -169,8 +170,8 @@ let (showable_hint_type : hint_type FStarC_Class_Show.showable) = let uu___1 = FStarC_Class_Show.show (FStarC_Class_Show.show_option - (FStarC_Class_Show.show_list FStarC_Ident.showable_lident)) - ns in + (FStarC_Class_Show.show_list + FStarC_Ident.showable_lident)) ns in let uu___2 = let uu___3 = FStarC_Class_Show.show showable_slprop s in Prims.strcat " " uu___3 in @@ -181,8 +182,8 @@ let (showable_hint_type : hint_type FStarC_Class_Show.showable) = let uu___1 = FStarC_Class_Show.show (FStarC_Class_Show.show_option - (FStarC_Class_Show.show_list FStarC_Ident.showable_lident)) - ns in + (FStarC_Class_Show.show_list + FStarC_Ident.showable_lident)) ns in let uu___2 = let uu___3 = FStarC_Class_Show.show showable_slprop s in Prims.strcat " " uu___3 in @@ -230,16 +231,18 @@ let (showable_hint_type : hint_type FStarC_Class_Show.showable) = | WILD -> "WILD" | SHOW_PROOF_STATE r -> "SHOW_PROOF_STATE ...") } -type array_init = { +type array_init = + { init: FStarC_Parser_AST.term ; len: FStarC_Parser_AST.term } let (__proj__Mkarray_init__item__init : array_init -> FStarC_Parser_AST.term) = fun projectee -> match projectee with | { init; len;_} -> init -let (__proj__Mkarray_init__item__len : array_init -> FStarC_Parser_AST.term) = - fun projectee -> match projectee with | { init; len;_} -> len +let (__proj__Mkarray_init__item__len : array_init -> FStarC_Parser_AST.term) + = fun projectee -> match projectee with | { init; len;_} -> len type ensures_slprop = - ((FStarC_Ident.ident * FStarC_Parser_AST.term) FStar_Pervasives_Native.option - * slprop * FStarC_Parser_AST.term FStar_Pervasives_Native.option) + ((FStarC_Ident.ident * FStarC_Parser_AST.term) + FStar_Pervasives_Native.option * slprop * FStarC_Parser_AST.term + FStar_Pervasives_Native.option) type stmt'__Expr__payload = { e: FStarC_Parser_AST.term } and stmt'__Assignment__payload = @@ -738,12 +741,12 @@ let (record_string : (fun uu___ -> match uu___ with | (f, s) -> Prims.strcat f (Prims.strcat " = " s)) fs)) "}") -let (showable_pattern : FStarC_Parser_AST.pattern FStarC_Class_Show.showable) = - { FStarC_Class_Show.show = FStarC_Parser_AST.pat_to_string } +let (showable_pattern : FStarC_Parser_AST.pattern FStarC_Class_Show.showable) + = { FStarC_Class_Show.show = FStarC_Parser_AST.pat_to_string } let (showable_a_term : FStarC_Parser_AST.term FStarC_Class_Show.showable) = { FStarC_Class_Show.show = FStarC_Parser_AST.term_to_string } -let (showable_a_binder : FStarC_Parser_AST.binder FStarC_Class_Show.showable) = - { FStarC_Class_Show.show = FStarC_Parser_AST.binder_to_string } +let (showable_a_binder : FStarC_Parser_AST.binder FStarC_Class_Show.showable) + = { FStarC_Class_Show.show = FStarC_Parser_AST.binder_to_string } let rec (stmt_to_string : stmt -> Prims.string) = fun s -> match s.s with @@ -809,7 +812,8 @@ let rec (stmt_to_string : stmt -> Prims.string) = let uu___8 = let uu___9 = FStarC_Class_Show.show - (FStarC_Class_Show.show_option showable_let_init) init in + (FStarC_Class_Show.show_option showable_let_init) + init in ("init", uu___9) in [uu___8] in uu___6 :: uu___7 in @@ -1037,8 +1041,8 @@ let (__proj__FnDecl__item___0 : decl -> fn_decl) = let (eq_ident : FStarC_Ident.ident -> FStarC_Ident.ident -> Prims.bool) = fun i1 -> fun i2 -> - FStarC_Class_Deq.op_Equals_Question FStarC_Syntax_Syntax.deq_univ_name i1 - i2 + FStarC_Class_Deq.op_Equals_Question FStarC_Syntax_Syntax.deq_univ_name + i1 i2 let (eq_lident : FStarC_Ident.lident -> FStarC_Ident.lident -> Prims.bool) = fun i1 -> fun i2 -> @@ -1119,7 +1123,8 @@ and (eq_slprop' : slprop' -> slprop' -> Prims.bool) = fun s1 -> fun s2 -> match (s1, s2) with - | (SLPropTerm t1, SLPropTerm t2) -> FStarC_Parser_AST_Util.eq_term t1 t2 + | (SLPropTerm t1, SLPropTerm t2) -> + FStarC_Parser_AST_Util.eq_term t1 t2 and (eq_body : (stmt, lambda) FStar_Pervasives.either -> (stmt, lambda) FStar_Pervasives.either -> Prims.bool) @@ -1294,11 +1299,13 @@ let rec (scan_decl : FStarC_Parser_AST.dep_scan_callbacks -> decl -> unit) = match d with | FnDefn f -> scan_fn_defn cbs f | FnDecl d1 -> scan_fn_decl cbs d1 -and (scan_fn_decl : FStarC_Parser_AST.dep_scan_callbacks -> fn_decl -> unit) = +and (scan_fn_decl : FStarC_Parser_AST.dep_scan_callbacks -> fn_decl -> unit) + = fun cbs -> fun f -> iter (scan_binder cbs) f.binders3; scan_ascription cbs f.ascription2 -and (scan_fn_defn : FStarC_Parser_AST.dep_scan_callbacks -> fn_defn -> unit) = +and (scan_fn_defn : FStarC_Parser_AST.dep_scan_callbacks -> fn_defn -> unit) + = fun cbs -> fun f -> iter (scan_binder cbs) f.binders2; @@ -1343,7 +1350,8 @@ and (scan_stmt : FStarC_Parser_AST.dep_scan_callbacks -> stmt -> unit) = | Open l -> cbs.FStarC_Parser_AST.add_open l | Expr e -> cbs.FStarC_Parser_AST.scan_term e.e | Assignment { lhs = l; value = v;_} -> - (cbs.FStarC_Parser_AST.scan_term l; cbs.FStarC_Parser_AST.scan_term v) + (cbs.FStarC_Parser_AST.scan_term l; + cbs.FStarC_Parser_AST.scan_term v) | ArrayAssignment { arr = a; index = i; value1 = v;_} -> (cbs.FStarC_Parser_AST.scan_term a; cbs.FStarC_Parser_AST.scan_term i; @@ -1385,8 +1393,8 @@ and (scan_stmt : FStarC_Parser_AST.dep_scan_callbacks -> stmt -> unit) = (iter cbs.FStarC_Parser_AST.scan_term n; scan_stmt cbs b; iopt (scan_ensures_slprop cbs) r) -and (scan_let_init : FStarC_Parser_AST.dep_scan_callbacks -> let_init -> unit) - = +and (scan_let_init : + FStarC_Parser_AST.dep_scan_callbacks -> let_init -> unit) = fun cbs -> fun i -> match i with @@ -1487,8 +1495,9 @@ let (add_decorations : range4 = (f.range4) } let (mk_expr : FStarC_Parser_AST.term -> stmt') = fun e -> Expr { e } -let (mk_assignment : FStarC_Parser_AST.term -> FStarC_Parser_AST.term -> stmt') - = fun id -> fun value -> Assignment { lhs = id; value } +let (mk_assignment : + FStarC_Parser_AST.term -> FStarC_Parser_AST.term -> stmt') = + fun id -> fun value -> Assignment { lhs = id; value } let (mk_array_assignment : FStarC_Parser_AST.term -> FStarC_Parser_AST.term -> FStarC_Parser_AST.term -> stmt') diff --git a/src/ocaml/plugin/generated/PulseSyntaxExtension_TransformRValues.ml b/src/ocaml/plugin/generated/PulseSyntaxExtension_TransformRValues.ml index 4e0f326f5..be598f1a5 100644 --- a/src/ocaml/plugin/generated/PulseSyntaxExtension_TransformRValues.ml +++ b/src/ocaml/plugin/generated/PulseSyntaxExtension_TransformRValues.ml @@ -71,8 +71,8 @@ let (fresh_var : fun uu___ -> (fun nm -> Obj.magic - (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad () - () (Obj.magic PulseSyntaxExtension_Err.next_ctr) + (FStarC_Class_Monad.op_let_Bang PulseSyntaxExtension_Err.err_monad + () () (Obj.magic PulseSyntaxExtension_Err.next_ctr) (fun uu___ -> (fun ctr -> let ctr = Obj.magic ctr in @@ -92,7 +92,8 @@ let (fresh_var : FStarC_Ident.mk_ident uu___1 in Obj.magic (PulseSyntaxExtension_Err.return uu___)) uu___))) uu___ -let (bind_curval : menv -> FStarC_Ident.ident -> FStarC_Ident.ident -> menv) = +let (bind_curval : menv -> FStarC_Ident.ident -> FStarC_Ident.ident -> menv) + = fun m -> fun x -> fun curval -> @@ -117,7 +118,8 @@ let (clear_curval : menv -> FStarC_Ident.ident -> menv) = FStarC_Compiler_List.tryFind (fun uu___1 -> match uu___1 with - | (y, uu___2, uu___3) -> FStarC_Ident.ident_equals x y) m.map in + | (y, uu___2, uu___3) -> FStarC_Ident.ident_equals x y) + m.map in match uu___ with | FStar_Pervasives_Native.None -> failwith "Impossible 2" | FStar_Pervasives_Native.Some (x1, bv, uu___1) -> diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Abs.ml b/src/ocaml/plugin/generated/Pulse_Checker_Abs.ml index 4945dba3d..115b876c5 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Abs.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Abs.ml @@ -29,7 +29,8 @@ let (debug_abs : (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> - Obj.magic (FStarC_Tactics_V2_Builtins.print uu___1)) + Obj.magic + (FStarC_Tactics_V2_Builtins.print uu___1)) uu___1))) else Obj.magic diff --git a/src/ocaml/plugin/generated/Pulse_Checker_AssertWithBinders.ml b/src/ocaml/plugin/generated/Pulse_Checker_AssertWithBinders.ml index ca3deecb4..b7de5f556 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_AssertWithBinders.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_AssertWithBinders.ml @@ -651,8 +651,9 @@ let (def_of_fv : ((FStarC_Reflection_V2_Builtins.inspect_lb lb).FStarC_Reflection_V2_Data.lb_def) else FStar_Pervasives_Native.None) lbs - | FStarC_Reflection_V2_Data.Sg_Val (uu___1, uu___2, t) - -> FStar_Pervasives_Native.Some t + | FStarC_Reflection_V2_Data.Sg_Val + (uu___1, uu___2, t) -> + FStar_Pervasives_Native.Some t | FStarC_Reflection_V2_Data.Sg_Inductive (_nm, _univs, params, typ, uu___1) -> FStar_Pervasives_Native.None)))) uu___1 uu___ diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Base.ml b/src/ocaml/plugin/generated/Pulse_Checker_Base.ml index 242573c2f..e94911b26 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Base.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Base.ml @@ -29,7 +29,8 @@ let (debug : (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> - Obj.magic (FStarC_Tactics_V2_Builtins.print uu___1)) + Obj.magic + (FStarC_Tactics_V2_Builtins.print uu___1)) uu___1))) else Obj.magic @@ -331,15 +332,16 @@ let (mk_arrow : = fun ty -> fun t -> - FStar_Reflection_Typing.mk_arrow ty FStarC_Reflection_V2_Data.Q_Explicit - t + FStar_Reflection_Typing.mk_arrow ty + FStarC_Reflection_V2_Data.Q_Explicit t let (mk_abs : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun ty -> fun t -> - FStar_Reflection_Typing.mk_abs ty FStarC_Reflection_V2_Data.Q_Explicit t + FStar_Reflection_Typing.mk_abs ty FStarC_Reflection_V2_Data.Q_Explicit + t let (intro_comp_typing : Pulse_Typing_Env.env -> Pulse_Syntax_Base.comp_st -> @@ -3722,8 +3724,8 @@ let (norm_typing_inverse : Obj.magic (Pulse_RuntimeUtils.norm_well_typed_term (Pulse_Typing.elab_env g) t1 - FStarC_TypeChecker_Core.E_Total () () steps)) - uu___2) in + FStarC_TypeChecker_Core.E_Total () () + steps)) uu___2) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Match.ml b/src/ocaml/plugin/generated/Pulse_Checker_Match.ml index 21b60cfed..b0b6cb32d 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Match.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Match.ml @@ -24,7 +24,8 @@ let rec (readback_pat : (nm, (Pulse_RuntimeUtils.map_seal st Pulse_RuntimeUtils.deep_compress))) - | FStarC_Reflection_V2_Data.Pat_Dot_Term (FStar_Pervasives_Native.None) -> + | FStarC_Reflection_V2_Data.Pat_Dot_Term (FStar_Pervasives_Native.None) + -> FStar_Pervasives_Native.Some (Pulse_Syntax_Base.Pat_Dot_Term FStar_Pervasives_Native.None) | FStarC_Reflection_V2_Data.Pat_Dot_Term (FStar_Pervasives_Native.Some t) @@ -1062,8 +1063,8 @@ let (check_branches_aux : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.branch Prims.list -> (FStarC_Reflection_V2_Data.pattern * - FStarC_Reflection_V2_Data.binding Prims.list) Prims.list - -> + FStarC_Reflection_V2_Data.binding Prims.list) + Prims.list -> ((unit, unit, unit, unit, unit, unit) check_branches_aux_t Prims.list, unit) FStar_Tactics_Effect.tac_repr) @@ -2178,8 +2179,8 @@ let (check_branches : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.branch Prims.list -> (FStarC_Reflection_V2_Data.pattern * - FStarC_Reflection_V2_Data.binding Prims.list) Prims.list - -> + FStarC_Reflection_V2_Data.binding Prims.list) + Prims.list -> ((Pulse_Syntax_Base.branch Prims.list, Pulse_Syntax_Base.comp_st, (unit, unit, unit, unit, unit, unit) diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Prover_ElimPure.ml b/src/ocaml/plugin/generated/Pulse_Checker_Prover_ElimPure.ml index c503d5109..73fc46053 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Prover_ElimPure.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Prover_ElimPure.ml @@ -11,7 +11,8 @@ let (elim_pure_head_ty : FStarC_Reflection_Types.term) = Pulse_Reflection_Util.mk_pure (FStar_Reflection_Typing.bound_var Prims.int_zero) in let post = - Pulse_Reflection_Util.mk_abs squash_p FStarC_Reflection_V2_Data.Q_Explicit + Pulse_Reflection_Util.mk_abs squash_p + FStarC_Reflection_V2_Data.Q_Explicit (FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_FVar (FStarC_Reflection_V2_Builtins.pack_fv diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Match_Matchers.ml b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Match_Matchers.ml index 8c4938bf2..261c35682 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Match_Matchers.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Match_Matchers.ml @@ -49,8 +49,9 @@ let (type_of_fv : ((FStarC_Reflection_V2_Builtins.inspect_lb lb).FStarC_Reflection_V2_Data.lb_typ) else FStar_Pervasives_Native.None) lbs - | FStarC_Reflection_V2_Data.Sg_Val (uu___1, uu___2, t) - -> FStar_Pervasives_Native.Some t + | FStarC_Reflection_V2_Data.Sg_Val + (uu___1, uu___2, t) -> + FStar_Pervasives_Native.Some t | FStarC_Reflection_V2_Data.Sg_Inductive (_nm, _univs, params, typ, uu___1) -> FStar_Pervasives_Native.None)))) uu___1 uu___ diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Util.ml b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Util.ml index a94211880..dbb43feb4 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Prover_Util.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Prover_Util.ml @@ -31,7 +31,8 @@ let (debug_prover : (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> - Obj.magic (FStarC_Tactics_V2_Builtins.print uu___1)) + Obj.magic + (FStarC_Tactics_V2_Builtins.print uu___1)) uu___1))) else Obj.magic diff --git a/src/ocaml/plugin/generated/Pulse_Checker_Pure.ml b/src/ocaml/plugin/generated/Pulse_Checker_Pure.ml index c7f33d439..98e868846 100644 --- a/src/ocaml/plugin/generated/Pulse_Checker_Pure.ml +++ b/src/ocaml/plugin/generated/Pulse_Checker_Pure.ml @@ -356,8 +356,9 @@ let (rtb_core_compute_term_type : Pulse_Typing_Env.env -> FStarC_Reflection_Types.env -> FStarC_Reflection_Types.term -> - (((FStarC_TypeChecker_Core.tot_or_ghost * FStarC_Reflection_Types.typ) - FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), + (((FStarC_TypeChecker_Core.tot_or_ghost * + FStarC_Reflection_Types.typ) FStar_Pervasives_Native.option * + FStar_Issue.issue Prims.list), unit) FStar_Tactics_Effect.tac_repr) = fun g -> @@ -497,8 +498,9 @@ let (rtb_tc_term : Pulse_Typing_Env.env -> FStarC_Reflection_Types.env -> FStarC_Reflection_Types.term -> - (((FStarC_Reflection_Types.term * (FStarC_TypeChecker_Core.tot_or_ghost - * FStarC_Reflection_Types.typ)) FStar_Pervasives_Native.option * + (((FStarC_Reflection_Types.term * + (FStarC_TypeChecker_Core.tot_or_ghost * + FStarC_Reflection_Types.typ)) FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -1762,8 +1764,8 @@ let (rtb_core_check_term_at_type : (fun res -> FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> res)))) uu___1) -let (mk_squash0 : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) - = +let (mk_squash0 : + FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = fun t -> let sq = FStarC_Reflection_V2_Builtins.pack_ln @@ -2363,7 +2365,8 @@ let maybe_fail_doc : (fun uu___2 -> FStarC_Pprint.pretty_string Pulse_RuntimeUtils.float_one - (Prims.of_int (80)) (FStarC_Pprint.concat doc))) in + (Prims.of_int (80)) + (FStarC_Pprint.concat doc))) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3234,7 +3237,8 @@ let (tc_meta_callback : Pulse_Typing_Env.env -> FStarC_Reflection_Types.env -> FStarC_Reflection_Types.term -> - (((FStarC_Reflection_Types.term, FStarC_TypeChecker_Core.tot_or_ghost, + (((FStarC_Reflection_Types.term, + FStarC_TypeChecker_Core.tot_or_ghost, FStarC_Reflection_Types.term, (unit, unit, unit) FStar_Reflection_Typing.typing) FStar_Pervasives.dtuple4 FStar_Pervasives_Native.option * @@ -3956,7 +3960,8 @@ let (tc_with_core : Pulse_Typing_Env.env -> FStarC_Reflection_Types.env -> FStarC_Reflection_Types.term -> - (((FStarC_TypeChecker_Core.tot_or_ghost, FStarC_Reflection_Types.term, + (((FStarC_TypeChecker_Core.tot_or_ghost, + FStarC_Reflection_Types.term, (unit, unit, unit) FStar_Reflection_Typing.typing) FStar_Pervasives.dtuple3 FStar_Pervasives_Native.option * FStar_Issue.issue Prims.list), @@ -4234,8 +4239,8 @@ let (core_check_term_at_type : Pulse_Typing_Env.env -> Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term -> - ((FStarC_TypeChecker_Core.tot_or_ghost, unit) Prims.dtuple2, unit) - FStar_Tactics_Effect.tac_repr) + ((FStarC_TypeChecker_Core.tot_or_ghost, unit) Prims.dtuple2, + unit) FStar_Tactics_Effect.tac_repr) = fun g -> fun e -> diff --git a/src/ocaml/plugin/generated/Pulse_Elaborate_Core.ml b/src/ocaml/plugin/generated/Pulse_Elaborate_Core.ml index fb8e30958..784a7a518 100644 --- a/src/ocaml/plugin/generated/Pulse_Elaborate_Core.ml +++ b/src/ocaml/plugin/generated/Pulse_Elaborate_Core.ml @@ -40,10 +40,12 @@ let (elab_sub : let pre1 = Pulse_Syntax_Base.comp_pre c1 in let pre2 = Pulse_Syntax_Base.comp_pre c2 in let post1 = - Pulse_Reflection_Util.mk_abs ty FStarC_Reflection_V2_Data.Q_Explicit + Pulse_Reflection_Util.mk_abs ty + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c1) in let post2 = - Pulse_Reflection_Util.mk_abs ty FStarC_Reflection_V2_Data.Q_Explicit + Pulse_Reflection_Util.mk_abs ty + FStarC_Reflection_V2_Data.Q_Explicit (Pulse_Syntax_Base.comp_post c2) in if Pulse_Syntax_Base.uu___is_C_ST c1 then Pulse_Reflection_Util.mk_sub_stt u ty pre1 pre2 post1 post2 e diff --git a/src/ocaml/plugin/generated/Pulse_Extract_Main.ml b/src/ocaml/plugin/generated/Pulse_Extract_Main.ml index 53d597536..d2347753c 100644 --- a/src/ocaml/plugin/generated/Pulse_Extract_Main.ml +++ b/src/ocaml/plugin/generated/Pulse_Extract_Main.ml @@ -30,7 +30,8 @@ let (debug : (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> - Obj.magic (FStarC_Tactics_V2_Builtins.print uu___1)) + Obj.magic + (FStarC_Tactics_V2_Builtins.print uu___1)) uu___1))) else Obj.magic @@ -246,8 +247,8 @@ let (is_erasable : | uu___2 -> false)) let (head_and_args : Pulse_Syntax_Base.term -> - (FStarC_Reflection_Types.term * FStarC_Reflection_V2_Data.argv Prims.list) - FStar_Pervasives_Native.option) + (FStarC_Reflection_Types.term * FStarC_Reflection_V2_Data.argv + Prims.list) FStar_Pervasives_Native.option) = fun t -> FStar_Pervasives_Native.Some @@ -257,8 +258,8 @@ let (term_eq_string : fun s -> fun t -> match FStarC_Reflection_V2_Builtins.inspect_ln t with - | FStarC_Reflection_V2_Data.Tv_Const (FStarC_Reflection_V2_Data.C_String - s') -> s = s' + | FStarC_Reflection_V2_Data.Tv_Const + (FStarC_Reflection_V2_Data.C_String s') -> s = s' | uu___ -> false let (push_binding : Pulse_Typing_Env.env -> diff --git a/src/ocaml/plugin/generated/Pulse_Main.ml b/src/ocaml/plugin/generated/Pulse_Main.ml index 28a49a159..ee6f7286e 100644 --- a/src/ocaml/plugin/generated/Pulse_Main.ml +++ b/src/ocaml/plugin/generated/Pulse_Main.ml @@ -29,7 +29,8 @@ let (debug_main : (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> - Obj.magic (FStarC_Tactics_V2_Builtins.print uu___1)) + Obj.magic + (FStarC_Tactics_V2_Builtins.print uu___1)) uu___1))) else Obj.magic @@ -3761,7 +3762,7 @@ let _ = fun ncb -> fun us -> fun args -> - FStar_Tactics_InterpFuns.mk_tactic_interpretation_8 + FStarC_Tactics_InterpFuns.mk_tactic_interpretation_8 "Pulse.Main.check_pulse (plugin)" (FStarC_Tactics_Native.from_tactic_8 check_pulse) (FStarC_Syntax_Embeddings.e_list @@ -3771,36 +3772,37 @@ let _ = FStarC_Syntax_Embeddings.e_string FStarC_Syntax_Embeddings.e_string)) FStarC_Syntax_Embeddings.e_string - FStarC_Syntax_Embeddings.e_string FStarC_Syntax_Embeddings.e_int - FStarC_Syntax_Embeddings.e_int FStarC_Syntax_Embeddings.e_string + FStarC_Syntax_Embeddings.e_string + FStarC_Syntax_Embeddings.e_int FStarC_Syntax_Embeddings.e_int + FStarC_Syntax_Embeddings.e_string (FStarC_Syntax_Embeddings.e_tuple2 - FStar_Reflection_V2_Embeddings.e_env + FStarC_Reflection_V2_Embeddings.e_env (FStarC_Syntax_Embeddings.e_option - FStar_Reflection_V2_Embeddings.e_term)) + FStarC_Reflection_V2_Embeddings.e_term)) (FStarC_Syntax_Embeddings.e_tuple3 (FStarC_Syntax_Embeddings.e_list (FStarC_Syntax_Embeddings.e_tuple3 FStarC_Syntax_Embeddings.e_bool - FStar_Reflection_V2_Embeddings.e_sigelt + FStarC_Reflection_V2_Embeddings.e_sigelt (FStarC_Syntax_Embeddings.e_option (FStarC_Syntax_Embeddings.e_tuple2 FStarC_Syntax_Embeddings.e_string - FStar_Reflection_V2_Embeddings.e_term)))) + FStarC_Reflection_V2_Embeddings.e_term)))) (FStarC_Syntax_Embeddings.e_tuple3 FStarC_Syntax_Embeddings.e_bool - FStar_Reflection_V2_Embeddings.e_sigelt + FStarC_Reflection_V2_Embeddings.e_sigelt (FStarC_Syntax_Embeddings.e_option (FStarC_Syntax_Embeddings.e_tuple2 FStarC_Syntax_Embeddings.e_string - FStar_Reflection_V2_Embeddings.e_term))) + FStarC_Reflection_V2_Embeddings.e_term))) (FStarC_Syntax_Embeddings.e_list (FStarC_Syntax_Embeddings.e_tuple3 FStarC_Syntax_Embeddings.e_bool - FStar_Reflection_V2_Embeddings.e_sigelt + FStarC_Reflection_V2_Embeddings.e_sigelt (FStarC_Syntax_Embeddings.e_option (FStarC_Syntax_Embeddings.e_tuple2 FStarC_Syntax_Embeddings.e_string - FStar_Reflection_V2_Embeddings.e_term))))) psc + FStarC_Reflection_V2_Embeddings.e_term))))) psc ncb us args) let check_pulse_after_desugar : 'a . 'a -> FStar_Reflection_Typing.dsl_tac_t = @@ -3818,8 +3820,8 @@ let check_pulse_after_desugar : 'a . 'a -> FStar_Reflection_Typing.dsl_tac_t (Pulse_RuntimeUtils.unembed_pulse_decl decl)))) uu___1) (env, expected_t) let _ = - FStarC_Tactics_Native.register_tactic "Pulse.Main.check_pulse_after_desugar" - (Prims.of_int (4)) + FStarC_Tactics_Native.register_tactic + "Pulse.Main.check_pulse_after_desugar" (Prims.of_int (4)) (fun psc -> fun ncb -> fun us -> @@ -3829,38 +3831,38 @@ let _ = (fun _ -> match args with | (tv_0, _)::args_tail -> - (FStar_Tactics_InterpFuns.mk_tactic_interpretation_2 + (FStarC_Tactics_InterpFuns.mk_tactic_interpretation_2 "Pulse.Main.check_pulse_after_desugar (plugin)" (FStarC_Tactics_Native.from_tactic_2 check_pulse_after_desugar) (FStarC_Syntax_Embeddings.mk_any_emb tv_0) (FStarC_Syntax_Embeddings.e_tuple2 - FStar_Reflection_V2_Embeddings.e_env + FStarC_Reflection_V2_Embeddings.e_env (FStarC_Syntax_Embeddings.e_option - FStar_Reflection_V2_Embeddings.e_term)) + FStarC_Reflection_V2_Embeddings.e_term)) (FStarC_Syntax_Embeddings.e_tuple3 (FStarC_Syntax_Embeddings.e_list (FStarC_Syntax_Embeddings.e_tuple3 FStarC_Syntax_Embeddings.e_bool - FStar_Reflection_V2_Embeddings.e_sigelt + FStarC_Reflection_V2_Embeddings.e_sigelt (FStarC_Syntax_Embeddings.e_option (FStarC_Syntax_Embeddings.e_tuple2 FStarC_Syntax_Embeddings.e_string - FStar_Reflection_V2_Embeddings.e_term)))) + FStarC_Reflection_V2_Embeddings.e_term)))) (FStarC_Syntax_Embeddings.e_tuple3 FStarC_Syntax_Embeddings.e_bool - FStar_Reflection_V2_Embeddings.e_sigelt + FStarC_Reflection_V2_Embeddings.e_sigelt (FStarC_Syntax_Embeddings.e_option (FStarC_Syntax_Embeddings.e_tuple2 FStarC_Syntax_Embeddings.e_string - FStar_Reflection_V2_Embeddings.e_term))) + FStarC_Reflection_V2_Embeddings.e_term))) (FStarC_Syntax_Embeddings.e_list (FStarC_Syntax_Embeddings.e_tuple3 FStarC_Syntax_Embeddings.e_bool - FStar_Reflection_V2_Embeddings.e_sigelt + FStarC_Reflection_V2_Embeddings.e_sigelt (FStarC_Syntax_Embeddings.e_option (FStarC_Syntax_Embeddings.e_tuple2 FStarC_Syntax_Embeddings.e_string - FStar_Reflection_V2_Embeddings.e_term))))) + FStarC_Reflection_V2_Embeddings.e_term))))) psc ncb us) args_tail | _ -> failwith "arity mismatch")) \ No newline at end of file diff --git a/src/ocaml/plugin/generated/Pulse_PP.ml b/src/ocaml/plugin/generated/Pulse_PP.ml index b6806d739..14ce03250 100644 --- a/src/ocaml/plugin/generated/Pulse_PP.ml +++ b/src/ocaml/plugin/generated/Pulse_PP.ml @@ -6,7 +6,8 @@ let (text : Prims.string -> FStarC_Pprint.document) = let (indent : FStarC_Pprint.document -> FStarC_Pprint.document) = fun d -> FStarC_Pprint.nest (Prims.of_int (2)) - (FStarC_Pprint.op_Hat_Hat FStarC_Pprint.hardline (FStarC_Pprint.align d)) + (FStarC_Pprint.op_Hat_Hat FStarC_Pprint.hardline + (FStarC_Pprint.align d)) type 'a printable = { pp: 'a -> (FStarC_Pprint.document, unit) FStar_Tactics_Effect.tac_repr } @@ -249,8 +250,8 @@ let (pp_record : (FStarC_Pprint.op_Hat_Slash_Hat (FStarC_Pprint.doc_of_string s) (FStarC_Pprint.op_Hat_Slash_Hat - FStarC_Pprint.equals (FStarC_Pprint.group d)))))) - uu___1) flds in + FStarC_Pprint.equals + (FStarC_Pprint.group d)))))) uu___1) flds in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -635,8 +636,8 @@ let printable_tuple2 : (fun uu___7 -> FStar_Tactics_Effect.lift_div_tac (fun uu___8 -> - FStarC_Pprint.op_Hat_Hat uu___5 uu___7)))) - uu___5) in + FStarC_Pprint.op_Hat_Hat uu___5 + uu___7)))) uu___5) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -2349,7 +2350,8 @@ let printable_tuple7 : FStar_Tactics_Effect.lift_div_tac (fun uu___14 -> FStarC_Pprint.op_Hat_Slash_Hat - FStarC_Pprint.comma uu___13)) in + FStarC_Pprint.comma + uu___13)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal diff --git a/src/ocaml/plugin/generated/Pulse_Readback.ml b/src/ocaml/plugin/generated/Pulse_Readback.ml index 0716324d2..09e326d9b 100644 --- a/src/ocaml/plugin/generated/Pulse_Readback.ml +++ b/src/ocaml/plugin/generated/Pulse_Readback.ml @@ -62,7 +62,8 @@ let (try_readback_st_comp : | { FStarC_Reflection_V2_Data.sort2 = sort; FStarC_Reflection_V2_Data.qual = aq; FStarC_Reflection_V2_Data.attrs = attrs; - FStarC_Reflection_V2_Data.ppname2 = uu___2;_} -> + FStarC_Reflection_V2_Data.ppname2 = uu___2;_} + -> let res' = FStar_Pervasives_Native.fst res in let pre' = FStar_Pervasives_Native.fst pre in let post' = body in diff --git a/src/ocaml/plugin/generated/Pulse_Recursion.ml b/src/ocaml/plugin/generated/Pulse_Recursion.ml index b95e4b222..954b69d61 100644 --- a/src/ocaml/plugin/generated/Pulse_Recursion.ml +++ b/src/ocaml/plugin/generated/Pulse_Recursion.ml @@ -136,7 +136,8 @@ let (debug_main : (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> - Obj.magic (FStarC_Tactics_V2_Builtins.print uu___1)) + Obj.magic + (FStarC_Tactics_V2_Builtins.print uu___1)) uu___1))) else Obj.magic diff --git a/src/ocaml/plugin/generated/Pulse_Reflection_Util.ml b/src/ocaml/plugin/generated/Pulse_Reflection_Util.ml index c011634ec..8dfac3260 100644 --- a/src/ocaml/plugin/generated/Pulse_Reflection_Util.ml +++ b/src/ocaml/plugin/generated/Pulse_Reflection_Util.ml @@ -126,7 +126,8 @@ let (mk_fst : let t = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_UInst - ((FStarC_Reflection_V2_Builtins.pack_fv fst_lid), [u1; u2])) in + ((FStarC_Reflection_V2_Builtins.pack_fv fst_lid), + [u1; u2])) in let t1 = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_App @@ -153,7 +154,8 @@ let (mk_snd : let t = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_UInst - ((FStarC_Reflection_V2_Builtins.pack_fv snd_lid), [u1; u2])) in + ((FStarC_Reflection_V2_Builtins.pack_fv snd_lid), + [u1; u2])) in let t1 = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_App @@ -206,7 +208,8 @@ let (args_of : fun tms -> FStar_List_Tot_Base.map (fun x -> (x, FStarC_Reflection_V2_Data.Q_Explicit)) tms -let (mk_pure : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = +let (mk_pure : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) + = fun p -> let t = FStarC_Reflection_V2_Builtins.pack_ln @@ -216,7 +219,8 @@ let (mk_pure : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = (FStarC_Reflection_V2_Data.Tv_App (t, (p, FStarC_Reflection_V2_Data.Q_Explicit))) let (uzero : FStarC_Reflection_Types.universe) = - FStarC_Reflection_V2_Builtins.pack_universe FStarC_Reflection_V2_Data.Uv_Zero + FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero let (uone : FStarC_Reflection_Types.universe) = FStarC_Reflection_V2_Builtins.pack_universe (FStarC_Reflection_V2_Data.Uv_Succ uzero) @@ -525,7 +529,8 @@ let (mk_name : Prims.nat -> FStarC_Reflection_Types.term) = type arrow_dom = (FStarC_Reflection_Types.term * FStarC_Reflection_V2_Data.aqualv) let (mk_arrow : - arrow_dom -> FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = + arrow_dom -> FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) + = fun f -> fun out -> let uu___ = f in @@ -579,7 +584,8 @@ let (mk_abs_with_name : fun qual -> fun t -> FStarC_Reflection_V2_Builtins.pack_ln - (FStarC_Reflection_V2_Data.Tv_Abs ((binder_of_t_q_s ty qual s), t)) + (FStarC_Reflection_V2_Data.Tv_Abs + ((binder_of_t_q_s ty qual s), t)) let (mk_abs_with_name_and_range : FStar_Reflection_Typing.pp_name_t -> FStar_Range.range -> @@ -822,7 +828,8 @@ let (non_informative_rt : (t, (a, FStarC_Reflection_V2_Data.Q_Explicit))) in t1 let (stt_slprop_equiv_fv : FStarC_Reflection_Types.fv) = - FStarC_Reflection_V2_Builtins.pack_fv (mk_pulse_lib_core_lid "slprop_equiv") + FStarC_Reflection_V2_Builtins.pack_fv + (mk_pulse_lib_core_lid "slprop_equiv") let (stt_slprop_equiv_tm : FStarC_Reflection_Types.term) = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_FVar stt_slprop_equiv_fv) @@ -835,7 +842,8 @@ let (stt_slprop_equiv : let t = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_App - (stt_slprop_equiv_tm, (t1, FStarC_Reflection_V2_Data.Q_Explicit))) in + (stt_slprop_equiv_tm, + (t1, FStarC_Reflection_V2_Data.Q_Explicit))) in FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_App (t, (t2, FStarC_Reflection_V2_Data.Q_Explicit))) @@ -864,7 +872,8 @@ let (mk_stt_return : let t1 = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_UInst - ((FStarC_Reflection_V2_Builtins.pack_fv return_stt_lid), [u])) in + ((FStarC_Reflection_V2_Builtins.pack_fv return_stt_lid), + [u])) in let t2 = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_App @@ -915,8 +924,8 @@ let (mk_stt_atomic_return : let t1 = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_UInst - ((FStarC_Reflection_V2_Builtins.pack_fv return_stt_atomic_lid), - [u])) in + ((FStarC_Reflection_V2_Builtins.pack_fv + return_stt_atomic_lid), [u])) in let t2 = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_App @@ -1169,7 +1178,8 @@ let (mk_bind_stt : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term -> - FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term) = fun u1 -> fun u2 -> @@ -1374,7 +1384,8 @@ let (mk_frame_stt : let frame_univ_inst u1 = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_UInst - ((FStarC_Reflection_V2_Builtins.pack_fv frame_lid), [u1])) in + ((FStarC_Reflection_V2_Builtins.pack_fv frame_lid), + [u1])) in let head = frame_univ_inst u in FStar_Reflection_V2_Derived.mk_app (FStar_Reflection_V2_Derived.mk_app @@ -1489,7 +1500,8 @@ let (mk_sub_stt : FStarC_Reflection_V2_Builtins.pack_fv subsumption_lid in let subsumption_univ_inst u1 = FStarC_Reflection_V2_Builtins.pack_ln - (FStarC_Reflection_V2_Data.Tv_UInst (subsumption_fv, [u1])) in + (FStarC_Reflection_V2_Data.Tv_UInst + (subsumption_fv, [u1])) in let head = subsumption_univ_inst u in FStar_Reflection_V2_Derived.mk_app (FStar_Reflection_V2_Derived.mk_app @@ -1503,7 +1515,8 @@ let (mk_sub_stt : FStarC_Reflection_V2_Data.Q_Implicit)]) [(pre1, FStarC_Reflection_V2_Data.Q_Implicit)]) - [(pre2, FStarC_Reflection_V2_Data.Q_Explicit)]) + [(pre2, + FStarC_Reflection_V2_Data.Q_Explicit)]) [(post1, FStarC_Reflection_V2_Data.Q_Implicit)]) [(post2, FStarC_Reflection_V2_Data.Q_Explicit)]) [((FStarC_Reflection_V2_Builtins.pack_ln @@ -1678,7 +1691,8 @@ let (mk_par : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term -> - FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term) = fun u -> fun aL -> @@ -1709,7 +1723,8 @@ let (mk_par : let t4 = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_App - (t3, (postL, FStarC_Reflection_V2_Data.Q_Implicit))) in + (t3, + (postL, FStarC_Reflection_V2_Data.Q_Implicit))) in let t5 = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_App @@ -1717,7 +1732,8 @@ let (mk_par : let t6 = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_App - (t5, (postR, FStarC_Reflection_V2_Data.Q_Implicit))) in + (t5, + (postR, FStarC_Reflection_V2_Data.Q_Implicit))) in let t7 = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_App @@ -1729,7 +1745,8 @@ let (tm_rewrite_tactic_t : FStarC_Reflection_Types.term) = let fv = FStarC_Reflection_V2_Builtins.pack_fv (mk_pulse_lib_core_lid "rewrite_tactic_t") in - FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_FVar fv) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar fv) let (mk_rewrite : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) @@ -1933,7 +1950,8 @@ let (array_length_lid : Prims.string Prims.list) = mk_pulse_lib_array_core_lid "length" let (array_is_full_lid : Prims.string Prims.list) = mk_pulse_lib_array_core_lid "is_full_array" -let (mk_array : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) = +let (mk_array : FStarC_Reflection_Types.term -> FStarC_Reflection_Types.term) + = fun a -> let t = FStarC_Reflection_V2_Builtins.pack_ln @@ -2014,7 +2032,8 @@ let (mk_seq_create : let t = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_UInst - ((FStarC_Reflection_V2_Builtins.pack_fv seq_create_lid), [u])) in + ((FStarC_Reflection_V2_Builtins.pack_fv seq_create_lid), + [u])) in let t1 = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_App diff --git a/src/ocaml/plugin/generated/Pulse_Soundness_SLPropEquiv.ml b/src/ocaml/plugin/generated/Pulse_Soundness_SLPropEquiv.ml index f0005b9f7..bad62a653 100644 --- a/src/ocaml/plugin/generated/Pulse_Soundness_SLPropEquiv.ml +++ b/src/ocaml/plugin/generated/Pulse_Soundness_SLPropEquiv.ml @@ -24,7 +24,8 @@ let (slprop_equiv_sym_type : FStarC_Reflection_Types.term) = let (slprop_tm : FStarC_Reflection_Types.term) = FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_FVar - (FStarC_Reflection_V2_Builtins.pack_fv Pulse_Reflection_Util.slprop_lid)) + (FStarC_Reflection_V2_Builtins.pack_fv + Pulse_Reflection_Util.slprop_lid)) let (slprop_equiv_ext_type : FStarC_Reflection_Types.term) = let v_typ = FStarC_Reflection_V2_Builtins.pack_ln diff --git a/src/ocaml/plugin/generated/Pulse_Syntax_Base.ml b/src/ocaml/plugin/generated/Pulse_Syntax_Base.ml index 1d9054365..4047b0531 100644 --- a/src/ocaml/plugin/generated/Pulse_Syntax_Base.ml +++ b/src/ocaml/plugin/generated/Pulse_Syntax_Base.ml @@ -533,7 +533,8 @@ type fn_defn = comp: comp ; meas: term FStar_Pervasives_Native.option ; body7: st_term } -let (__proj__Mkfn_defn__item__id : fn_defn -> FStarC_Reflection_Types.ident) = +let (__proj__Mkfn_defn__item__id : fn_defn -> FStarC_Reflection_Types.ident) + = fun projectee -> match projectee with | { id; isrec; bs; comp = comp1; meas; body7 = body;_} -> id @@ -566,7 +567,8 @@ type fn_decl = id1: FStarC_Reflection_Types.ident ; bs1: (qualifier FStar_Pervasives_Native.option * binder * bv) Prims.list ; comp1: comp_st } -let (__proj__Mkfn_decl__item__id : fn_decl -> FStarC_Reflection_Types.ident) = +let (__proj__Mkfn_decl__item__id : fn_decl -> FStarC_Reflection_Types.ident) + = fun projectee -> match projectee with | { id1 = id; bs1 = bs; comp1;_} -> id let (__proj__Mkfn_decl__item__bs : diff --git a/src/ocaml/plugin/generated/Pulse_Syntax_Builder.ml b/src/ocaml/plugin/generated/Pulse_Syntax_Builder.ml index 0cc06ecd5..252cca437 100644 --- a/src/ocaml/plugin/generated/Pulse_Syntax_Builder.ml +++ b/src/ocaml/plugin/generated/Pulse_Syntax_Builder.ml @@ -18,7 +18,8 @@ let (thunk : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term) = (FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_FVar (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "unit"]))); - FStarC_Reflection_V2_Data.qual = FStarC_Reflection_V2_Data.Q_Explicit; + FStarC_Reflection_V2_Data.qual = + FStarC_Reflection_V2_Data.Q_Explicit; FStarC_Reflection_V2_Data.attrs = []; FStarC_Reflection_V2_Data.ppname2 = (FStar_Sealed.seal "_") } in diff --git a/src/ocaml/plugin/generated/Pulse_Syntax_Naming.ml b/src/ocaml/plugin/generated/Pulse_Syntax_Naming.ml index d258fba63..9cda0f1ea 100644 --- a/src/ocaml/plugin/generated/Pulse_Syntax_Naming.ml +++ b/src/ocaml/plugin/generated/Pulse_Syntax_Naming.ml @@ -476,7 +476,8 @@ let (r_subst_of_rt_subst_elt : subst_elt -> FStarC_Syntax_Syntax.subst_elt) = match x with | FStar_Reflection_Typing.DT (i, t) -> (match FStarC_Reflection_V2_Builtins.inspect_ln t with - | FStarC_Reflection_V2_Data.Tv_Var n -> FStarC_Syntax_Syntax.DB (i, n) + | FStarC_Reflection_V2_Data.Tv_Var n -> + FStarC_Syntax_Syntax.DB (i, n) | uu___ -> FStarC_Syntax_Syntax.DT (i, t)) | FStar_Reflection_Typing.NT (x1, t) -> FStarC_Syntax_Syntax.NT diff --git a/src/ocaml/plugin/generated/Pulse_Syntax_Printer.ml b/src/ocaml/plugin/generated/Pulse_Syntax_Printer.ml index cb73d4bc1..8a58c4ddc 100644 --- a/src/ocaml/plugin/generated/Pulse_Syntax_Printer.ml +++ b/src/ocaml/plugin/generated/Pulse_Syntax_Printer.ml @@ -1610,8 +1610,8 @@ and (term_to_doc : (fun uu___4 -> FStar_Tactics_Effect.lift_div_tac (fun uu___5 -> - FStarC_Pprint.op_Hat_Hat uu___2 uu___4)))) - uu___2) in + FStarC_Pprint.op_Hat_Hat uu___2 + uu___4)))) uu___2) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic diff --git a/src/ocaml/plugin/generated/Pulse_Syntax_Pure.ml b/src/ocaml/plugin/generated/Pulse_Syntax_Pure.ml index e1e44ba77..c12601fa9 100644 --- a/src/ocaml/plugin/generated/Pulse_Syntax_Pure.ml +++ b/src/ocaml/plugin/generated/Pulse_Syntax_Pure.ml @@ -11,7 +11,8 @@ let op_let_Question : | FStar_Pervasives_Native.None -> FStar_Pervasives_Native.None | FStar_Pervasives_Native.Some x -> g x let (u0 : Pulse_Syntax_Base.universe) = - FStarC_Reflection_V2_Builtins.pack_universe FStarC_Reflection_V2_Data.Uv_Zero + FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero let (u1 : Pulse_Syntax_Base.universe) = FStarC_Reflection_V2_Builtins.pack_universe (FStarC_Reflection_V2_Data.Uv_Succ u0) @@ -38,7 +39,8 @@ let (u_max : FStarC_Reflection_V2_Builtins.pack_universe (FStarC_Reflection_V2_Data.Uv_Max [u01; u11]) let (u_unknown : Pulse_Syntax_Base.universe) = - FStarC_Reflection_V2_Builtins.pack_universe FStarC_Reflection_V2_Data.Uv_Unk + FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Unk let (tm_bvar : Pulse_Syntax_Base.bv -> Pulse_Syntax_Base.term) = fun bv -> Pulse_RuntimeUtils.set_range @@ -64,8 +66,8 @@ let (tm_fvar : Pulse_Syntax_Base.fv -> Pulse_Syntax_Base.term) = Pulse_RuntimeUtils.set_range (FStarC_Reflection_V2_Builtins.pack_ln (FStarC_Reflection_V2_Data.Tv_FVar - (FStarC_Reflection_V2_Builtins.pack_fv l.Pulse_Syntax_Base.fv_name))) - l.Pulse_Syntax_Base.fv_range + (FStarC_Reflection_V2_Builtins.pack_fv + l.Pulse_Syntax_Base.fv_name))) l.Pulse_Syntax_Base.fv_range let (tm_uinst : Pulse_Syntax_Base.fv -> Pulse_Syntax_Base.universe Prims.list -> Pulse_Syntax_Base.term) @@ -110,7 +112,8 @@ let (tm_let : FStar_Reflection_Typing.pp_name_default t in Pulse_RuntimeUtils.set_range (FStarC_Reflection_V2_Builtins.pack_ln - (FStarC_Reflection_V2_Data.Tv_Let (false, [], rb, e1, e2))) rng + (FStarC_Reflection_V2_Data.Tv_Let (false, [], rb, e1, e2))) + rng let (tm_pureapp : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.qualifier FStar_Pervasives_Native.option -> @@ -211,7 +214,8 @@ let (is_bvar : match FStarC_Reflection_V2_Builtins.inspect_ln t with | FStarC_Reflection_V2_Data.Tv_BVar bv -> let bv_view = FStarC_Reflection_V2_Builtins.inspect_bv bv in - FStar_Pervasives_Native.Some (bv_view.FStarC_Reflection_V2_Data.index) + FStar_Pervasives_Native.Some + (bv_view.FStarC_Reflection_V2_Data.index) | uu___ -> FStar_Pervasives_Native.None let (is_var : Pulse_Syntax_Base.term -> @@ -667,8 +671,8 @@ let rec (inspect_term : FStarC_Reflection_Types.term -> term_view) = | FStarC_Reflection_V2_Data.Tv_Arrow (uu___, uu___1) -> default_view | FStarC_Reflection_V2_Data.Tv_Type uu___ -> default_view | FStarC_Reflection_V2_Data.Tv_Const uu___ -> default_view - | FStarC_Reflection_V2_Data.Tv_Let (uu___, uu___1, uu___2, uu___3, uu___4) - -> default_view + | FStarC_Reflection_V2_Data.Tv_Let + (uu___, uu___1, uu___2, uu___3, uu___4) -> default_view | FStarC_Reflection_V2_Data.Tv_Var uu___ -> default_view | FStarC_Reflection_V2_Data.Tv_BVar uu___ -> default_view | FStarC_Reflection_V2_Data.Tv_UInst (uu___, uu___1) -> default_view diff --git a/src/ocaml/plugin/generated/Pulse_Typing.ml b/src/ocaml/plugin/generated/Pulse_Typing.ml index 583f35fda..563ae9a14 100644 --- a/src/ocaml/plugin/generated/Pulse_Typing.ml +++ b/src/ocaml/plugin/generated/Pulse_Typing.ml @@ -63,7 +63,8 @@ let (debug_log : let (tm_unit : Pulse_Syntax_Base.term) = Pulse_Syntax_Pure.tm_fvar (Pulse_Syntax_Base.as_fv Pulse_Reflection_Util.unit_lid) -let (tm_bool : FStarC_Reflection_Types.term) = FStar_Reflection_Typing.bool_ty +let (tm_bool : FStarC_Reflection_Types.term) = + FStar_Reflection_Typing.bool_ty let (tm_int : Pulse_Syntax_Base.term) = Pulse_Syntax_Pure.tm_fvar (Pulse_Syntax_Base.as_fv Pulse_Reflection_Util.int_lid) @@ -1009,7 +1010,8 @@ type ('g, 't1, 't2) subtyping_token = let (readback_binding : FStarC_Reflection_V2_Data.binding -> Pulse_Typing_Env.binding) = fun b -> - ((b.FStarC_Reflection_V2_Data.uniq1), (b.FStarC_Reflection_V2_Data.sort3)) + ((b.FStarC_Reflection_V2_Data.uniq1), + (b.FStarC_Reflection_V2_Data.sort3)) type ('g, 'c) non_informative = unit let (inv_disjointness : Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term -> Pulse_Syntax_Base.term) @@ -1112,7 +1114,7 @@ type ('dummyV0, 'dummyV1, 'dummyV2) st_typing = and ('dummyV0, 'dummyV1, 'dummyV2, 'dummyV3) pats_complete = | PC_Elab of Pulse_Typing_Env.env * Pulse_Syntax_Base.term * Pulse_Syntax_Base.typ * FStarC_Reflection_V2_Data.pattern Prims.list * - FStarC_Reflection_V2_Data.binding Prims.list Prims.list * (unit, unit, + FStarC_Reflection_V2_Data.binding Prims.list Prims.list * (unit, unit, unit, unit, unit) FStar_Reflection_Typing.match_is_complete and ('g, 'scuu, 'scuty, 'sc, 'dummyV0, 'dummyV1) brs_typing = | TBRS_0 of Pulse_Syntax_Base.comp_st diff --git a/src/ocaml/plugin/generated/Pulse_Typing_Env.ml b/src/ocaml/plugin/generated/Pulse_Typing_Env.ml index 1b586a0c1..13a8f18da 100644 --- a/src/ocaml/plugin/generated/Pulse_Typing_Env.ml +++ b/src/ocaml/plugin/generated/Pulse_Typing_Env.ml @@ -1086,8 +1086,8 @@ let (env_to_doc' : (fun uu___7 -> FStarC_Pprint.infix (Prims.of_int (2)) Prims.int_one - FStarC_Pprint.colon uu___4 uu___6)))) - uu___4))) in + FStarC_Pprint.colon uu___4 + uu___6)))) uu___4))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic From 19c24bd0d0a9852c8d7ac91ec5c4adfdfeef5ebf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Fri, 11 Oct 2024 02:01:47 -0700 Subject: [PATCH 7/9] Fix pulse2rust --- pulse2rust/src/Makefile | 2 +- pulse2rust/src/Pulse2Rust.Deps.fst | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/pulse2rust/src/Makefile b/pulse2rust/src/Makefile index 8b1bc14dc..b0e578c48 100644 --- a/pulse2rust/src/Makefile +++ b/pulse2rust/src/Makefile @@ -41,7 +41,7 @@ include .depend $(call msg, "EXTRACT", $(notdir $@)) $(Q)$(BENCHMARK_PRE) $(FSTAR_C) $(notdir $(subst .checked.lax,,$<)) \ --odir $(OUTPUT_DIRECTORY) \ - --codegen OCaml \ + --codegen OCaml --MLish \ --extract_module $(basename $(notdir $(subst .checked.lax,,$<))) extract: $(ALL_ML_FILES) diff --git a/pulse2rust/src/Pulse2Rust.Deps.fst b/pulse2rust/src/Pulse2Rust.Deps.fst index 67e34419f..42738642a 100644 --- a/pulse2rust/src/Pulse2Rust.Deps.fst +++ b/pulse2rust/src/Pulse2Rust.Deps.fst @@ -16,6 +16,7 @@ module Pulse2Rust.Deps +open FStarC open FStarC.Compiler open FStarC.Compiler.Util open FStarC.Compiler.List From 207074df828cc2d56367b2f164f01ad5b32b83bb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Fri, 11 Oct 2024 02:02:01 -0700 Subject: [PATCH 8/9] snap --- pulse2rust/src/ocaml/generated/Pulse2Rust.ml | 16 +++--- .../src/ocaml/generated/Pulse2Rust_Deps.ml | 37 +++++++------- .../src/ocaml/generated/Pulse2Rust_Env.ml | 4 +- .../src/ocaml/generated/Pulse2Rust_Extract.ml | 50 +++++++++++-------- .../ocaml/generated/Pulse2Rust_Rust_Syntax.ml | 8 +-- 5 files changed, 63 insertions(+), 52 deletions(-) diff --git a/pulse2rust/src/ocaml/generated/Pulse2Rust.ml b/pulse2rust/src/ocaml/generated/Pulse2Rust.ml index 033b0a052..61dd84e95 100644 --- a/pulse2rust/src/ocaml/generated/Pulse2Rust.ml +++ b/pulse2rust/src/ocaml/generated/Pulse2Rust.ml @@ -39,7 +39,8 @@ let (extract_one : if uu___2 then (items, g1) else - (match d.FStarC_Extraction_ML_Syntax.mlmodule1_m with + (match d.FStarC_Extraction_ML_Syntax.mlmodule1_m + with | FStarC_Extraction_ML_Syntax.MLM_Let (FStarC_Extraction_ML_Syntax.NonRec, { @@ -49,7 +50,8 @@ let (extract_one : uu___4; FStarC_Extraction_ML_Syntax.mllb_add_unit = uu___5; - FStarC_Extraction_ML_Syntax.mllb_def = uu___6; + FStarC_Extraction_ML_Syntax.mllb_def = + uu___6; FStarC_Extraction_ML_Syntax.mllb_attrs = uu___7; FStarC_Extraction_ML_Syntax.mllb_meta = @@ -114,7 +116,7 @@ let (read_all_ast_files : Prims.string Prims.list -> Pulse2Rust_Env.dict) = | FStar_Pervasives_Native.None -> let uu___2 = FStarC_Compiler_Util.format1 "Could not load file %s" f in - FStarC_Compiler_Effect.failwith uu___2 in + failwith uu___2 in let uu___1 = file_to_module_name f in FStarC_Compiler_Util.smap_add d uu___1 contents) files; d @@ -149,8 +151,8 @@ let rec (collect_reachable_defs_aux : let uu___ = FStarC_Class_Setlike.is_empty () (Obj.magic - (FStarC_Compiler_RBSet.setlike_rbset FStarC_Class_Ord.ord_string)) - (Obj.magic worklist) in + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic worklist) in if uu___ then reachable_defs else @@ -288,8 +290,8 @@ let (extract : | (s, g2) -> let rust_fname = let uu___5 = rust_file_name f in - FStarC_Compiler_Util.concat_dir_filename odir - uu___5 in + FStarC_Compiler_Util.concat_dir_filename + odir uu___5 in let rust_f = FStarC_Compiler_Util.open_file_for_writing rust_fname in diff --git a/pulse2rust/src/ocaml/generated/Pulse2Rust_Deps.ml b/pulse2rust/src/ocaml/generated/Pulse2Rust_Deps.ml index 4c11fd9d1..8e83d2bb2 100644 --- a/pulse2rust/src/ocaml/generated/Pulse2Rust_Deps.ml +++ b/pulse2rust/src/ocaml/generated/Pulse2Rust_Deps.ml @@ -3,7 +3,8 @@ let (empty_defs : Pulse2Rust_Env.reachable_defs) = Obj.magic (FStarC_Class_Setlike.empty () (Obj.magic - (FStarC_Compiler_RBSet.setlike_rbset FStarC_Class_Ord.ord_string)) ()) + (FStarC_Compiler_RBSet.setlike_rbset FStarC_Class_Ord.ord_string)) + ()) let (singleton : FStarC_Extraction_ML_Syntax.mlpath -> Pulse2Rust_Env.reachable_defs) = fun uu___ -> @@ -12,8 +13,8 @@ let (singleton : Obj.magic (FStarC_Class_Setlike.singleton () (Obj.magic - (FStarC_Compiler_RBSet.setlike_rbset FStarC_Class_Ord.ord_string)) - uu___)) uu___ + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) uu___)) uu___ let reachable_defs_list : 'a . ('a -> Pulse2Rust_Env.reachable_defs) -> @@ -209,8 +210,8 @@ let rec (reachable_defs_expr' : (FStarC_Class_Setlike.union () (Obj.magic (FStarC_Compiler_RBSet.setlike_rbset - FStarC_Class_Ord.ord_string)) (Obj.magic uu___2) - (Obj.magic uu___3)) in + FStarC_Class_Ord.ord_string)) + (Obj.magic uu___2) (Obj.magic uu___3)) in FStarC_Class_Setlike.union () (Obj.magic (FStarC_Compiler_RBSet.setlike_rbset @@ -265,8 +266,8 @@ let rec (reachable_defs_expr' : (FStarC_Class_Setlike.union () (Obj.magic (FStarC_Compiler_RBSet.setlike_rbset - FStarC_Class_Ord.ord_string)) (Obj.magic uu___2) - (Obj.magic uu___3)) in + FStarC_Class_Ord.ord_string)) + (Obj.magic uu___2) (Obj.magic uu___3)) in FStarC_Class_Setlike.union () (Obj.magic (FStarC_Compiler_RBSet.setlike_rbset @@ -301,8 +302,9 @@ and (reachable_defs_expr : Obj.magic (FStarC_Class_Setlike.union () (Obj.magic - (FStarC_Compiler_RBSet.setlike_rbset FStarC_Class_Ord.ord_string)) - (Obj.magic uu___) (Obj.magic uu___1))) uu___ + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) + (Obj.magic uu___1))) uu___ and (reachable_defs_mlbranch : FStarC_Extraction_ML_Syntax.mlbranch -> Pulse2Rust_Env.reachable_defs) = fun uu___ -> @@ -337,10 +339,12 @@ and (reachable_defs_mllb : Obj.magic (FStarC_Class_Setlike.union () (Obj.magic - (FStarC_Compiler_RBSet.setlike_rbset FStarC_Class_Ord.ord_string)) - (Obj.magic uu___) (Obj.magic uu___1))) uu___ + (FStarC_Compiler_RBSet.setlike_rbset + FStarC_Class_Ord.ord_string)) (Obj.magic uu___) + (Obj.magic uu___1))) uu___ and (reachable_defs_mlletbinding : - FStarC_Extraction_ML_Syntax.mlletbinding -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.mlletbinding -> Pulse2Rust_Env.reachable_defs) + = fun uu___ -> match uu___ with | (uu___1, lbs) -> reachable_defs_list reachable_defs_mllb lbs @@ -363,7 +367,8 @@ let (reachable_defs_mltybody : match uu___2 with | (uu___3, t1) -> reachable_defs_mlty t1) dts) cts let (reachable_defs_one_mltydecl : - FStarC_Extraction_ML_Syntax.one_mltydecl -> Pulse2Rust_Env.reachable_defs) = + FStarC_Extraction_ML_Syntax.one_mltydecl -> Pulse2Rust_Env.reachable_defs) + = fun t -> reachable_defs_option reachable_defs_mltybody t.FStarC_Extraction_ML_Syntax.tydecl_defn @@ -450,7 +455,7 @@ let rec (topsort : then let uu___2 = FStarC_Compiler_Util.format1 "cyclic dependency: %s" root in - FStarC_Compiler_Effect.failwith uu___2 + failwith uu___2 else ()); (let deps2 = FStarC_Compiler_List.filter @@ -497,8 +502,6 @@ let rec (topsort_all : match uu___2 with | (grey, black1) -> (if (FStarC_Compiler_List.length grey) <> Prims.int_zero - then - FStarC_Compiler_Effect.failwith - "topsort_all: not all files are reachable" + then failwith "topsort_all: not all files are reachable" else (); topsort_all d black1)) \ No newline at end of file diff --git a/pulse2rust/src/ocaml/generated/Pulse2Rust_Env.ml b/pulse2rust/src/ocaml/generated/Pulse2Rust_Env.ml index 1bc96ad24..f3ea04223 100644 --- a/pulse2rust/src/ocaml/generated/Pulse2Rust_Env.ml +++ b/pulse2rust/src/ocaml/generated/Pulse2Rust_Env.ml @@ -3,13 +3,13 @@ let fail : 'a . Prims.string -> 'a = fun s -> let uu___ = FStarC_Compiler_Util.format1 "Pulse to Rust extraction failed: %s" s in - FStarC_Compiler_Effect.failwith uu___ + failwith uu___ let fail_nyi : 'a . Prims.string -> 'a = fun s -> let uu___ = FStarC_Compiler_Util.format1 "Pulse to Rust extraction failed: no support yet for %s" s in - FStarC_Compiler_Effect.failwith uu___ + failwith uu___ type var = Prims.string type binding = (var * Pulse2Rust_Rust_Syntax.typ * Prims.bool) type reachable_defs = Prims.string FStarC_Compiler_RBSet.t diff --git a/pulse2rust/src/ocaml/generated/Pulse2Rust_Extract.ml b/pulse2rust/src/ocaml/generated/Pulse2Rust_Extract.ml index 77c1b7a66..27129e1d3 100644 --- a/pulse2rust/src/ocaml/generated/Pulse2Rust_Extract.ml +++ b/pulse2rust/src/ocaml/generated/Pulse2Rust_Extract.ml @@ -135,11 +135,13 @@ let (should_extract_mlpath_with_symbol : let (rust_mod_name : FStarC_Extraction_ML_Syntax.mlsymbol Prims.list -> Prims.string) = fun path -> - let uu___ = FStarC_Compiler_List.map FStarC_Compiler_String.lowercase path in + let uu___ = + FStarC_Compiler_List.map FStarC_Compiler_String.lowercase path in FStarC_Compiler_String.concat "_" uu___ let (extract_path_for_symbol : Pulse2Rust_Env.env -> - FStarC_Extraction_ML_Syntax.mlsymbol Prims.list -> Prims.string Prims.list) + FStarC_Extraction_ML_Syntax.mlsymbol Prims.list -> + Prims.string Prims.list) = fun g -> fun path -> @@ -723,7 +725,8 @@ let rec (lb_init_and_def : FStarC_Extraction_ML_Syntax.loc = uu___5;_}, uu___6) -> - (((let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in + (((let uu___7 = + FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Vec.alloc") || (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in @@ -733,7 +736,8 @@ let rec (lb_init_and_def : FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.Mutex.lock")) || - (let uu___7 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___7 = + FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___7 = "Pulse.Lib.MutexToken.lock") | uu___1 -> false in let uu___1 = @@ -1519,14 +1523,14 @@ and (extract_mlexpr : FStarC_Extraction_ML_Syntax.MLE_Fun (uu___2, cond); FStarC_Extraction_ML_Syntax.mlty = uu___3; FStarC_Extraction_ML_Syntax.loc = uu___4;_}::{ - FStarC_Extraction_ML_Syntax.expr - = - FStarC_Extraction_ML_Syntax.MLE_Fun - (uu___5, body); - FStarC_Extraction_ML_Syntax.mlty - = uu___6; - FStarC_Extraction_ML_Syntax.loc - = uu___7;_}::[]) + FStarC_Extraction_ML_Syntax.expr + = + FStarC_Extraction_ML_Syntax.MLE_Fun + (uu___5, body); + FStarC_Extraction_ML_Syntax.mlty + = uu___6; + FStarC_Extraction_ML_Syntax.loc + = uu___7;_}::[]) when let uu___8 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___8 = "Pulse.Lib.Dv.while_" -> @@ -1680,8 +1684,7 @@ and (extract_mlexpr : match e.FStarC_Extraction_ML_Syntax.mlty with | FStarC_Extraction_ML_Syntax.MLTY_Named (uu___, p1) -> enum_or_struct_name (FStar_Pervasives_Native.snd p1) - | uu___ -> - FStarC_Compiler_Effect.failwith "S.MLE_CTor: unexpected type" in + | uu___ -> failwith "S.MLE_CTor: unexpected type" in let dexpr = if is_native then @@ -1919,9 +1922,10 @@ let (extract_generic_type_param_trait_bounds : (fun e -> match e.FStarC_Extraction_ML_Syntax.expr with | FStarC_Extraction_ML_Syntax.MLE_Const - (FStarC_Extraction_ML_Syntax.MLC_String s) -> s + (FStarC_Extraction_ML_Syntax.MLC_String s) -> + s | uu___5 -> - FStarC_Compiler_Effect.failwith + failwith "unexpected generic type param bounds") l in FStarC_Compiler_List.map (fun bound -> FStarC_Compiler_Util.split bound "::") @@ -1936,7 +1940,8 @@ let (extract_generic_type_params : (fun uu___ -> match uu___ with | { FStarC_Extraction_ML_Syntax.ty_param_name = ty_param_name; - FStarC_Extraction_ML_Syntax.ty_param_attrs = ty_param_attrs;_} -> + FStarC_Extraction_ML_Syntax.ty_param_attrs = ty_param_attrs;_} + -> let uu___1 = tyvar_of ty_param_name in let uu___2 = extract_generic_type_param_trait_bounds ty_param_attrs in @@ -1964,8 +1969,8 @@ let (extract_top_level_lb : bs in let arg_attrs = FStarC_Compiler_List.map - (fun b -> b.FStarC_Extraction_ML_Syntax.mlbinder_attrs) - bs in + (fun b -> + b.FStarC_Extraction_ML_Syntax.mlbinder_attrs) bs in let uu___2 = match lb.FStarC_Extraction_ML_Syntax.mllb_tysc with | FStar_Pervasives_Native.Some tsc -> @@ -1978,7 +1983,8 @@ let (extract_top_level_lb : let uu___3 = FStarC_Compiler_List.map (fun b -> - b.FStarC_Extraction_ML_Syntax.mlbinder_ty) bs in + b.FStarC_Extraction_ML_Syntax.mlbinder_ty) + bs in ([], uu___3, FStar_Pervasives_Native.None) in (match uu___2 with | (tvars, arg_ts, ret_t) -> @@ -2111,8 +2117,8 @@ let (extract_enum : fun d -> let uu___ = d.FStarC_Extraction_ML_Syntax.tydecl_defn in match uu___ with - | FStar_Pervasives_Native.Some (FStarC_Extraction_ML_Syntax.MLTD_DType - cts) -> + | FStar_Pervasives_Native.Some + (FStarC_Extraction_ML_Syntax.MLTD_DType cts) -> let uu___1 = let uu___2 = let uu___3 = diff --git a/pulse2rust/src/ocaml/generated/Pulse2Rust_Rust_Syntax.ml b/pulse2rust/src/ocaml/generated/Pulse2Rust_Rust_Syntax.ml index a2651f9f6..239ac33d2 100644 --- a/pulse2rust/src/ocaml/generated/Pulse2Rust_Rust_Syntax.ml +++ b/pulse2rust/src/ocaml/generated/Pulse2Rust_Rust_Syntax.ml @@ -1136,8 +1136,8 @@ let (mk_fn_signature : fun fn_args -> fun fn_ret_t -> let fn_generics1 = - FStarC_Compiler_List.map (fun uu___ -> Generic_type_param uu___) - fn_generics in + FStarC_Compiler_List.map + (fun uu___ -> Generic_type_param uu___) fn_generics in { fn_const; fn_name; @@ -1207,8 +1207,8 @@ let (mk_item_type : fun t -> let uu___ = let uu___1 = - FStarC_Compiler_List.map (fun uu___2 -> Generic_type_param uu___2) - generics in + FStarC_Compiler_List.map + (fun uu___2 -> Generic_type_param uu___2) generics in { item_type_name = name; item_type_generics = uu___1; From 135175b8316656d601ff7f7f5dfd5ad282ce2c9c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Fri, 11 Oct 2024 06:58:54 -0700 Subject: [PATCH 9/9] another snap --- src/ocaml/plugin/generated/ExtractPulse.ml | 16 ++++++++-------- src/ocaml/plugin/generated/ExtractPulseC.ml | 15 ++++++++++----- 2 files changed, 18 insertions(+), 13 deletions(-) diff --git a/src/ocaml/plugin/generated/ExtractPulse.ml b/src/ocaml/plugin/generated/ExtractPulse.ml index 12023f3d4..08713b018 100644 --- a/src/ocaml/plugin/generated/ExtractPulse.ml +++ b/src/ocaml/plugin/generated/ExtractPulse.ml @@ -521,14 +521,14 @@ let (pulse_translate_expr : FStarC_Extraction_Krml.translate_expr_t) = FStarC_Extraction_ML_Syntax.MLE_Fun (uu___3, test); FStarC_Extraction_ML_Syntax.mlty = uu___4; FStarC_Extraction_ML_Syntax.loc = uu___5;_}::{ - FStarC_Extraction_ML_Syntax.expr - = - FStarC_Extraction_ML_Syntax.MLE_Fun - (uu___6, body); - FStarC_Extraction_ML_Syntax.mlty - = uu___7; - FStarC_Extraction_ML_Syntax.loc - = uu___8;_}::[]) + FStarC_Extraction_ML_Syntax.expr + = + FStarC_Extraction_ML_Syntax.MLE_Fun + (uu___6, body); + FStarC_Extraction_ML_Syntax.mlty + = uu___7; + FStarC_Extraction_ML_Syntax.loc + = uu___8;_}::[]) when let uu___9 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___9 = "Pulse.Lib.Dv.while_" -> diff --git a/src/ocaml/plugin/generated/ExtractPulseC.ml b/src/ocaml/plugin/generated/ExtractPulseC.ml index 550568fd5..799e7019d 100644 --- a/src/ocaml/plugin/generated/ExtractPulseC.ml +++ b/src/ocaml/plugin/generated/ExtractPulseC.ml @@ -59,7 +59,8 @@ let (string_of_typestring : opt_bind uu___ (fun ss -> FStar_Pervasives_Native.Some (FStar_String.concat "" ss)) let (lident_of_string : - Prims.string -> FStarC_Extraction_Krml.lident FStar_Pervasives_Native.option) + Prims.string -> + FStarC_Extraction_Krml.lident FStar_Pervasives_Native.option) = fun s -> let path = FStar_String.split [46] s in @@ -82,7 +83,8 @@ let (lident_of_typestring : fun t -> let uu___ = string_of_typestring t in opt_bind uu___ lident_of_string let (int_of_typenat : - FStarC_Extraction_ML_Syntax.mlty -> Prims.int FStar_Pervasives_Native.option) + FStarC_Extraction_ML_Syntax.mlty -> + Prims.int FStar_Pervasives_Native.option) = fun t -> let rec go t1 = @@ -365,7 +367,8 @@ let (my_exprs : unit -> unit) = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___13 = "Pulse.C.Types.Union.union_field0")) || - (let uu___13 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in + (let uu___13 = + FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___13 = "Pulse.C.Types.Union.union_switch_field0") -> let uu___13 = @@ -403,7 +406,8 @@ let (my_exprs : unit -> unit) = FStarC_Extraction_ML_Syntax.MLE_Const (FStarC_Extraction_ML_Syntax.MLC_String field_name); - FStarC_Extraction_ML_Syntax.mlty = uu___8; + FStarC_Extraction_ML_Syntax.mlty = + uu___8; FStarC_Extraction_ML_Syntax.loc = uu___9;_}::uu___10::[]) when let uu___11 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in @@ -463,7 +467,8 @@ let (my_exprs : unit -> unit) = let uu___7 = let uu___8 = let uu___9 = - let uu___10 = FStarC_Extraction_Krml.translate_expr env r in + let uu___10 = + FStarC_Extraction_Krml.translate_expr env r in (uu___10, (FStarC_Extraction_Krml.EQualified (["C"], "_zero_for_deref"))) in