From ca2e83b1c9ff890bd542c65e1d1b5ce803d16792 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Thu, 10 Oct 2024 18:32:59 -0700 Subject: [PATCH 1/5] FStar->FStarC --- lib/steel/Steel.ST.Array.fst | 2 +- src/Makefile | 2 +- src/extraction/ExtractSteel.fst | 32 +- src/extraction/ExtractSteel.fsti | 2 +- src/extraction/ExtractSteelC.fst | 38 +- src/extraction/ExtractSteelC.fsti | 2 +- src/ocaml/plugin/generated/ExtractSteel.ml | 828 +++++------ src/ocaml/plugin/generated/ExtractSteelC.ml | 838 +++++------ .../plugin/generated/Steel_Effect_Common.ml | 1232 ++++++++--------- .../generated/Steel_ST_GenElim1_Base.ml | 706 +++++----- .../plugin/generated/Steel_ST_GenElim_Base.ml | 474 +++---- 11 files changed, 2078 insertions(+), 2078 deletions(-) diff --git a/lib/steel/Steel.ST.Array.fst b/lib/steel/Steel.ST.Array.fst index e451f1a53..3181fe410 100644 --- a/lib/steel/Steel.ST.Array.fst +++ b/lib/steel/Steel.ST.Array.fst @@ -19,7 +19,7 @@ module Steel.ST.Array module US = FStar.SizeT /// Lifting a value of universe 0 to universe 1. We use -/// FStar.Universe, since FStar.Extraction.Krml is set to extract +/// FStar.Universe, since FStarC.Extraction.Krml is set to extract /// those functions to identity. inline_for_extraction diff --git a/src/Makefile b/src/Makefile index 47661bbe7..1cd42f192 100644 --- a/src/Makefile +++ b/src/Makefile @@ -38,7 +38,7 @@ boot: .PHONY: clean-snapshot clean-snapshot: rm -rf ocaml/*/generated ../include/steel/Steel_SpinLock.h - rm -f ocaml/plugin/FStar_Parser_Parse.mly + rm -f ocaml/plugin/FStarC_Parser_Parse.mly .PHONY: full-boot full-boot: diff --git a/src/extraction/ExtractSteel.fst b/src/extraction/ExtractSteel.fst index 7f70dca70..c17f7ee39 100644 --- a/src/extraction/ExtractSteel.fst +++ b/src/extraction/ExtractSteel.fst @@ -1,23 +1,23 @@ module ExtractSteel -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 - -module BU = FStar.Compiler.Util -module FC = FStar.Const - -open FStar.Extraction.Krml +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 = FStarC.Compiler.Util +module FC = FStarC.Const + +open FStarC.Extraction.Krml let steel_translate_type_without_decay : translate_type_without_decay_t = fun env t -> match t with diff --git a/src/extraction/ExtractSteel.fsti b/src/extraction/ExtractSteel.fsti index 421f8098e..7df659ee1 100644 --- a/src/extraction/ExtractSteel.fsti +++ b/src/extraction/ExtractSteel.fsti @@ -1,3 +1,3 @@ module ExtractSteel -// 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/ExtractSteelC.fst b/src/extraction/ExtractSteelC.fst index 8ca0107d1..7471fd33e 100644 --- a/src/extraction/ExtractSteelC.fst +++ b/src/extraction/ExtractSteelC.fst @@ -1,19 +1,19 @@ module ExtractSteelC -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 = "Steel.C.Typestring.cdot" then Some '.' else if BU.starts_with p "Steel.C.Typestring.c" then - Some (FStar.Compiler.String.get p (FStar.String.strlen "Steel.C.Typestring.c")) + Some (FStarC.Compiler.String.get p (FStar.String.strlen "Steel.C.Typestring.c")) else None @@ -330,7 +330,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 -> @@ -339,14 +339,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) @@ -366,7 +366,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 @@ -386,7 +386,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/ExtractSteelC.fsti b/src/extraction/ExtractSteelC.fsti index 8fbbb0547..fc18e9c0f 100644 --- a/src/extraction/ExtractSteelC.fsti +++ b/src/extraction/ExtractSteelC.fsti @@ -1,2 +1,2 @@ module ExtractSteelC -(* this interface is necessary because ExtractSteelC `friend`s FStar.Extraction.Krml *) +(* this interface is necessary because ExtractSteelC `friend`s FStarC.Extraction.Krml *) diff --git a/src/ocaml/plugin/generated/ExtractSteel.ml b/src/ocaml/plugin/generated/ExtractSteel.ml index a824a14c5..95b8e6d61 100644 --- a/src/ocaml/plugin/generated/ExtractSteel.ml +++ b/src/ocaml/plugin/generated/ExtractSteel.ml @@ -1,683 +1,683 @@ open Prims let (steel_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 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___ = "Steel.TLArray.t" -> let uu___ = - FStar_Extraction_Krml.translate_type_without_decay env arg in - FStar_Extraction_Krml.TConstBuf uu___ - | FStar_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when - let p1 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + FStarC_Extraction_Krml.translate_type_without_decay env arg in + FStarC_Extraction_Krml.TConstBuf uu___ + | FStarC_Extraction_ML_Syntax.MLTY_Named (arg::[], p) when + let p1 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in ((p1 = "Steel.Reference.ref") || (p1 = "Steel.ST.Reference.ref")) || (p1 = "Steel.ST.HigherArray.ptr") -> 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 (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 (steel_translate_expr : FStar_Extraction_Krml.translate_expr_t) = +let (steel_translate_expr : FStarC_Extraction_Krml.translate_expr_t) = fun env -> fun e -> let e1 = flatten_app e in - match e1.FStar_Extraction_ML_Syntax.expr with - | FStar_Extraction_ML_Syntax.MLE_App + match e1.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___; - 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;_}, t::[]); - 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;_}, 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 = "Steel.ST.HigherArray.null_ptr" -> - let uu___5 = FStar_Extraction_Krml.translate_type env t in - FStar_Extraction_Krml.EBufNull uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___5 = FStarC_Extraction_Krml.translate_type env t in + FStarC_Extraction_Krml.EBufNull uu___5 + | 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;_}, t::[]); - 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;_}, arg::[]) when - let uu___4 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + let uu___4 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___4 = "Steel.ST.HigherArray.is_null_ptr" -> - let uu___4 = FStar_Extraction_Krml.translate_type env t in - let uu___5 = FStar_Extraction_Krml.translate_expr env arg in - FStar_Extraction_Krml.generate_is_null uu___4 uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___4 = FStarC_Extraction_Krml.translate_type env t in + let uu___5 = FStarC_Extraction_Krml.translate_expr env arg in + FStarC_Extraction_Krml.generate_is_null uu___4 uu___5 + | 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;_}, _perm0::_perm1::_seq0::_seq1::e0::_len0::e11::_len1::[]) 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 = "Steel.ST.HigherArray.ptrdiff_ptr" -> let uu___5 = - let uu___6 = FStar_Extraction_Krml.translate_expr env e0 in - let uu___7 = FStar_Extraction_Krml.translate_expr env e11 in + let uu___6 = FStarC_Extraction_Krml.translate_expr env e0 in + let uu___7 = FStarC_Extraction_Krml.translate_expr env e11 in (uu___6, uu___7) in - FStar_Extraction_Krml.EBufDiff uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufDiff uu___5 + | 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;_}, e11::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 = "Steel.TLArray.get" -> let uu___5 = - let uu___6 = FStar_Extraction_Krml.translate_expr env e11 in - let uu___7 = FStar_Extraction_Krml.translate_expr env e2 in + let uu___6 = FStarC_Extraction_Krml.translate_expr env e11 in + let uu___7 = FStarC_Extraction_Krml.translate_expr env e2 in (uu___6, uu___7) in - FStar_Extraction_Krml.EBufRead uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufRead uu___5 + | 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;_}, _perm::e11::_len::_seq::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 = "Steel.ST.HigherArray.index_ptr" -> let uu___5 = - let uu___6 = FStar_Extraction_Krml.translate_expr env e11 in - let uu___7 = FStar_Extraction_Krml.translate_expr env e2 in + let uu___6 = FStarC_Extraction_Krml.translate_expr env e11 in + let uu___7 = FStarC_Extraction_Krml.translate_expr env e2 in (uu___6, uu___7) in - FStar_Extraction_Krml.EBufRead uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufRead uu___5 + | 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;_}, 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 = "Steel.Reference.read" -> let uu___5 = - let uu___6 = FStar_Extraction_Krml.translate_expr env e2 in + let uu___6 = FStarC_Extraction_Krml.translate_expr env e2 in (uu___6, - (FStar_Extraction_Krml.EQualified (["C"], "_zero_for_deref"))) in - FStar_Extraction_Krml.EBufRead uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + (FStarC_Extraction_Krml.EQualified (["C"], "_zero_for_deref"))) in + FStarC_Extraction_Krml.EBufRead uu___5 + | 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;_}, _perm::_v::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 = "Steel.ST.Reference.read" -> let uu___5 = - let uu___6 = FStar_Extraction_Krml.translate_expr env e2 in + let uu___6 = FStarC_Extraction_Krml.translate_expr env e2 in (uu___6, - (FStar_Extraction_Krml.EQualified (["C"], "_zero_for_deref"))) in - FStar_Extraction_Krml.EBufRead uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + (FStarC_Extraction_Krml.EQualified (["C"], "_zero_for_deref"))) in + FStarC_Extraction_Krml.EBufRead uu___5 + | 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;_}, init::[]) 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 = "Steel.ST.Reference._alloca" -> let uu___5 = - let uu___6 = FStar_Extraction_Krml.translate_expr env init in - (FStar_Extraction_Krml.Stack, uu___6, - (FStar_Extraction_Krml.EConstant - (FStar_Extraction_Krml.UInt32, "1"))) in - FStar_Extraction_Krml.EBufCreate uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___6 = FStarC_Extraction_Krml.translate_expr env init in + (FStarC_Extraction_Krml.Stack, uu___6, + (FStarC_Extraction_Krml.EConstant + (FStarC_Extraction_Krml.UInt32, "1"))) in + FStarC_Extraction_Krml.EBufCreate uu___5 + | 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;_}, init::[]) 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 = "Steel.Reference.malloc") || - (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 = "Steel.ST.Reference.alloc") -> let uu___5 = - let uu___6 = FStar_Extraction_Krml.translate_expr env init in - (FStar_Extraction_Krml.ManuallyManaged, uu___6, - (FStar_Extraction_Krml.EConstant - (FStar_Extraction_Krml.UInt32, "1"))) in - FStar_Extraction_Krml.EBufCreate uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___6 = FStarC_Extraction_Krml.translate_expr env init in + (FStarC_Extraction_Krml.ManuallyManaged, uu___6, + (FStarC_Extraction_Krml.EConstant + (FStarC_Extraction_Krml.UInt32, "1"))) in + FStarC_Extraction_Krml.EBufCreate uu___5 + | 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;_}, e0::e11::[]) 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 = "Steel.ST.HigherArray.malloc_ptr" -> let uu___5 = - let uu___6 = FStar_Extraction_Krml.translate_expr env e0 in - let uu___7 = FStar_Extraction_Krml.translate_expr env e11 in - (FStar_Extraction_Krml.ManuallyManaged, uu___6, uu___7) in - FStar_Extraction_Krml.EBufCreate uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___6 = FStarC_Extraction_Krml.translate_expr env e0 in + let uu___7 = FStarC_Extraction_Krml.translate_expr env e11 in + (FStarC_Extraction_Krml.ManuallyManaged, uu___6, uu___7) in + FStarC_Extraction_Krml.EBufCreate uu___5 + | 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;_}, 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 = "Steel.Reference.free" -> - let uu___5 = FStar_Extraction_Krml.translate_expr env e2 in - FStar_Extraction_Krml.EBufFree uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___5 = FStarC_Extraction_Krml.translate_expr env e2 in + FStarC_Extraction_Krml.EBufFree uu___5 + | 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;_}, _v::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 = "Steel.ST.HigherArray.free_ptr") || - (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 = "Steel.ST.Reference.free") -> - let uu___5 = FStar_Extraction_Krml.translate_expr env e2 in - FStar_Extraction_Krml.EBufFree uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___5 = FStarC_Extraction_Krml.translate_expr env e2 in + FStarC_Extraction_Krml.EBufFree uu___5 + | 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;_}, e11::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 = "Steel.ST.HigherArray.ptr_shift" -> let uu___5 = - let uu___6 = FStar_Extraction_Krml.translate_expr env e11 in - let uu___7 = FStar_Extraction_Krml.translate_expr env e2 in + let uu___6 = FStarC_Extraction_Krml.translate_expr env e11 in + let uu___7 = FStarC_Extraction_Krml.translate_expr env e2 in (uu___6, uu___7) in - FStar_Extraction_Krml.EBufSub uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufSub uu___5 + | 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;_}, e11::_len::_s::e2::e3::[]) 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 = "Steel.ST.HigherArray.upd_ptr" -> let uu___5 = - let uu___6 = FStar_Extraction_Krml.translate_expr env e11 in - let uu___7 = FStar_Extraction_Krml.translate_expr env e2 in - let uu___8 = FStar_Extraction_Krml.translate_expr env e3 in + let uu___6 = FStarC_Extraction_Krml.translate_expr env e11 in + let uu___7 = FStarC_Extraction_Krml.translate_expr env e2 in + let uu___8 = FStarC_Extraction_Krml.translate_expr env e3 in (uu___6, uu___7, uu___8) in - FStar_Extraction_Krml.EBufWrite uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufWrite uu___5 + | 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;_}, e11::_len::_s::e2::e3::[]) 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 = "Steel.ST.HigherArray.upd_ptr" -> let uu___5 = - let uu___6 = FStar_Extraction_Krml.translate_expr env e11 in - let uu___7 = FStar_Extraction_Krml.translate_expr env e2 in - let uu___8 = FStar_Extraction_Krml.translate_expr env e3 in + let uu___6 = FStarC_Extraction_Krml.translate_expr env e11 in + let uu___7 = FStarC_Extraction_Krml.translate_expr env e2 in + let uu___8 = FStarC_Extraction_Krml.translate_expr env e3 in (uu___6, uu___7, uu___8) in - FStar_Extraction_Krml.EBufWrite uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufWrite uu___5 + | 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;_}, e11::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 = "Steel.Reference.write" -> let uu___5 = - let uu___6 = FStar_Extraction_Krml.translate_expr env e11 in - let uu___7 = FStar_Extraction_Krml.translate_expr env e2 in + let uu___6 = FStarC_Extraction_Krml.translate_expr env e11 in + let uu___7 = FStarC_Extraction_Krml.translate_expr env e2 in (uu___6, - (FStar_Extraction_Krml.EQualified (["C"], "_zero_for_deref")), + (FStarC_Extraction_Krml.EQualified (["C"], "_zero_for_deref")), uu___7) in - FStar_Extraction_Krml.EBufWrite uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufWrite uu___5 + | 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;_}, _v::e11::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 = "Steel.ST.Reference.write" -> let uu___5 = - let uu___6 = FStar_Extraction_Krml.translate_expr env e11 in - let uu___7 = FStar_Extraction_Krml.translate_expr env e2 in + let uu___6 = FStarC_Extraction_Krml.translate_expr env e11 in + let uu___7 = FStarC_Extraction_Krml.translate_expr env e2 in (uu___6, - (FStar_Extraction_Krml.EQualified (["C"], "_zero_for_deref")), + (FStarC_Extraction_Krml.EQualified (["C"], "_zero_for_deref")), uu___7) in - FStar_Extraction_Krml.EBufWrite uu___5 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufWrite uu___5 + | 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 = "Steel.ST.Reference._push_frame" -> - FStar_Extraction_Krml.EPushFrame - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EPushFrame + | 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::[]) 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 = "Steel.ST.Reference._free_and_pop_frame" -> - FStar_Extraction_Krml.EPopFrame - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EPopFrame + | 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::e11::uu___8::e2::e3::uu___9::e4::e5::[]) 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 = "Steel.ST.HigherArray.blit_ptr" -> let uu___10 = - let uu___11 = FStar_Extraction_Krml.translate_expr env e11 in - let uu___12 = FStar_Extraction_Krml.translate_expr env e2 in - let uu___13 = FStar_Extraction_Krml.translate_expr env e3 in - let uu___14 = FStar_Extraction_Krml.translate_expr env e4 in - let uu___15 = FStar_Extraction_Krml.translate_expr env e5 in + let uu___11 = FStarC_Extraction_Krml.translate_expr env e11 in + let uu___12 = FStarC_Extraction_Krml.translate_expr env e2 in + let uu___13 = FStarC_Extraction_Krml.translate_expr env e3 in + let uu___14 = FStarC_Extraction_Krml.translate_expr env e4 in + let uu___15 = FStarC_Extraction_Krml.translate_expr env e5 in (uu___11, uu___12, uu___13, uu___14, uu___15) in - FStar_Extraction_Krml.EBufBlit uu___10 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EBufBlit 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___; - 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::e2::[]) 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 = "Steel.Effect.Atomic.return" -> - FStar_Extraction_Krml.translate_expr env e2 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.translate_expr env e2 + | 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;_}, _inv::test::body::[]) 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 = "Steel.ST.Loops.while_loop" -> let uu___2 = let uu___3 = let uu___4 = - let uu___5 = FStar_Extraction_Krml.translate_expr env test in + let uu___5 = FStarC_Extraction_Krml.translate_expr env test in let uu___6 = - let uu___7 = FStar_Extraction_Krml.translate_expr env body in + let uu___7 = FStarC_Extraction_Krml.translate_expr env body in [uu___7] in uu___5 :: uu___6 in - FStar_Extraction_Krml.EUnit :: uu___4 in - ((FStar_Extraction_Krml.EQualified + FStarC_Extraction_Krml.EUnit :: uu___4 in + ((FStarC_Extraction_Krml.EQualified (["Steel"; "Loops"], "while_loop")), uu___3) in - FStar_Extraction_Krml.EApp uu___2 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EApp uu___2 + | FStarC_Extraction_ML_Syntax.MLE_App ({ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Name + FStarC_Extraction_ML_Syntax.expr = + FStarC_Extraction_ML_Syntax.MLE_Name ("Steel"::"ST"::"Printf"::[], fn); - FStar_Extraction_ML_Syntax.mlty = uu___; - FStar_Extraction_ML_Syntax.loc = uu___1;_}, + FStarC_Extraction_ML_Syntax.mlty = uu___; + FStarC_Extraction_ML_Syntax.loc = uu___1;_}, args) -> let uu___2 = let uu___3 = - FStar_Compiler_List.map - (FStar_Extraction_Krml.translate_expr env) args in - ((FStar_Extraction_Krml.EQualified (["LowStar"; "Printf"], fn)), + FStarC_Compiler_List.map + (FStarC_Extraction_Krml.translate_expr env) args in + ((FStarC_Extraction_Krml.EQualified (["LowStar"; "Printf"], fn)), uu___3) in - FStar_Extraction_Krml.EApp uu___2 - | FStar_Extraction_ML_Syntax.MLE_App + FStarC_Extraction_Krml.EApp uu___2 + | 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::e2::[]) 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 = "Steel.Effect.Atomic.return") || - (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 = "Steel.ST.Util.return") - -> FStar_Extraction_Krml.translate_expr env e2 - | FStar_Extraction_ML_Syntax.MLE_App + -> FStarC_Extraction_Krml.translate_expr env e2 + | 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;_}, _fp::_fp'::_opened::_p::_i::{ - FStar_Extraction_ML_Syntax.expr = - FStar_Extraction_ML_Syntax.MLE_Fun + FStarC_Extraction_ML_Syntax.expr = + 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 = "Steel.ST.Util.with_invariant") || - (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 = "Steel.Effect.Atomic.with_invariant") - -> FStar_Extraction_Krml.translate_expr env body - | FStar_Extraction_ML_Syntax.MLE_App + -> FStarC_Extraction_Krml.translate_expr env body + | 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;_}, _fp::_fp'::_opened::_p::_i::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 = "Steel.ST.Util.with_invariant") || - (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 = "Steel.Effect.Atomic.with_invariant") -> let uu___5 = let uu___6 = - FStar_Compiler_Util.string_of_int + FStarC_Compiler_Util.string_of_int (FStar_Pervasives_Native.fst - e2.FStar_Extraction_ML_Syntax.loc) in - FStar_Compiler_Util.format2 + e2.FStarC_Extraction_ML_Syntax.loc) in + FStarC_Compiler_Util.format2 "Extraction of with_invariant requires its argument to be a function literal at extraction time, try marking its argument inline_for_extraction (%s, %s)" uu___6 - (FStar_Pervasives_Native.snd e2.FStar_Extraction_ML_Syntax.loc) in - FStar_Errors.raise_error0 - FStar_Errors_Codes.Fatal_ExtractionUnsupported () - (Obj.magic FStar_Errors_Msg.is_error_message_string) + (FStar_Pervasives_Native.snd e2.FStarC_Extraction_ML_Syntax.loc) in + FStarC_Errors.raise_error0 + FStarC_Errors_Codes.Fatal_ExtractionUnsupported () + (Obj.magic FStarC_Errors_Msg.is_error_message_string) (Obj.magic uu___5) | uu___ -> - FStar_Compiler_Effect.raise - FStar_Extraction_Krml.NotSupportedByKrmlExtension -let (steel_translate_let : FStar_Extraction_Krml.translate_let_t) = + FStarC_Compiler_Effect.raise + FStarC_Extraction_Krml.NotSupportedByKrmlExtension +let (steel_translate_let : FStarC_Extraction_Krml.translate_let_t) = fun env -> fun flavor -> fun lb -> match lb with - | { FStar_Extraction_ML_Syntax.mllb_name = name; - FStar_Extraction_ML_Syntax.mllb_tysc = + | { FStarC_Extraction_ML_Syntax.mllb_name = name; + FStarC_Extraction_ML_Syntax.mllb_tysc = FStar_Pervasives_Native.Some (tvars, t); - FStar_Extraction_ML_Syntax.mllb_add_unit = uu___; - FStar_Extraction_ML_Syntax.mllb_def = + FStarC_Extraction_ML_Syntax.mllb_add_unit = uu___; + FStarC_Extraction_ML_Syntax.mllb_def = { - 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;_}, l::[]); - FStar_Extraction_ML_Syntax.mlty = uu___6; - FStar_Extraction_ML_Syntax.loc = uu___7;_}; - FStar_Extraction_ML_Syntax.mllb_attrs = uu___8; - FStar_Extraction_ML_Syntax.mllb_meta = meta; - FStar_Extraction_ML_Syntax.print_typ = uu___9;_} when - let uu___10 = FStar_Extraction_ML_Syntax.string_of_mlpath p in + FStarC_Extraction_ML_Syntax.mlty = uu___6; + FStarC_Extraction_ML_Syntax.loc = uu___7;_}; + FStarC_Extraction_ML_Syntax.mllb_attrs = uu___8; + FStarC_Extraction_ML_Syntax.mllb_meta = meta; + FStarC_Extraction_ML_Syntax.print_typ = uu___9;_} when + let uu___10 = FStarC_Extraction_ML_Syntax.string_of_mlpath p in uu___10 = "Steel.TLArray.create" -> if - FStar_Compiler_List.mem FStar_Extraction_ML_Syntax.NoExtract + FStarC_Compiler_List.mem FStarC_Extraction_ML_Syntax.NoExtract meta then FStar_Pervasives_Native.None else - (let meta1 = FStar_Extraction_Krml.translate_flags meta in + (let meta1 = FStarC_Extraction_Krml.translate_flags meta in let env1 = let uu___11 = - FStar_Extraction_ML_Syntax.ty_param_names tvars in - FStar_Compiler_List.fold_left + FStarC_Extraction_ML_Syntax.ty_param_names tvars in + FStarC_Compiler_List.fold_left (fun env2 -> - fun name1 -> FStar_Extraction_Krml.extend_t env2 name1) + fun name1 -> FStarC_Extraction_Krml.extend_t env2 name1) env uu___11 in - let t1 = FStar_Extraction_Krml.translate_type env1 t in - let name1 = ((env1.FStar_Extraction_Krml.module_name), name) in + let t1 = FStarC_Extraction_Krml.translate_type env1 t in + let name1 = ((env1.FStarC_Extraction_Krml.module_name), name) in try (fun uu___11 -> match () with | () -> let expr = - let uu___12 = FStar_Extraction_Krml.list_elements l in - FStar_Compiler_List.map - (FStar_Extraction_Krml.translate_expr env1) + let uu___12 = FStarC_Extraction_Krml.list_elements l in + FStarC_Compiler_List.map + (FStarC_Extraction_Krml.translate_expr env1) uu___12 in FStar_Pervasives_Native.Some - (FStar_Extraction_Krml.DGlobal + (FStarC_Extraction_Krml.DGlobal (meta1, name1, - (FStar_Compiler_List.length tvars), t1, - (FStar_Extraction_Krml.EBufCreateL - (FStar_Extraction_Krml.Eternal, expr))))) + (FStarC_Compiler_List.length tvars), t1, + (FStarC_Extraction_Krml.EBufCreateL + (FStarC_Extraction_Krml.Eternal, expr))))) () with | uu___11 -> ((let uu___13 = let uu___14 = - FStar_Extraction_ML_Syntax.string_of_mlpath name1 in - let uu___15 = FStar_Compiler_Util.print_exn uu___11 in - FStar_Compiler_Util.format2 + FStarC_Extraction_ML_Syntax.string_of_mlpath name1 in + let uu___15 = FStarC_Compiler_Util.print_exn uu___11 in + FStarC_Compiler_Util.format2 "Error extracting %s to KaRaMeL (%s)\n" uu___14 uu___15 in - FStar_Errors.log_issue0 - FStar_Errors_Codes.Warning_DefinitionNotTranslated () - (Obj.magic FStar_Errors_Msg.is_error_message_string) + FStarC_Errors.log_issue0 + FStarC_Errors_Codes.Warning_DefinitionNotTranslated () + (Obj.magic FStarC_Errors_Msg.is_error_message_string) (Obj.magic uu___13)); FStar_Pervasives_Native.Some - (FStar_Extraction_Krml.DGlobal - (meta1, name1, (FStar_Compiler_List.length tvars), - t1, FStar_Extraction_Krml.EAny)))) + (FStarC_Extraction_Krml.DGlobal + (meta1, name1, (FStarC_Compiler_List.length tvars), + t1, FStarC_Extraction_Krml.EAny)))) | uu___ -> - 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 steel_translate_type_without_decay; - FStar_Extraction_Krml.register_pre_translate_expr steel_translate_expr; - FStar_Extraction_Krml.register_pre_translate_let steel_translate_let \ No newline at end of file + FStarC_Extraction_Krml.register_pre_translate_expr steel_translate_expr; + FStarC_Extraction_Krml.register_pre_translate_let steel_translate_let \ No newline at end of file diff --git a/src/ocaml/plugin/generated/ExtractSteelC.ml b/src/ocaml/plugin/generated/ExtractSteelC.ml index 15db913e3..00c2cbfbc 100644 --- a/src/ocaml/plugin/generated/ExtractSteelC.ml +++ b/src/ocaml/plugin/generated/ExtractSteelC.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 = "Steel.C.Typestring.cdot" then FStar_Pervasives_Native.Some 46 else - if FStar_Compiler_Util.starts_with p1 "Steel.C.Typestring.c" + if FStarC_Compiler_Util.starts_with p1 "Steel.C.Typestring.c" then (let uu___1 = - FStar_Compiler_String.get p1 + FStarC_Compiler_String.get p1 (FStar_String.strlen "Steel.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___ = "Steel.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___ = "Steel.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___ = "Steel.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___ = "Steel.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 "Steel.ST.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 "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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::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 = "Steel.ST.C.Types.Array.array_ptr_is_null" -> - let uu___9 = FStar_Extraction_Krml.translate_type env t in - let uu___10 = FStar_Extraction_Krml.translate_expr env e1 in - FStar_Extraction_Krml.generate_is_null uu___9 uu___10 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___9 = FStarC_Extraction_Krml.translate_type env t in + let uu___10 = FStarC_Extraction_Krml.translate_expr env e1 in + FStarC_Extraction_Krml.generate_is_null uu___9 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;_}, 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::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 = "Steel.ST.C.Types.Base.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) 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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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::uu___8::x::[]) 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 = "Steel.ST.C.Types.Base.void_ptr_of_ptr" -> let uu___9 = - let uu___10 = FStar_Extraction_Krml.translate_expr env x in - (uu___10, FStar_Extraction_Krml.TAny) in - FStar_Extraction_Krml.ECast uu___9 - | FStar_Extraction_ML_Syntax.MLE_App + let uu___10 = FStarC_Extraction_Krml.translate_expr env x in + (uu___10, FStarC_Extraction_Krml.TAny) in + FStarC_Extraction_Krml.ECast 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::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 = "Steel.ST.C.Types.Base.ptr_of_void_ptr" -> let uu___8 = - let uu___9 = FStar_Extraction_Krml.translate_expr env x in + let uu___9 = FStarC_Extraction_Krml.translate_expr env x in let uu___10 = - let uu___11 = FStar_Extraction_Krml.translate_type env t in - FStar_Extraction_Krml.TBuf uu___11 in + let uu___11 = FStarC_Extraction_Krml.translate_type env t in + FStarC_Extraction_Krml.TBuf uu___11 in (uu___9, uu___10) in - FStar_Extraction_Krml.ECast uu___8 - | FStar_Extraction_ML_Syntax.MLE_App + 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;_}, 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::r::[]) 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 = "Steel.ST.C.Types.Array.array_ref_of_base" -> let uu___10 = - let uu___11 = FStar_Extraction_Krml.translate_expr env r in + let uu___11 = FStarC_Extraction_Krml.translate_expr env r in (uu___11, - (FStar_Extraction_Krml.EQualified + (FStarC_Extraction_Krml.EQualified (["C"], "_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;_}, 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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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___ = "Steel.ST.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___ = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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 = "Steel.ST.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/Steel_Effect_Common.ml b/src/ocaml/plugin/generated/Steel_Effect_Common.ml index 77801bb49..a5f17fa9b 100644 --- a/src/ocaml/plugin/generated/Steel_Effect_Common.ml +++ b/src/ocaml/plugin/generated/Steel_Effect_Common.ml @@ -43,10 +43,10 @@ type ('a, 'framed, 'frame) maybe_emp_dep = Obj.t type ('frame, 'h0, 'h1) frame_equalities' = Obj.t let (frame_vc_norm : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> - FStar_Tactics_V2_Builtins.with_compat_pre_core Prims.int_zero + FStarC_Tactics_V2_Builtins.with_compat_pre_core Prims.int_zero (fun uu___1 -> let uu___2 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [FStar_Pervasives.delta_attr ["Steel.Effect.Common.__steel_reduce__"]; FStar_Pervasives.delta_only @@ -80,9 +80,9 @@ let (frame_vc_norm : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = (fun uu___6 -> let uu___7 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -185,9 +185,9 @@ let (frame_vc_norm : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = let uu___17 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -268,9 +268,9 @@ let (frame_vc_norm : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = let uu___19 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -344,7 +344,7 @@ let (frame_vc_norm : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = -> let uu___19 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [ FStar_Pervasives.delta_attr ["Steel.Effect.Common.__steel_reduce__"; @@ -430,9 +430,9 @@ let (frame_vc_norm : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = (fun uu___7 -> let uu___8 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -491,9 +491,9 @@ let (frame_vc_norm : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = (fun uu___9 -> let uu___10 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -549,7 +549,7 @@ let (frame_vc_norm : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = (fun uu___9 -> (fun uu___9 -> let uu___10 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [FStar_Pervasives.delta_attr ["Steel.Effect.Common.__steel_reduce__"; "Steel.Effect.Common.__inner_steel_reduce__"]; @@ -592,7 +592,7 @@ let (frame_vc_norm : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = uu___11))) uu___9))) uu___7))) uu___5))) uu___3)) let _ = - FStar_Tactics_Native.register_tactic "Steel.Effect.Common.frame_vc_norm" + FStarC_Tactics_Native.register_tactic "Steel.Effect.Common.frame_vc_norm" (Prims.of_int (2)) (fun psc -> fun ncb -> @@ -600,8 +600,8 @@ let _ = fun args -> FStar_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.Effect.Common.frame_vc_norm (plugin)" - (FStar_Tactics_Native.from_tactic_1 frame_vc_norm) - FStar_Syntax_Embeddings.e_unit FStar_Syntax_Embeddings.e_unit + (FStarC_Tactics_Native.from_tactic_1 frame_vc_norm) + FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit psc ncb us args) type ('frame, 'h0, 'h1) frame_equalities = Obj.t type ('v, 'p) vrefine_am = 'p @@ -931,11 +931,11 @@ and (visit_comp : (fun uu___1 -> (fun cv -> match cv with - | FStar_Reflection_V2_Data.C_Total ret -> + | FStarC_Reflection_V2_Data.C_Total ret -> Obj.magic (visit_tm ff ret) - | FStar_Reflection_V2_Data.C_GTotal ret -> + | FStarC_Reflection_V2_Data.C_GTotal ret -> Obj.magic (visit_tm ff ret) - | FStar_Reflection_V2_Data.C_Lemma (pre, post, pats) -> + | FStarC_Reflection_V2_Data.C_Lemma (pre, post, pats) -> let uu___1 = visit_tm ff pre in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -976,7 +976,7 @@ and (visit_comp : (fun uu___4 -> Obj.magic (visit_tm ff pats)) uu___4))) uu___2)) - | FStar_Reflection_V2_Data.C_Eff (us, eff, res, args, decrs) -> + | FStarC_Reflection_V2_Data.C_Eff (us, eff, res, args, decrs) -> let uu___1 = visit_tm ff res in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1024,7 +1024,7 @@ and (visit_comp : (visit_tm ff) decrs)) uu___4))) uu___2))) uu___1) let (name_appears_in : - FStar_Reflection_Types.name -> + FStarC_Reflection_Types.name -> FStar_Tactics_NamedView.term -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = @@ -1052,7 +1052,7 @@ let (name_appears_in : match uu___3 with | FStar_Tactics_NamedView.Tv_FVar fv -> if - (FStar_Reflection_V2_Builtins.inspect_fv fv) = + (FStarC_Reflection_V2_Builtins.inspect_fv fv) = nm then FStar_Tactics_Effect.raise Appears else @@ -1136,7 +1136,7 @@ let (term_appears_in : fun t -> fun i -> let uu___ = - let uu___1 = FStar_Tactics_V2_Builtins.term_to_string t in + let uu___1 = FStarC_Tactics_V2_Builtins.term_to_string t in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1151,7 +1151,7 @@ let (term_appears_in : (Obj.magic uu___1) (fun uu___2 -> FStar_Tactics_Effect.lift_div_tac - (fun uu___3 -> FStar_Reflection_V2_Builtins.explode_qn uu___2)) in + (fun uu___3 -> FStarC_Reflection_V2_Builtins.explode_qn uu___2)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1352,7 +1352,7 @@ let rec (get_candidates : match uu___4 with | (n, uu___5) -> let uu___6 = - FStar_Tactics_V2_Builtins.term_eq_old + FStarC_Tactics_V2_Builtins.term_eq_old n name in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -1525,12 +1525,12 @@ let rec (print_atoms : | hd::[] -> Obj.magic (Obj.repr - (FStar_Tactics_V2_Builtins.term_to_string (select hd am))) + (FStarC_Tactics_V2_Builtins.term_to_string (select hd am))) | hd::tl -> Obj.magic (Obj.repr (let uu___ = - FStar_Tactics_V2_Builtins.term_to_string + FStarC_Tactics_V2_Builtins.term_to_string (select hd am) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2120,9 +2120,9 @@ let (get_head : fun am -> match l with | [] -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_Unit) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_Unit) | hd::uu___ -> select hd am let (is_only_uvar : atom Prims.list -> @@ -2198,7 +2198,7 @@ let rec (try_unifying_remaining : | uu___1 -> let uu___2 = let uu___3 = - FStar_Tactics_V2_Builtins.term_to_string + FStarC_Tactics_V2_Builtins.term_to_string (select hd am) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2309,10 +2309,10 @@ let (is_smt_binder : FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> Prims.op_Negation uu___2)))) uu___1) let rec (new_args_for_smt_attrs : - FStar_Reflection_Types.env -> - FStar_Reflection_V2_Data.argv Prims.list -> - FStar_Reflection_Types.typ -> - ((FStar_Reflection_V2_Data.argv Prims.list * + FStarC_Reflection_Types.env -> + FStarC_Reflection_V2_Data.argv Prims.list -> + FStarC_Reflection_Types.typ -> + ((FStarC_Reflection_V2_Data.argv Prims.list * FStar_Tactics_NamedView.term Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -2340,7 +2340,7 @@ let rec (new_args_for_smt_attrs : (fun uu___3 -> (fun e -> Obj.magic - (FStar_Tactics_V2_Builtins.ghost_uvar_env e ty1)) + (FStarC_Tactics_V2_Builtins.ghost_uvar_env e ty1)) uu___3))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2422,7 +2422,7 @@ let rec (new_args_for_smt_attrs : Obj.magic (Obj.repr (let uu___5 = - FStar_Tactics_V2_Builtins.tc + FStarC_Tactics_V2_Builtins.tc env arg in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2477,7 +2477,7 @@ let rec (new_args_for_smt_attrs : -> let uu___7 = - FStar_Tactics_V2_Builtins.unshelve + FStarC_Tactics_V2_Builtins.unshelve uvar in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2570,14 +2570,14 @@ let rec (new_args_for_smt_attrs : match FStar_Tactics_NamedView.inspect_comp comp with - | FStar_Reflection_V2_Data.C_Total + | FStarC_Reflection_V2_Data.C_Total ty2 -> Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___6 -> ty2)) - | FStar_Reflection_V2_Data.C_Eff + | FStarC_Reflection_V2_Data.C_Eff (uu___6, eff_name, ty2, uu___7, @@ -2683,7 +2683,7 @@ let rec (new_args_for_smt_attrs : "should not happen. Is an slprop partially applied?"))) uu___2))) uu___1) let (rewrite_term_for_smt : - FStar_Reflection_Types.env -> + FStarC_Reflection_Types.env -> (FStar_Tactics_NamedView.term amap * FStar_Tactics_NamedView.term Prims.list) -> atom -> @@ -2760,7 +2760,7 @@ let (rewrite_term_for_smt : match uu___4 with | (hd, args) -> let uu___5 = - FStar_Tactics_V2_Builtins.tc + FStarC_Tactics_V2_Builtins.tc env hd in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2992,7 +2992,7 @@ let rec (equivalent_lists_fallback : (Obj.repr (let uu___3 = let uu___4 = - FStar_Tactics_V2_Builtins.term_to_string + FStarC_Tactics_V2_Builtins.term_to_string (get_head l2 am) in FStar_Tactics_Effect.tac_bind @@ -3051,7 +3051,7 @@ let rec (equivalent_lists_fallback : Obj.repr (let uu___1 = let uu___2 = - FStar_Tactics_V2_Builtins.term_to_string + FStarC_Tactics_V2_Builtins.term_to_string (get_head l2 am) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3343,7 +3343,7 @@ let rec (equivalent_lists' : (let uu___3 = let uu___4 = - FStar_Tactics_V2_Builtins.term_to_string + FStarC_Tactics_V2_Builtins.term_to_string (get_head l2 am) in FStar_Tactics_Effect.tac_bind @@ -3405,7 +3405,7 @@ let rec (equivalent_lists' : Obj.repr (let uu___1 = let uu___2 = - FStar_Tactics_V2_Builtins.term_to_string + FStarC_Tactics_V2_Builtins.term_to_string (get_head l2 am) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -4141,7 +4141,7 @@ let rec (list_to_string : | hd::tl -> Obj.magic (Obj.repr - (let uu___ = FStar_Tactics_V2_Builtins.term_to_string hd in + (let uu___ = FStarC_Tactics_V2_Builtins.term_to_string hd in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -4392,17 +4392,17 @@ let rec (n_identity_left : then let uu___ = FStar_Tactics_V2_Derived.apply_lemma - (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"; "Algebra"; "CommMonoid"; "Equiv"; "__proj__EQ__item__reflexivity"]))), - (eq, FStar_Reflection_V2_Data.Q_Explicit)))) in + (eq, FStarC_Reflection_V2_Data.Q_Explicit)))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -4417,23 +4417,23 @@ let rec (n_identity_left : (Obj.magic uu___) (fun uu___1 -> (fun uu___1 -> - Obj.magic (FStar_Tactics_V2_Builtins.set_goals [])) uu___1) + Obj.magic (FStarC_Tactics_V2_Builtins.set_goals [])) uu___1) else (let uu___1 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; "identity_right_diff"]))), - (eq, FStar_Reflection_V2_Data.Q_Explicit)))), - (m, FStar_Reflection_V2_Data.Q_Explicit)))) in + (eq, FStarC_Reflection_V2_Data.Q_Explicit)))), + (m, FStarC_Reflection_V2_Data.Q_Explicit)))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -4492,7 +4492,7 @@ let rec (where_aux : Obj.magic (Obj.repr (let uu___ = - FStar_Tactics_V2_Builtins.term_eq_old x x' in + FStarC_Tactics_V2_Builtins.term_eq_old x x' in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -4702,12 +4702,12 @@ let rec (reification_aux : match uu___3 with | (FStar_Tactics_NamedView.Tv_FVar fv, (t1, - FStar_Reflection_V2_Data.Q_Explicit):: + FStarC_Reflection_V2_Data.Q_Explicit):: (t2, - FStar_Reflection_V2_Data.Q_Explicit)::[]) + FStarC_Reflection_V2_Data.Q_Explicit)::[]) -> let uu___4 = - FStar_Tactics_V2_Builtins.term_eq_old + FStarC_Tactics_V2_Builtins.term_eq_old (FStar_Tactics_NamedView.pack (FStar_Tactics_NamedView.Tv_FVar fv)) mult in @@ -4808,7 +4808,7 @@ let rec (reification_aux : uu___5)) | (uu___4, uu___5) -> let uu___6 = - FStar_Tactics_V2_Builtins.term_eq_old + FStarC_Tactics_V2_Builtins.term_eq_old t unit in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -4863,17 +4863,17 @@ let (reification : [FStar_Pervasives.iota; FStar_Pervasives.zeta; FStar_Pervasives.delta] - (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"; "Algebra"; "CommMonoid"; "Equiv"; "__proj__CM__item__mult"]))), - (m, FStar_Reflection_V2_Data.Q_Explicit)))) in + (m, FStarC_Reflection_V2_Data.Q_Explicit)))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -4893,17 +4893,17 @@ let (reification : [FStar_Pervasives.iota; FStar_Pervasives.zeta; FStar_Pervasives.delta] - (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"; "Algebra"; "CommMonoid"; "Equiv"; "__proj__CM__item__unit"]))), - (m, FStar_Reflection_V2_Data.Q_Explicit)))) in + (m, FStarC_Reflection_V2_Data.Q_Explicit)))) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -4957,41 +4957,41 @@ let rec (convert_map : fun m -> match m with | [] -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv ["Prims"; "Nil"])) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "Nil"])) | (a, t)::ps -> let a1 = FStar_Tactics_NamedView.pack (FStar_Tactics_NamedView.Tv_Const - (FStar_Reflection_V2_Data.C_Int a)) in + (FStarC_Reflection_V2_Data.C_Int a)) in let uu___ = convert_map ps in let uu___1 = t in let uu___2 = a1 in - 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 ["Prims"; "Cons"]))), - ((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"]))), (uu___2, - FStar_Reflection_V2_Data.Q_Explicit)))), - (uu___1, FStar_Reflection_V2_Data.Q_Explicit)))), - FStar_Reflection_V2_Data.Q_Explicit)))), - (uu___, FStar_Reflection_V2_Data.Q_Explicit))) + FStarC_Reflection_V2_Data.Q_Explicit)))), + (uu___1, FStarC_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), + (uu___, FStarC_Reflection_V2_Data.Q_Explicit))) let (convert_am : FStar_Tactics_NamedView.term amap -> FStar_Tactics_NamedView.term) = fun am -> @@ -5000,73 +5000,73 @@ let (convert_am : | (map, def) -> let uu___1 = def in let uu___2 = convert_map map in - 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"]))), - (uu___2, FStar_Reflection_V2_Data.Q_Explicit)))), - (uu___1, FStar_Reflection_V2_Data.Q_Explicit))) + (uu___2, FStarC_Reflection_V2_Data.Q_Explicit)))), + (uu___1, FStarC_Reflection_V2_Data.Q_Explicit))) let rec (quote_exp : exp -> FStar_Tactics_NamedView.term) = fun e -> match e with | Unit -> - 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 ["Steel"; "Effect"; "Common"; "Unit"])) | Mult (e1, e2) -> let uu___ = quote_exp e2 in let uu___1 = quote_exp e1 in - 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 ["Steel"; "Effect"; "Common"; "Mult"]))), - (uu___1, FStar_Reflection_V2_Data.Q_Explicit)))), - (uu___, FStar_Reflection_V2_Data.Q_Explicit))) + (uu___1, FStarC_Reflection_V2_Data.Q_Explicit)))), + (uu___, FStarC_Reflection_V2_Data.Q_Explicit))) | Atom n -> let nt = FStar_Tactics_NamedView.pack (FStar_Tactics_NamedView.Tv_Const - (FStar_Reflection_V2_Data.C_Int n)) in - 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.C_Int n)) in + 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 ["Steel"; "Effect"; "Common"; "Atom"]))), - (nt, FStar_Reflection_V2_Data.Q_Explicit))) -let rec (quote_atoms : atom Prims.list -> FStar_Reflection_Types.term) = + (nt, FStarC_Reflection_V2_Data.Q_Explicit))) +let rec (quote_atoms : atom Prims.list -> FStarC_Reflection_Types.term) = fun l -> match l with | [] -> - FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv ["Prims"; "Nil"])) + FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "Nil"])) | hd::tl -> let nt = FStar_Tactics_NamedView.pack (FStar_Tactics_NamedView.Tv_Const - (FStar_Reflection_V2_Data.C_Int hd)) in + (FStarC_Reflection_V2_Data.C_Int hd)) in let uu___ = quote_atoms tl in let uu___1 = nt in - 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 ["Prims"; "Cons"]))), - (uu___1, FStar_Reflection_V2_Data.Q_Explicit)))), - (uu___, FStar_Reflection_V2_Data.Q_Explicit))) + (uu___1, FStarC_Reflection_V2_Data.Q_Explicit)))), + (uu___, FStarC_Reflection_V2_Data.Q_Explicit))) let (normal_tac_steps : FStar_Pervasives.norm_step Prims.list) = [FStar_Pervasives.primops; FStar_Pervasives.iota; @@ -5147,7 +5147,7 @@ let (close_equality_typ' : Obj.magic (Obj.repr (let uu___4 = - FStar_Tactics_V2_Builtins.unshelve u in + FStarC_Tactics_V2_Builtins.unshelve u in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -5193,7 +5193,7 @@ let (close_equality_typ' : (fun uu___8 -> (fun uu___8 -> Obj.magic - (FStar_Tactics_V2_Builtins.tc + (FStarC_Tactics_V2_Builtins.tc uu___8 l)) uu___8) in Obj.magic @@ -5339,9 +5339,9 @@ let rec (unify_pr_with_true : (uu___5, uu___6) -> let uu___7 = FStar_Tactics_V2_Derived.unify pr - (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 ["Steel"; "Effect"; "Common"; @@ -5377,7 +5377,7 @@ let rec (unify_pr_with_true : let uu___6 = let uu___7 = let uu___8 = - FStar_Tactics_V2_Builtins.free_uvars + FStarC_Tactics_V2_Builtins.free_uvars pr in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -5479,14 +5479,14 @@ let rec (set_abduction_variable_term : Obj.magic (Obj.repr (match tl with - | (pr_l, FStar_Reflection_V2_Data.Q_Explicit):: - (pr_r, FStar_Reflection_V2_Data.Q_Explicit)::[] + | (pr_l, FStarC_Reflection_V2_Data.Q_Explicit):: + (pr_r, FStarC_Reflection_V2_Data.Q_Explicit)::[] -> Obj.repr (let uu___2 = let uu___3 = let uu___4 = - FStar_Tactics_V2_Builtins.free_uvars + FStarC_Tactics_V2_Builtins.free_uvars pr_r in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -5580,20 +5580,20 @@ let rec (set_abduction_variable_term : FStar_Tactics_Effect.lift_div_tac (fun uu___5 -> 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 ["Steel"; "Effect"; "Common"; "elim_and_l_squash"]))) [(arg, - FStar_Reflection_V2_Data.Q_Explicit)]))) + FStarC_Reflection_V2_Data.Q_Explicit)]))) else (let uu___5 = let uu___6 = let uu___7 = - FStar_Tactics_V2_Builtins.free_uvars + FStarC_Tactics_V2_Builtins.free_uvars pr_l in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -5693,16 +5693,16 @@ let rec (set_abduction_variable_term : fun uu___8 -> 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 ["Steel"; "Effect"; "Common"; "elim_and_r_squash"]))) [ (arg, - FStar_Reflection_V2_Data.Q_Explicit)])))) + FStarC_Reflection_V2_Data.Q_Explicit)])))) else Obj.magic (Obj.repr @@ -5739,17 +5739,17 @@ let rec (set_abduction_variable_term : 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 ["Steel"; "Effect"; "Common"; "_return_squash"]))) - [((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)]) | uu___5 -> FStar_Tactics_V2_Derived.fail "set_abduction_variable: cannot unify")))) @@ -5874,17 +5874,17 @@ let (canon_l_r : [FStar_Pervasives.iota; FStar_Pervasives.zeta; FStar_Pervasives.delta] - (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"; "Algebra"; "CommMonoid"; "Equiv"; "__proj__CM__item__unit"]))), - (m, FStar_Reflection_V2_Data.Q_Explicit)))) in + (m, FStarC_Reflection_V2_Data.Q_Explicit)))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -5904,18 +5904,18 @@ let (canon_l_r : [FStar_Pervasives.iota; FStar_Pervasives.zeta; FStar_Pervasives.delta] - (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"; "Algebra"; "CommMonoid"; "Equiv"; "__proj__CM__item__mult"]))), (m, - FStar_Reflection_V2_Data.Q_Explicit)))) in + FStarC_Reflection_V2_Data.Q_Explicit)))) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -6300,9 +6300,9 @@ let (canon_l_r : m_mult [ (t1, - FStar_Reflection_V2_Data.Q_Explicit); + FStarC_Reflection_V2_Data.Q_Explicit); (t2, - FStar_Reflection_V2_Data.Q_Explicit)]) + FStarC_Reflection_V2_Data.Q_Explicit)]) am_bv_term e)) in Obj.magic @@ -6348,9 +6348,9 @@ let (canon_l_r : m_mult [ (t1, - FStar_Reflection_V2_Data.Q_Explicit); + FStarC_Reflection_V2_Data.Q_Explicit); (t2, - FStar_Reflection_V2_Data.Q_Explicit)]) + FStarC_Reflection_V2_Data.Q_Explicit)]) am_bv_term l)) in Obj.magic @@ -6532,9 +6532,9 @@ let (canon_l_r : rel [ (l, - FStar_Reflection_V2_Data.Q_Explicit); + FStarC_Reflection_V2_Data.Q_Explicit); (r, - FStar_Reflection_V2_Data.Q_Explicit)])) in + FStarC_Reflection_V2_Data.Q_Explicit)])) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -6642,13 +6642,13 @@ let (canon_l_r : FStar_Reflection_V2_Derived.mk_app (FStar_Tactics_NamedView.pack (FStar_Tactics_NamedView.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_fv FStar_Reflection_Const.imp_qn))) [ (imp_lhs, - FStar_Reflection_V2_Data.Q_Explicit); + FStarC_Reflection_V2_Data.Q_Explicit); (imp_rhs, - FStar_Reflection_V2_Data.Q_Explicit)])) in + FStarC_Reflection_V2_Data.Q_Explicit)])) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -6704,16 +6704,16 @@ let (canon_l_r : FStar_Tactics_NamedView.uniq = ((FStar_Tactics_NamedView.inspect_namedv - nv).FStar_Reflection_V2_Data.uniq); + nv).FStarC_Reflection_V2_Data.uniq); FStar_Tactics_NamedView.ppname = ((FStar_Tactics_NamedView.inspect_namedv - nv).FStar_Reflection_V2_Data.ppname); + nv).FStarC_Reflection_V2_Data.ppname); FStar_Tactics_NamedView.sort = sort1; FStar_Tactics_NamedView.qual = - FStar_Reflection_V2_Data.Q_Explicit; + FStarC_Reflection_V2_Data.Q_Explicit; FStar_Tactics_NamedView.attrs = [] } t @@ -6724,7 +6724,7 @@ let (canon_l_r : FStar_Reflection_V2_Derived.mk_app (FStar_Tactics_NamedView.pack (FStar_Tactics_NamedView.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_fv FStar_Reflection_Const.forall_qn))) [ ((FStar_Tactics_NamedView.pack @@ -6733,20 +6733,20 @@ let (canon_l_r : FStar_Tactics_NamedView.uniq = ((FStar_Tactics_NamedView.inspect_namedv - nv).FStar_Reflection_V2_Data.uniq); + nv).FStarC_Reflection_V2_Data.uniq); FStar_Tactics_NamedView.ppname = ((FStar_Tactics_NamedView.inspect_namedv - nv).FStar_Reflection_V2_Data.ppname); + nv).FStarC_Reflection_V2_Data.ppname); FStar_Tactics_NamedView.sort = sort1; FStar_Tactics_NamedView.qual = - FStar_Reflection_V2_Data.Q_Explicit; + FStarC_Reflection_V2_Data.Q_Explicit; FStar_Tactics_NamedView.attrs = [] }, t1))), - FStar_Reflection_V2_Data.Q_Explicit)])))) + FStarC_Reflection_V2_Data.Q_Explicit)])))) uu___24 uu___23) am_bv imp in @@ -6779,17 +6779,17 @@ let (canon_l_r : let uu___23 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; "cut"]))), (aux_goal, - FStar_Reflection_V2_Data.Q_Explicit)))) in + FStarC_Reflection_V2_Data.Q_Explicit)))) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -7089,80 +7089,80 @@ let (canon_l_r : let uu___34 = FStar_Tactics_V2_Derived.change_sq - (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 ["Steel"; "Effect"; "Common"; "normal_tac"]))), - ((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"; "Algebra"; "CommMonoid"; "Equiv"; "__proj__EQ__item__eq"]))), (eq, - 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_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_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 ["Steel"; "Effect"; "Common"; "mdenote"]))), (eq, - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), (m, - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), (am4, - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), (r1, - FStar_Reflection_V2_Data.Q_Explicit)))), - 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_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_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_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 ["Steel"; "Effect"; "Common"; "mdenote"]))), (eq, - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), (m, - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), (am4, - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), (r2, - FStar_Reflection_V2_Data.Q_Explicit)))), - FStar_Reflection_V2_Data.Q_Explicit)))), - FStar_Reflection_V2_Data.Q_Explicit)))) in + FStarC_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -7192,9 +7192,9 @@ let (canon_l_r : let uu___36 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -7228,9 +7228,9 @@ let (canon_l_r : let uu___38 = FStar_Tactics_V2_Derived.apply - (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 ["Steel"; "Effect"; "Common"; @@ -7332,33 +7332,33 @@ let (canon_l_r : let uu___42 = FStar_Tactics_V2_Derived.apply_lemma - (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_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_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 ["Steel"; "Effect"; "Common"; "equivalent_sorted"]))), (eq, - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), (m, - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), (am4, - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), (l1, - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), (l2, - FStar_Reflection_V2_Data.Q_Explicit)))) in + FStarC_Reflection_V2_Data.Q_Explicit)))) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -7489,7 +7489,7 @@ let (canon_l_r : (Obj.repr (let uu___47 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [FStar_Pervasives.primops; FStar_Pervasives.iota; FStar_Pervasives.zeta; @@ -7662,9 +7662,9 @@ let (canon_l_r : let uu___57 = FStar_Tactics_V2_Derived.apply - (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"; "Squash"; "return_squash"]))) in @@ -7783,9 +7783,9 @@ let (canon_l_r : uu___33 -> FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -7845,9 +7845,9 @@ let (canon_l_r : let uu___33 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -7898,9 +7898,9 @@ let (canon_l_r : let uu___37 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -7966,35 +7966,35 @@ let (canon_l_r : emp_frame then FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; "identity_left"]))), (eq, - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), (m, - FStar_Reflection_V2_Data.Q_Explicit)))) + FStarC_Reflection_V2_Data.Q_Explicit)))) else FStar_Tactics_V2_Derived.apply_lemma - (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"; "Algebra"; "CommMonoid"; "Equiv"; "__proj__EQ__item__reflexivity"]))), (eq, - FStar_Reflection_V2_Data.Q_Explicit)))) in + FStarC_Reflection_V2_Data.Q_Explicit)))) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -8053,9 +8053,9 @@ let (canon_l_r : -> Obj.magic (FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -8081,7 +8081,7 @@ let (canon_l_r : (FStar_Tactics_V2_Derived.fail_doc_at (FStar_List_Tot_Base.append [ - FStar_Pprint.doc_of_string + FStarC_Pprint.doc_of_string "Cannot unify pr with true"] msg) rng_opt) @@ -8099,34 +8099,34 @@ let (canon_l_r : emp_frame then FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; "identity_left_smt"]))), (eq, - FStar_Reflection_V2_Data.Q_Explicit)))), + FStarC_Reflection_V2_Data.Q_Explicit)))), (m, - FStar_Reflection_V2_Data.Q_Explicit)))) + FStarC_Reflection_V2_Data.Q_Explicit)))) else FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; "smt_reflexivity"]))), (eq, - FStar_Reflection_V2_Data.Q_Explicit)))) in + FStarC_Reflection_V2_Data.Q_Explicit)))) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -8155,7 +8155,7 @@ let (canon_l_r : -> let uu___37 = - FStar_Tactics_V2_Builtins.t_trefl + FStarC_Tactics_V2_Builtins.t_trefl true in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -8246,7 +8246,7 @@ let (canon_l_r : -> let uu___41 = - FStar_Tactics_V2_Builtins.revert + FStarC_Tactics_V2_Builtins.revert () in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -8320,7 +8320,7 @@ let (canon_monoid : fun pr -> fun pr_bind -> let uu___ = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [FStar_Pervasives.iota; FStar_Pervasives.zeta] in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -8442,9 +8442,9 @@ let (canon_monoid : with | ((lhs, - FStar_Reflection_V2_Data.Q_Explicit), + FStarC_Reflection_V2_Data.Q_Explicit), (rhs, - FStar_Reflection_V2_Data.Q_Explicit)) + FStarC_Reflection_V2_Data.Q_Explicit)) -> Obj.repr (canon_l_r @@ -8481,17 +8481,17 @@ let (canon' : fun pr -> fun pr_bind -> canon_monoid use_smt - (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 ["Steel.Effect.Common.vprop"]))) - (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 ["Steel"; "Effect"; "Common"; "req"]))) - (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 ["Steel"; "Effect"; "Common"; "rm"]))) pr pr_bind let rec (slterm_nbr_uvars : FStar_Tactics_NamedView.term -> @@ -8579,7 +8579,7 @@ let rec (slterm_nbr_uvars : (FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> Prims.int_zero)))) uu___1) and (slterm_nbr_uvars_argv : - FStar_Reflection_V2_Data.argv Prims.list -> + FStarC_Reflection_V2_Data.argv Prims.list -> (Prims.int, unit) FStar_Tactics_Effect.tac_repr) = fun args -> @@ -8840,7 +8840,7 @@ let (unfold_guard : unit -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) (let uu___3 = FStar_Tactics_V2_Derived.focus (fun uu___4 -> - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [FStar_Pervasives.delta_only ["Steel.Effect.Common.guard_vprop"]]) in FStar_Tactics_Effect.tac_bind @@ -8920,13 +8920,13 @@ let rec (term_is_uvar : (FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> false)))) uu___1) let rec (dismiss_all_but_last' : - FStar_Tactics_Types.goal Prims.list -> + FStarC_Tactics_Types.goal Prims.list -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun l -> match l with - | [] -> FStar_Tactics_V2_Builtins.set_goals l - | uu___::[] -> FStar_Tactics_V2_Builtins.set_goals l + | [] -> FStarC_Tactics_V2_Builtins.set_goals l + | uu___::[] -> FStarC_Tactics_V2_Builtins.set_goals l | uu___::q -> dismiss_all_but_last' q let (dismiss_all_but_last : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = @@ -8946,19 +8946,19 @@ let (dismiss_all_but_last : (fun uu___2 -> (fun uu___2 -> Obj.magic (dismiss_all_but_last' uu___2)) uu___2) let rec (dismiss_non_squash_goals' : - FStar_Tactics_Types.goal Prims.list -> - FStar_Tactics_Types.goal Prims.list -> + FStarC_Tactics_Types.goal Prims.list -> + FStarC_Tactics_Types.goal Prims.list -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun keep -> fun goals -> match goals with | [] -> - FStar_Tactics_V2_Builtins.set_goals (FStar_List_Tot_Base.rev keep) + FStarC_Tactics_V2_Builtins.set_goals (FStar_List_Tot_Base.rev keep) | hd::tl -> let uu___ = FStar_Reflection_V2_Formula.term_as_formula' - (FStar_Tactics_Types.goal_type hd) in + (FStarC_Tactics_Types.goal_type hd) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -9015,7 +9015,7 @@ let rec (term_mem : | t'::q -> Obj.magic (Obj.repr - (let uu___ = FStar_Tactics_V2_Builtins.term_eq_old te t' in + (let uu___ = FStarC_Tactics_V2_Builtins.term_eq_old te t' in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -9040,10 +9040,10 @@ let rec (term_mem : uu___1)))) uu___1 uu___ let rec (lookup_by_term_attr' : FStar_Tactics_NamedView.term -> - FStar_Reflection_Types.env -> - FStar_Reflection_Types.fv Prims.list -> - FStar_Reflection_Types.fv Prims.list -> - (FStar_Reflection_Types.fv Prims.list, unit) + FStarC_Reflection_Types.env -> + FStarC_Reflection_Types.fv Prims.list -> + FStarC_Reflection_Types.fv Prims.list -> + (FStarC_Reflection_Types.fv Prims.list, unit) FStar_Tactics_Effect.tac_repr) = fun uu___3 -> @@ -9067,7 +9067,7 @@ let rec (lookup_by_term_attr' : Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___1 -> - FStar_Reflection_V2_Builtins.inspect_fv + FStarC_Reflection_V2_Builtins.inspect_fv f)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -9089,7 +9089,7 @@ let rec (lookup_by_term_attr' : (Obj.magic uu___) (fun uu___1 -> (fun n -> - match FStar_Reflection_V2_Builtins.lookup_typ + match FStarC_Reflection_V2_Builtins.lookup_typ e n with | FStar_Pervasives_Native.None -> @@ -9100,7 +9100,7 @@ let rec (lookup_by_term_attr' : let uu___1 = let uu___2 = term_mem attr - (FStar_Reflection_V2_Builtins.sigelt_attrs + (FStarC_Reflection_V2_Builtins.sigelt_attrs se) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -9155,7 +9155,7 @@ let rec (lookup_by_term_attr' : let (lookup_by_term_attr : FStar_Tactics_NamedView.term -> FStar_Tactics_NamedView.term -> - (FStar_Reflection_Types.fv Prims.list, unit) + (FStarC_Reflection_Types.fv Prims.list, unit) FStar_Tactics_Effect.tac_repr) = fun label_attr -> @@ -9179,7 +9179,7 @@ let (lookup_by_term_attr : Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> - FStar_Reflection_V2_Builtins.lookup_attr label_attr e)) in + FStarC_Reflection_V2_Builtins.lookup_attr label_attr e)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -9199,18 +9199,18 @@ let (lookup_by_term_attr : (lookup_by_term_attr' attr e [] candidates)) uu___2))) uu___1) let rec (bring_last_goal_on_top' : - FStar_Tactics_Types.goal Prims.list -> - FStar_Tactics_Types.goal Prims.list -> + FStarC_Tactics_Types.goal Prims.list -> + FStarC_Tactics_Types.goal Prims.list -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun others -> fun goals -> match goals with | [] -> - FStar_Tactics_V2_Builtins.set_goals + FStarC_Tactics_V2_Builtins.set_goals (FStar_List_Tot_Base.rev others) | last::[] -> - FStar_Tactics_V2_Builtins.set_goals (last :: + FStarC_Tactics_V2_Builtins.set_goals (last :: (FStar_List_Tot_Base.rev others)) | a::q -> bring_last_goal_on_top' (a :: others) q let (bring_last_goal_on_top : @@ -9268,9 +9268,9 @@ let rec (extract_contexts : (Obj.repr (match tl with | (t_left, - FStar_Reflection_V2_Data.Q_Explicit):: + FStarC_Reflection_V2_Data.Q_Explicit):: (t_right, - FStar_Reflection_V2_Data.Q_Explicit)::[] + FStarC_Reflection_V2_Data.Q_Explicit)::[] -> Obj.repr (let uu___2 = @@ -9633,8 +9633,8 @@ let rec (extract_contexts : Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___6 -> - FStar_Reflection_V2_Builtins.implode_qn - (FStar_Reflection_V2_Builtins.inspect_fv + FStarC_Reflection_V2_Builtins.implode_qn + (FStarC_Reflection_V2_Builtins.inspect_fv hd_fv1))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -9663,7 +9663,7 @@ let rec (extract_contexts : uu___7 -> FStar_Tactics_NamedView.pack (FStar_Tactics_NamedView.Tv_Const - (FStar_Reflection_V2_Data.C_String + (FStarC_Reflection_V2_Data.C_String hd_s')))) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -9698,7 +9698,7 @@ let rec (extract_contexts : attr [ (hd_s, - FStar_Reflection_V2_Data.Q_Explicit)]))) + FStarC_Reflection_V2_Data.Q_Explicit)]))) uu___7))) uu___6)))) uu___5) in FStar_Tactics_Effect.tac_bind @@ -9768,21 +9768,21 @@ let (extract_cbs_contexts : unit) FStar_Tactics_Effect.tac_repr) = extract_contexts - (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 ["Steel"; "Effect"; "Common"; "can_be_split_congr_l"]))) - (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 ["Steel"; "Effect"; "Common"; "can_be_split_congr_r"]))) - (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 ["Steel"; "Effect"; "Common"; "solve_can_be_split_lookup"]))) - (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 ["Steel"; "Effect"; "Common"; "solve_can_be_split_for"]))) let (open_existentials : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = @@ -9804,10 +9804,10 @@ let (open_existentials : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) let uu___2 = if Prims.uu___is_Nil - (FStar_Reflection_V2_Builtins.lookup_attr - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.lookup_attr + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Steel"; "Effect"; "Common"; @@ -9835,7 +9835,7 @@ let (open_existentials : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) (fun uu___3 -> (fun uu___3 -> let uu___4 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [FStar_Pervasives.delta_attr ["Steel.Effect.Common.__reduce__"]] in Obj.magic @@ -9908,7 +9908,7 @@ let (open_existentials : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) match uu___8 with | (uu___9, (t1, - FStar_Reflection_V2_Data.Q_Explicit)::[]) + FStarC_Reflection_V2_Data.Q_Explicit)::[]) -> Obj.magic (Obj.repr @@ -9962,7 +9962,7 @@ let (open_existentials : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) | uu___12:: (rhs, - FStar_Reflection_V2_Data.Q_Explicit)::[] + FStarC_Reflection_V2_Data.Q_Explicit)::[] -> Obj.repr (let uu___13 @@ -10011,9 +10011,9 @@ let (open_existentials : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) (let uu___15 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -10190,7 +10190,7 @@ let (try_open_existentials : (FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> false))) uu___2)) let rec (solve_can_be_split : - FStar_Reflection_V2_Data.argv Prims.list -> + FStarC_Reflection_V2_Data.argv Prims.list -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -10283,9 +10283,9 @@ let rec (solve_can_be_split : let uu___9 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -10351,9 +10351,9 @@ let rec (solve_can_be_split : uu___13 -> FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -10370,9 +10370,9 @@ let rec (solve_can_be_split : Obj.magic (Obj.repr (FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -10411,7 +10411,7 @@ let rec (solve_can_be_split : -> let uu___16 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [ FStar_Pervasives.delta_only ["FStar.Algebra.CommMonoid.Equiv.__proj__CM__item__unit"; @@ -10455,16 +10455,16 @@ let rec (solve_can_be_split : Obj.magic (canon' false - (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 ["Steel"; "Effect"; "Common"; "true_p"]))) - (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 ["Steel"; "Effect"; "Common"; @@ -10554,7 +10554,7 @@ let rec (solve_can_be_split : (FStar_Tactics_Effect.lift_div_tac (fun uu___1 -> false)))) uu___ let (solve_can_be_split_dep : - FStar_Reflection_V2_Data.argv Prims.list -> + FStarC_Reflection_V2_Data.argv Prims.list -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -10667,9 +10667,9 @@ let (solve_can_be_split_dep : let uu___10 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -10739,9 +10739,9 @@ let (solve_can_be_split_dep : = FStar_Tactics_V2_Derived.unify p - (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 ["Steel"; "Effect"; "Common"; @@ -10812,9 +10812,9 @@ let (solve_can_be_split_dep : -> Obj.magic (FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -10836,9 +10836,9 @@ let (solve_can_be_split_dep : Obj.magic (Obj.repr (FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -10923,7 +10923,7 @@ let (solve_can_be_split_dep : -> let uu___19 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [ FStar_Pervasives.delta_only ["FStar.Algebra.CommMonoid.Equiv.__proj__CM__item__unit"; @@ -11009,7 +11009,7 @@ let (solve_can_be_split_dep : (FStar_Tactics_V2_Derived.fail "ill-formed can_be_split_dep"))) uu___ let (solve_can_be_split_forall : - FStar_Reflection_V2_Data.argv Prims.list -> + FStarC_Reflection_V2_Data.argv Prims.list -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -11150,9 +11150,9 @@ let (solve_can_be_split_forall : let uu___11 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -11219,9 +11219,9 @@ let (solve_can_be_split_forall : uu___15 -> FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -11241,9 +11241,9 @@ let (solve_can_be_split_forall : Obj.magic (Obj.repr (FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -11328,7 +11328,7 @@ let (solve_can_be_split_forall : -> let uu___20 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [ FStar_Pervasives.delta_only ["FStar.Algebra.CommMonoid.Equiv.__proj__CM__item__unit"; @@ -11372,16 +11372,16 @@ let (solve_can_be_split_forall : Obj.magic (canon' false - (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 ["Steel"; "Effect"; "Common"; "true_p"]))) - (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 ["Steel"; "Effect"; "Common"; @@ -11433,24 +11433,24 @@ let (extract_cbs_forall_dep_contexts : unit) FStar_Tactics_Effect.tac_repr) = extract_contexts - (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 ["Steel"; "Effect"; "Common"; "can_be_split_forall_dep_congr_l"]))) - (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 ["Steel"; "Effect"; "Common"; "can_be_split_forall_dep_congr_r"]))) - (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 ["Steel"; "Effect"; "Common"; "solve_can_be_split_forall_dep_lookup"]))) - (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 ["Steel"; "Effect"; "Common"; @@ -11475,10 +11475,10 @@ let (open_existentials_forall_dep : let uu___2 = if Prims.uu___is_Nil - (FStar_Reflection_V2_Builtins.lookup_attr - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.lookup_attr + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Steel"; "Effect"; "Common"; @@ -11506,7 +11506,7 @@ let (open_existentials_forall_dep : (fun uu___3 -> (fun uu___3 -> let uu___4 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [FStar_Pervasives.delta_only ["FStar.Algebra.CommMonoid.Equiv.__proj__CM__item__unit"; "FStar.Algebra.CommMonoid.Equiv.__proj__CM__item__mult"; @@ -11582,7 +11582,7 @@ let (open_existentials_forall_dep : match uu___8 with | (uu___9, (t1, - FStar_Reflection_V2_Data.Q_Explicit)::[]) + FStarC_Reflection_V2_Data.Q_Explicit)::[]) -> Obj.magic (Obj.repr @@ -11636,7 +11636,7 @@ let (open_existentials_forall_dep : | uu___12::uu___13:: (rhs, - FStar_Reflection_V2_Data.Q_Explicit)::[] + FStarC_Reflection_V2_Data.Q_Explicit)::[] -> Obj.repr (let uu___14 @@ -11722,9 +11722,9 @@ let (open_existentials_forall_dep : (let uu___19 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -11939,7 +11939,7 @@ let (open_existentials_forall_dep : then Obj.magic (Obj.repr - (FStar_Tactics_V2_Builtins.norm + (FStarC_Tactics_V2_Builtins.norm [])) else Obj.magic @@ -11965,9 +11965,9 @@ let (open_existentials_forall_dep : uu___15)) | (uu___12, - FStar_Reflection_V2_Data.Q_Implicit)::uu___13::uu___14:: + FStarC_Reflection_V2_Data.Q_Implicit)::uu___13::uu___14:: (rhs, - FStar_Reflection_V2_Data.Q_Explicit)::[] + FStarC_Reflection_V2_Data.Q_Explicit)::[] -> Obj.repr (let uu___15 @@ -12053,9 +12053,9 @@ let (open_existentials_forall_dep : (let uu___20 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -12270,7 +12270,7 @@ let (open_existentials_forall_dep : then Obj.magic (Obj.repr - (FStar_Tactics_V2_Builtins.norm + (FStarC_Tactics_V2_Builtins.norm [])) else Obj.magic @@ -12343,7 +12343,7 @@ let (try_open_existentials_forall_dep : (FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> false))) uu___2)) let rec (solve_can_be_split_forall_dep : - FStar_Reflection_V2_Data.argv Prims.list -> + FStarC_Reflection_V2_Data.argv Prims.list -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -12436,7 +12436,7 @@ let rec (solve_can_be_split_forall_dep : -> let uu___11 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [] in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -12503,7 +12503,7 @@ let rec (solve_can_be_split_forall_dep : [ ((FStar_Tactics_V2_SyntaxCoercions.binding_to_term x), - FStar_Reflection_V2_Data.Q_Explicit)])) in + FStarC_Reflection_V2_Data.Q_Explicit)])) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -12561,9 +12561,9 @@ let rec (solve_can_be_split_forall_dep : let uu___16 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -12678,9 +12678,9 @@ let rec (solve_can_be_split_forall_dep : = FStar_Tactics_V2_Derived.unify pr2 - (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 ["Steel"; "Effect"; "Common"; @@ -12751,9 +12751,9 @@ let rec (solve_can_be_split_forall_dep : -> Obj.magic (FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -12775,9 +12775,9 @@ let rec (solve_can_be_split_forall_dep : Obj.magic (Obj.repr (FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -12862,7 +12862,7 @@ let rec (solve_can_be_split_forall_dep : -> let uu___26 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [ FStar_Pervasives.delta_only ["FStar.Algebra.CommMonoid.Equiv.__proj__CM__item__unit"; @@ -13022,7 +13022,7 @@ let rec (solve_can_be_split_forall_dep : "Ill-formed can_be_split_forall_dep, should not happen"))) uu___ let (solve_equiv_forall : - FStar_Reflection_V2_Data.argv Prims.list -> + FStarC_Reflection_V2_Data.argv Prims.list -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -13108,9 +13108,9 @@ let (solve_equiv_forall : (fun uu___8 -> let uu___9 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -13277,9 +13277,9 @@ let (solve_equiv_forall : uu___18 -> FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -13299,9 +13299,9 @@ let (solve_equiv_forall : Obj.magic (Obj.repr (FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -13386,7 +13386,7 @@ let (solve_equiv_forall : -> let uu___23 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [ FStar_Pervasives.delta_only ["FStar.Algebra.CommMonoid.Equiv.__proj__CM__item__unit"; @@ -13430,16 +13430,16 @@ let (solve_equiv_forall : Obj.magic (canon' false - (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 ["Steel"; "Effect"; "Common"; "true_p"]))) - (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 ["Steel"; "Effect"; "Common"; @@ -13485,7 +13485,7 @@ let (solve_equiv_forall : (FStar_Tactics_V2_Derived.fail "Ill-formed equiv_forall, should not happen"))) uu___ let (solve_equiv : - FStar_Reflection_V2_Data.argv Prims.list -> + FStarC_Reflection_V2_Data.argv Prims.list -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -13573,9 +13573,9 @@ let (solve_equiv : (fun uu___8 -> FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -13594,9 +13594,9 @@ let (solve_equiv : Obj.magic (Obj.repr (FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -13681,7 +13681,7 @@ let (solve_equiv : -> let uu___13 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [ FStar_Pervasives.delta_only ["FStar.Algebra.CommMonoid.Equiv.__proj__CM__item__unit"; @@ -13725,16 +13725,16 @@ let (solve_equiv : Obj.magic (canon' false - (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 ["Steel"; "Effect"; "Common"; "true_p"]))) - (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 ["Steel"; "Effect"; "Common"; @@ -13776,7 +13776,7 @@ let (solve_equiv : (FStar_Tactics_V2_Derived.fail "Ill-formed equiv, should not happen"))) uu___ let (solve_can_be_split_post : - FStar_Reflection_V2_Data.argv Prims.list -> + FStarC_Reflection_V2_Data.argv Prims.list -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -13861,7 +13861,7 @@ let (solve_can_be_split_post : FStar_Tactics_V2_Derived.focus (fun uu___9 -> let uu___10 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [] in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -13976,9 +13976,9 @@ let (solve_can_be_split_post : let uu___15 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -14147,9 +14147,9 @@ let (solve_can_be_split_post : uu___24 -> FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -14169,9 +14169,9 @@ let (solve_can_be_split_post : Obj.magic (Obj.repr (FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -14256,7 +14256,7 @@ let (solve_can_be_split_post : -> let uu___29 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [ FStar_Pervasives.delta_only ["FStar.Algebra.CommMonoid.Equiv.__proj__CM__item__unit"; @@ -14300,16 +14300,16 @@ let (solve_can_be_split_post : Obj.magic (canon' false - (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 ["Steel"; "Effect"; "Common"; "true_p"]))) - (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 ["Steel"; "Effect"; "Common"; @@ -14443,7 +14443,7 @@ let rec (solve_indirection_eqs : (Obj.repr (let uu___4 = FStar_Reflection_V2_Formula.term_as_formula' - (FStar_Tactics_Types.goal_type hd) in + (FStarC_Tactics_Types.goal_type hd) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -14594,7 +14594,7 @@ let rec (solve_all_eqs : (Obj.repr (let uu___4 = FStar_Reflection_V2_Formula.term_as_formula' - (FStar_Tactics_Types.goal_type hd) in + (FStarC_Tactics_Types.goal_type hd) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -14717,7 +14717,7 @@ let rec (solve_return_eqs : (Obj.repr (let uu___4 = FStar_Reflection_V2_Formula.term_as_formula' - (FStar_Tactics_Types.goal_type hd) in + (FStarC_Tactics_Types.goal_type hd) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -14908,9 +14908,9 @@ let (goal_to_equiv : Obj.magic (Obj.repr (FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -14981,9 +14981,9 @@ let (goal_to_equiv : uu___8 -> Obj.magic (FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -15001,9 +15001,9 @@ let (goal_to_equiv : (let uu___8 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -15074,9 +15074,9 @@ let (goal_to_equiv : (let uu___9 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -15295,7 +15295,7 @@ let rec term_dict_assoc : (fun uu___1 -> (fun q' -> let uu___1 = - FStar_Tactics_V2_Builtins.term_eq_old k key in + FStarC_Tactics_V2_Builtins.term_eq_old k key in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -15326,7 +15326,7 @@ let (solve_or_delay : (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun dict -> - let uu___ = FStar_Tactics_V2_Builtins.norm [] in + let uu___ = FStarC_Tactics_V2_Builtins.norm [] in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -15563,7 +15563,7 @@ let (solve_or_delay : = let uu___17 = - FStar_Tactics_V2_Builtins.free_uvars + FStarC_Tactics_V2_Builtins.free_uvars t in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -15702,7 +15702,7 @@ let (solve_or_delay : (Obj.repr (let uu___4 = let uu___5 = - FStar_Tactics_V2_Builtins.free_uvars l in + FStarC_Tactics_V2_Builtins.free_uvars l in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -15748,7 +15748,7 @@ let (solve_or_delay : (fun lnbr -> let uu___5 = let uu___6 = - FStar_Tactics_V2_Builtins.free_uvars + FStarC_Tactics_V2_Builtins.free_uvars r in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -15902,7 +15902,7 @@ let rec (vprop_term_uvars : (FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> [])))) uu___1) and (argv_uvars : - FStar_Reflection_V2_Data.argv Prims.list -> + FStarC_Reflection_V2_Data.argv Prims.list -> (Prims.int Prims.list, unit) FStar_Tactics_Effect.tac_repr) = fun args -> @@ -16022,7 +16022,7 @@ let (goal_term_uvars : Obj.magic (Obj.repr (match tl with - | (tl0, FStar_Reflection_V2_Data.Q_Explicit)::[] -> + | (tl0, FStarC_Reflection_V2_Data.Q_Explicit)::[] -> let uu___2 = FStar_Tactics_V2_SyntaxHelpers.collect_app tl0 in FStar_Tactics_Effect.tac_bind @@ -16074,7 +16074,7 @@ let (goal_term_uvars : uu___3) | uu___2 -> let uu___3 = - FStar_Tactics_V2_Builtins.dump + FStarC_Tactics_V2_Builtins.dump "ill-formed squash" in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -16136,7 +16136,7 @@ let rec (sorted_lists_intersect : else sorted_lists_intersect l1 q2) let rec (compute_guarded_uvars1 : Prims.int Prims.list -> - FStar_Tactics_Types.goal Prims.list -> + FStarC_Tactics_Types.goal Prims.list -> (Prims.int Prims.list, unit) FStar_Tactics_Effect.tac_repr) = fun uu___1 -> @@ -16154,7 +16154,7 @@ let rec (compute_guarded_uvars1 : (let uu___ = Obj.magic (FStar_Tactics_Effect.lift_div_tac - (fun uu___1 -> FStar_Tactics_Types.goal_type a)) in + (fun uu___1 -> FStarC_Tactics_Types.goal_type a)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -16250,7 +16250,7 @@ let rec (compute_guarded_uvars1 : uu___2))) uu___1)))) uu___1 uu___ let rec (compute_guarded_uvars2 : Prims.int Prims.list -> - FStar_Tactics_Types.goal Prims.list -> + FStarC_Tactics_Types.goal Prims.list -> (Prims.int Prims.list, unit) FStar_Tactics_Effect.tac_repr) = fun uu___1 -> @@ -16268,7 +16268,7 @@ let rec (compute_guarded_uvars2 : (let uu___ = Obj.magic (FStar_Tactics_Effect.lift_div_tac - (fun uu___1 -> FStar_Tactics_Types.goal_type a)) in + (fun uu___1 -> FStarC_Tactics_Types.goal_type a)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -16341,7 +16341,7 @@ let rec (compute_guarded_uvars2 : uu___2))) uu___1)))) uu___1 uu___ let rec (compute_guarded_uvars3 : Prims.int Prims.list -> - FStar_Tactics_Types.goal Prims.list -> + FStarC_Tactics_Types.goal Prims.list -> (Prims.int Prims.list, unit) FStar_Tactics_Effect.tac_repr) = fun accu -> @@ -16453,7 +16453,7 @@ let rec (pick_next : Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___5 -> - FStar_Tactics_Types.goal_type + FStarC_Tactics_Types.goal_type a)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -16647,7 +16647,7 @@ let rec (resolve_tac : | g -> Obj.magic (Obj.repr - (let uu___2 = FStar_Tactics_V2_Builtins.norm [] in + (let uu___2 = FStarC_Tactics_V2_Builtins.norm [] in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -16928,8 +16928,8 @@ let (typ_contains_req_ens : "Prims.pure_pre"; "Prims.pure_post"])) let rec (filter_goals : - FStar_Tactics_Types.goal Prims.list -> - ((FStar_Tactics_Types.goal Prims.list * FStar_Tactics_Types.goal + FStarC_Tactics_Types.goal Prims.list -> + ((FStarC_Tactics_Types.goal Prims.list * FStarC_Tactics_Types.goal Prims.list), unit) FStar_Tactics_Effect.tac_repr) = @@ -16962,7 +16962,7 @@ let rec (filter_goals : | (slgoals, loggoals) -> let uu___2 = FStar_Reflection_V2_Formula.term_as_formula' - (FStar_Tactics_Types.goal_type hd) in + (FStarC_Tactics_Types.goal_type hd) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -17083,9 +17083,9 @@ let (is_true : Obj.magic (Obj.repr (FStar_Tactics_V2_Derived.exact - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_Unit)))) + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_Unit)))) | uu___3 -> Obj.magic (Obj.repr @@ -17215,7 +17215,7 @@ let rec (solve_maybe_emps : "Steel.Effect.Common.maybe_emp" then let uu___10 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [ FStar_Pervasives.delta_only ["Steel.Effect.Common.maybe_emp"]; @@ -17292,7 +17292,7 @@ let rec (solve_maybe_emps : then (let uu___11 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [ FStar_Pervasives.delta_only ["Steel.Effect.Common.maybe_emp_dep"]; @@ -17496,7 +17496,7 @@ let rec (norm_return_pre : Obj.magic (Obj.repr (let uu___5 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [FStar_Pervasives.delta_only ["Steel.Effect.Common.return_pre"]] in FStar_Tactics_Effect.tac_bind @@ -17549,14 +17549,14 @@ let rec (norm_return_pre : uu___8))) uu___6)))) uu___2)))) uu___ let (print_goal : - FStar_Tactics_Types.goal -> + FStarC_Tactics_Types.goal -> (Prims.string, unit) FStar_Tactics_Effect.tac_repr) = fun g -> let uu___ = Obj.magic (FStar_Tactics_Effect.lift_div_tac - (fun uu___1 -> FStar_Tactics_Types.goal_type g)) in + (fun uu___1 -> FStarC_Tactics_Types.goal_type g)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -17569,10 +17569,10 @@ let (print_goal : (Prims.of_int (3068)) (Prims.of_int (2)) (Prims.of_int (3068)) (Prims.of_int (18))))) (Obj.magic uu___) (fun uu___1 -> - (fun t -> Obj.magic (FStar_Tactics_V2_Builtins.term_to_string t)) + (fun t -> Obj.magic (FStarC_Tactics_V2_Builtins.term_to_string t)) uu___1) let (print_goals : - FStar_Tactics_Types.goal Prims.list -> + FStarC_Tactics_Types.goal Prims.list -> (Prims.string, unit) FStar_Tactics_Effect.tac_repr) = fun g -> @@ -17627,7 +17627,7 @@ let (init_resolve_tac' : (fun uu___1 -> match uu___1 with | (slgs, loggs) -> - let uu___2 = FStar_Tactics_V2_Builtins.set_goals slgs in + let uu___2 = FStarC_Tactics_V2_Builtins.set_goals slgs in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -17975,7 +17975,7 @@ let (init_resolve_tac' : -> let uu___14 = - FStar_Tactics_V2_Builtins.set_goals + FStarC_Tactics_V2_Builtins.set_goals loggs in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -18014,7 +18014,7 @@ let (init_resolve_tac' : let (init_resolve_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> init_resolve_tac' [] let _ = - FStar_Tactics_Native.register_tactic "Steel.Effect.Common.init_resolve_tac" + FStarC_Tactics_Native.register_tactic "Steel.Effect.Common.init_resolve_tac" (Prims.of_int (2)) (fun psc -> fun ncb -> @@ -18022,17 +18022,17 @@ let _ = fun args -> FStar_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.Effect.Common.init_resolve_tac (plugin)" - (FStar_Tactics_Native.from_tactic_1 init_resolve_tac) - FStar_Syntax_Embeddings.e_unit FStar_Syntax_Embeddings.e_unit + (FStarC_Tactics_Native.from_tactic_1 init_resolve_tac) + FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit psc ncb us args) let (selector_tactic : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> let uu___1 = FStar_Tactics_V2_Derived.apply - (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 ["Steel"; "Effect"; "Common"; "squash_and"]))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -18049,9 +18049,9 @@ let (selector_tactic : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = (fun uu___2 -> let uu___3 = FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -18091,7 +18091,7 @@ let (selector_tactic : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = (fun uu___6 -> (fun uu___6 -> let uu___7 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [FStar_Pervasives.delta_only ["FStar.Algebra.CommMonoid.Equiv.__proj__CM__item__unit"; "FStar.Algebra.CommMonoid.Equiv.__proj__CM__item__mult"; @@ -18128,16 +18128,16 @@ let (selector_tactic : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = (fun uu___8 -> Obj.magic (canon' false - (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 ["Steel"; "Effect"; "Common"; "true_p"]))) - (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 ["Steel"; "Effect"; "Common"; @@ -18145,7 +18145,7 @@ let (selector_tactic : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = uu___8))) uu___6))) uu___4))) uu___2) let _ = - FStar_Tactics_Native.register_tactic "Steel.Effect.Common.selector_tactic" + FStarC_Tactics_Native.register_tactic "Steel.Effect.Common.selector_tactic" (Prims.of_int (2)) (fun psc -> fun ncb -> @@ -18153,8 +18153,8 @@ let _ = fun args -> FStar_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.Effect.Common.selector_tactic (plugin)" - (FStar_Tactics_Native.from_tactic_1 selector_tactic) - FStar_Syntax_Embeddings.e_unit FStar_Syntax_Embeddings.e_unit + (FStarC_Tactics_Native.from_tactic_1 selector_tactic) + FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit psc ncb us args) let (ite_soundness_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = @@ -18189,7 +18189,7 @@ let (ite_soundness_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) (fun uu___2 -> match uu___2 with | (slgs, loggoals) -> - let uu___3 = FStar_Tactics_V2_Builtins.set_goals slgs in + let uu___3 = FStarC_Tactics_V2_Builtins.set_goals slgs in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -18287,7 +18287,7 @@ let (ite_soundness_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) (Obj.repr (let uu___11 = - FStar_Tactics_V2_Builtins.set_goals + FStarC_Tactics_V2_Builtins.set_goals tl in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -18321,9 +18321,9 @@ let (ite_soundness_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) uu___14 -> FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -18366,9 +18366,9 @@ let (ite_soundness_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) uu___17 -> FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -18377,9 +18377,9 @@ let (ite_soundness_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) uu___17 -> FStar_Tactics_V2_Derived.apply_lemma - (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 ["Steel"; "Effect"; "Common"; @@ -18443,7 +18443,7 @@ let (ite_soundness_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) -> let uu___19 = - FStar_Tactics_V2_Builtins.set_goals + FStarC_Tactics_V2_Builtins.set_goals loggoals in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -18503,7 +18503,7 @@ let (ite_soundness_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) -> let uu___23 = - FStar_Tactics_V2_Builtins.set_goals + FStarC_Tactics_V2_Builtins.set_goals [subcomp_goal] in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -18533,7 +18533,7 @@ let (ite_soundness_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) -> let uu___25 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [] in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -18576,10 +18576,10 @@ let (ite_soundness_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) uu___6))) uu___4))) uu___2) let (vc_norm : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> - FStar_Tactics_V2_Builtins.with_compat_pre_core Prims.int_zero + FStarC_Tactics_V2_Builtins.with_compat_pre_core Prims.int_zero (fun uu___1 -> let uu___2 = - FStar_Tactics_V2_Builtins.norm + FStarC_Tactics_V2_Builtins.norm [FStar_Pervasives.delta_attr ["Steel.Effect.Common.__steel_reduce__"; "Steel.Effect.Common.__inner_steel_reduce__"]; diff --git a/src/ocaml/plugin/generated/Steel_ST_GenElim1_Base.ml b/src/ocaml/plugin/generated/Steel_ST_GenElim1_Base.ml index de0f9ea9c..c11b2ae58 100644 --- a/src/ocaml/plugin/generated/Steel_ST_GenElim1_Base.ml +++ b/src/ocaml/plugin/generated/Steel_ST_GenElim1_Base.ml @@ -1,11 +1,11 @@ open Prims -let (is_fvar : FStar_Reflection_Types.term -> Prims.string -> Prims.bool) = +let (is_fvar : FStarC_Reflection_Types.term -> Prims.string -> Prims.bool) = FStar_Reflection_V1_Derived.is_fvar let (is_any_fvar : - FStar_Reflection_Types.term -> Prims.string Prims.list -> Prims.bool) = + FStarC_Reflection_Types.term -> Prims.string Prims.list -> Prims.bool) = FStar_Reflection_V1_Derived.is_any_fvar let (is_squash : - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -15,7 +15,7 @@ let (is_squash : (fun uu___ -> is_any_fvar t ["Prims.squash"; "Prims.auto_squash"]))) uu___ let (is_star_or_vstar : - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -27,8 +27,8 @@ let (is_star_or_vstar : ["Steel.Effect.Common.star"; "Steel.Effect.Common.VStar"]))) uu___ let rec (term_has_head : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun t -> @@ -49,7 +49,7 @@ let rec (term_has_head : (fun uu___1 -> match uu___1 with | (hd, tl) -> - let uu___2 = FStar_Tactics_V1_Builtins.term_eq_old hd head in + let uu___2 = FStarC_Tactics_V1_Builtins.term_eq_old hd head in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -103,9 +103,9 @@ let rec (term_has_head : (Obj.repr (match tl with | (tg, - FStar_Reflection_V1_Data.Q_Explicit):: + FStarC_Reflection_V1_Data.Q_Explicit):: (td, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.repr (let uu___7 = @@ -161,16 +161,16 @@ let rec (term_has_head : (fun uu___8 -> false)))) uu___6)))) uu___3))) uu___1) let rec (solve_gen_unit_elim : - FStar_Reflection_Types.term -> - (FStar_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) + FStarC_Reflection_Types.term -> + (FStarC_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) = fun tl' -> let uu___ = let uu___1 = term_has_head tl' - (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 ["Steel"; "ST"; "Util"; "pure"]))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -206,15 +206,15 @@ let rec (solve_gen_unit_elim : (FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; "Base"; "GUEId"]))) - [(tl', FStar_Reflection_V1_Data.Q_Explicit)]))) + [(tl', FStarC_Reflection_V1_Data.Q_Explicit)]))) else Obj.magic (Obj.repr @@ -245,9 +245,9 @@ let rec (solve_gen_unit_elim : (FStar_Tactics_Effect.lift_div_tac (fun uu___5 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; @@ -283,9 +283,9 @@ let rec (solve_gen_unit_elim : (Obj.repr (match tl with | (t1, - FStar_Reflection_V1_Data.Q_Explicit):: + FStarC_Reflection_V1_Data.Q_Explicit):: (t2, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.repr (let uu___8 = @@ -347,9 +347,9 @@ let rec (solve_gen_unit_elim : uu___10 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; @@ -357,9 +357,9 @@ let rec (solve_gen_unit_elim : "GUEStar"]))) [ (t1', - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (t2', - FStar_Reflection_V1_Data.Q_Explicit)])))) + FStarC_Reflection_V1_Data.Q_Explicit)])))) uu___9)) | uu___8 -> Obj.repr @@ -371,23 +371,23 @@ let rec (solve_gen_unit_elim : (FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; "Base"; "GUEId"]))) [(tl', - FStar_Reflection_V1_Data.Q_Explicit)])))) + FStarC_Reflection_V1_Data.Q_Explicit)])))) uu___7)))) uu___4)))) uu___1) let (abstr_has_exists : - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun t -> - let uu___ = FStar_Tactics_V1_Builtins.inspect t in + let uu___ = FStarC_Tactics_V1_Builtins.inspect t in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -402,13 +402,13 @@ let (abstr_has_exists : (fun uu___1 -> (fun uu___1 -> match uu___1 with - | FStar_Reflection_V1_Data.Tv_Abs (uu___2, body) -> + | FStarC_Reflection_V1_Data.Tv_Abs (uu___2, body) -> Obj.magic (Obj.repr (term_has_head body - (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 ["Steel"; "ST"; "Util"; "exists_"]))))) | uu___2 -> Obj.magic @@ -416,18 +416,18 @@ let (abstr_has_exists : (FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> false)))) uu___1) let rec (get_universe : - FStar_Reflection_Types.universe -> + FStarC_Reflection_Types.universe -> (Prims.nat, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> (fun u -> - match FStar_Reflection_V1_Builtins.inspect_universe u with - | FStar_Reflection_V1_Data.Uv_Zero -> + match FStarC_Reflection_V1_Builtins.inspect_universe u with + | FStarC_Reflection_V1_Data.Uv_Zero -> Obj.magic (Obj.repr (FStar_Tactics_Effect.lift_div_tac (fun uu___ -> Prims.int_zero))) - | FStar_Reflection_V1_Data.Uv_Succ u1 -> + | FStarC_Reflection_V1_Data.Uv_Succ u1 -> Obj.magic (Obj.repr (let uu___ = get_universe u1 in @@ -452,16 +452,16 @@ let rec (get_universe : (FStar_Tactics_V1_Derived.fail "get_universe: not an universe instantiation"))) uu___ let rec (solve_gen_elim : - FStar_Reflection_Types.term -> - (FStar_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) + FStarC_Reflection_Types.term -> + (FStarC_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) = fun tl' -> let uu___ = let uu___1 = term_has_head tl' - (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 ["Steel"; "ST"; "Util"; "exists_"]))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -510,15 +510,15 @@ let rec (solve_gen_elim : FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; "Base"; "GEUnit"]))) - [(t', FStar_Reflection_V1_Data.Q_Explicit)]))) + [(t', FStarC_Reflection_V1_Data.Q_Explicit)]))) else (let uu___3 = FStar_Tactics_V1_SyntaxHelpers.collect_app tl' in Obj.magic @@ -544,7 +544,7 @@ let rec (solve_gen_elim : match FStar_Reflection_V1_Derived.inspect_ln_unascribe hd with - | FStar_Reflection_V1_Data.Tv_UInst + | FStarC_Reflection_V1_Data.Tv_UInst (uu___6, u::uu___7) -> Obj.magic (Obj.repr (get_universe u)) | uu___6 -> @@ -576,18 +576,18 @@ let rec (solve_gen_elim : let uu___6 = match lbody with | (ty, - FStar_Reflection_V1_Data.Q_Implicit):: + FStarC_Reflection_V1_Data.Q_Implicit):: (body, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___7 -> ([(ty, - FStar_Reflection_V1_Data.Q_Implicit)], + FStarC_Reflection_V1_Data.Q_Implicit)], body))) | (body, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.magic (FStar_Tactics_Effect.lift_div_tac @@ -621,7 +621,7 @@ let rec (solve_gen_elim : match uu___7 with | (ty, body) -> let uu___8 = - FStar_Tactics_V1_Builtins.inspect + FStarC_Tactics_V1_Builtins.inspect body in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -649,7 +649,7 @@ let rec (solve_gen_elim : match uu___9 with | - FStar_Reflection_V1_Data.Tv_Abs + FStarC_Reflection_V1_Data.Tv_Abs (b, abody) -> Obj.magic @@ -660,9 +660,9 @@ let rec (solve_gen_elim : = term_has_head abody - (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 ["Steel"; "ST"; "Util"; @@ -789,7 +789,7 @@ let rec (solve_gen_elim : uu___18 -> (uu___17, - FStar_Reflection_V1_Data.Q_Explicit))) in + FStarC_Reflection_V1_Data.Q_Explicit))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -882,9 +882,9 @@ let rec (solve_gen_elim : uu___16 = Prims.int_zero -> - 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 ["Steel"; "ST"; "GenElim1"; @@ -893,9 +893,9 @@ let rec (solve_gen_elim : | uu___16 -> - 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 ["Steel"; "ST"; "GenElim1"; @@ -970,7 +970,7 @@ let rec (solve_gen_elim : uu___19 -> (uu___18, - FStar_Reflection_V1_Data.Q_Explicit))) in + FStarC_Reflection_V1_Data.Q_Explicit))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -1063,9 +1063,9 @@ let rec (solve_gen_elim : uu___17 = Prims.int_zero -> - 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 ["Steel"; "ST"; "GenElim1"; @@ -1074,9 +1074,9 @@ let rec (solve_gen_elim : | uu___17 -> - 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 ["Steel"; "ST"; "GenElim1"; @@ -1103,9 +1103,9 @@ let rec (solve_gen_elim : uu___12 = Prims.int_zero -> - 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 ["Steel"; "ST"; "GenElim1"; @@ -1114,9 +1114,9 @@ let rec (solve_gen_elim : | uu___12 -> - 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 ["Steel"; "ST"; "GenElim1"; @@ -1154,16 +1154,16 @@ let rec (solve_gen_elim : (Obj.repr (match lbody with | (tl, - FStar_Reflection_V1_Data.Q_Explicit):: + FStarC_Reflection_V1_Data.Q_Explicit):: (tr, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.repr (let uu___8 = term_has_head tl - (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 ["Steel"; "ST"; "Util"; @@ -1225,9 +1225,9 @@ let rec (solve_gen_elim : = term_has_head tr - (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 ["Steel"; "ST"; "Util"; @@ -1292,9 +1292,9 @@ let rec (solve_gen_elim : uu___14 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; @@ -1302,9 +1302,9 @@ let rec (solve_gen_elim : "GEStar"]))) [ (tl'1, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (tr', - FStar_Reflection_V1_Data.Q_Explicit)]))) + FStarC_Reflection_V1_Data.Q_Explicit)]))) else (let uu___14 = @@ -1337,9 +1337,9 @@ let rec (solve_gen_elim : uu___15 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; @@ -1347,9 +1347,9 @@ let rec (solve_gen_elim : "GEStarL"]))) [ (tl'1, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (tr', - FStar_Reflection_V1_Data.Q_Explicit)]))))) + FStarC_Reflection_V1_Data.Q_Explicit)]))))) uu___12))) uu___11)) else @@ -1413,9 +1413,9 @@ let rec (solve_gen_elim : uu___13 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; @@ -1423,9 +1423,9 @@ let rec (solve_gen_elim : "GEStarR"]))) [ (tl'1, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (tr', - FStar_Reflection_V1_Data.Q_Explicit)])))) + FStarC_Reflection_V1_Data.Q_Explicit)])))) uu___12)))) uu___9)) | uu___8 -> @@ -1438,34 +1438,34 @@ let rec (solve_gen_elim : (FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; "Base"; "GEUnit"]))) [((FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; "Base"; "GUEId"]))) lbody), - FStar_Reflection_V1_Data.Q_Explicit)])))) + FStarC_Reflection_V1_Data.Q_Explicit)])))) uu___7)))) uu___4)))) uu___1) let rec (solve_gen_elim_nondep' : Prims.nat -> - (FStar_Reflection_Types.term * FStar_Reflection_Types.binder) Prims.list + (FStarC_Reflection_Types.term * FStarC_Reflection_Types.binder) Prims.list -> - 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_Pervasives_Native.option, + FStarC_Reflection_Types.term -> + ((FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * + FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * + FStarC_Reflection_Types.term) FStar_Pervasives_Native.option, unit) FStar_Tactics_Effect.tac_repr) = fun uu___2 -> @@ -1508,9 +1508,9 @@ let rec (solve_gen_elim_nondep' : then (match tl with | (v, - FStar_Reflection_V1_Data.Q_Explicit):: + FStarC_Reflection_V1_Data.Q_Explicit):: (p, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.magic (Obj.repr @@ -1586,23 +1586,23 @@ let rec (solve_gen_elim_nondep' : uu___10 -> FStar_Reflection_V1_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 ["Prims"; "Cons"]))) [ - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Type - (FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Succ - (FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Zero))))), - FStar_Reflection_V1_Data.Q_Implicit); + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Type + (FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Succ + (FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero))))), + FStarC_Reflection_V1_Data.Q_Implicit); (ty, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (tl1, - FStar_Reflection_V1_Data.Q_Explicit)])))) + FStarC_Reflection_V1_Data.Q_Explicit)])))) uu___7))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1639,19 +1639,19 @@ let rec (solve_gen_elim_nondep' : (fun uu___7 -> FStar_Reflection_V1_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 ["Prims"; "Nil"]))) [ - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Type - (FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Succ - (FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Zero))))), - FStar_Reflection_V1_Data.Q_Implicit)]))) + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Type + (FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Succ + (FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero))))), + FStarC_Reflection_V1_Data.Q_Implicit)]))) uu___6 uu___5)) in Obj.magic @@ -1747,7 +1747,7 @@ let rec (solve_gen_elim_nondep' : -> let uu___9 = - FStar_Tactics_V1_Builtins.tc + FStarC_Tactics_V1_Builtins.tc env type_list in Obj.magic @@ -1776,22 +1776,22 @@ let rec (solve_gen_elim_nondep' : (fun ty -> Obj.magic - (FStar_Tactics_V1_Builtins.term_eq_old + (FStarC_Tactics_V1_Builtins.term_eq_old ty - (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"; "list"]))), - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Type - (FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Succ - (FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Zero))))), - FStar_Reflection_V2_Data.Q_Explicit)))))) + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Type + (FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Succ + (FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero))))), + FStarC_Reflection_V2_Data.Q_Explicit)))))) uu___10))) uu___9)) (fun @@ -1845,29 +1845,29 @@ let rec (solve_gen_elim_nondep' : (let uu___8 = FStar_Tactics_V1_Derived.fresh_binder - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((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_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv ["FStar"; "Universe"; "raise_t"]), [ - FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Unk; - 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))))]))), - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Unk; + 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))))]))), + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "unit"]))), - FStar_Reflection_V2_Data.Q_Explicit)))) in + FStarC_Reflection_V2_Data.Q_Explicit)))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -2003,77 +2003,77 @@ let rec (solve_gen_elim_nondep' : = norm_term (FStar_Reflection_V1_Derived.mk_app - (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 ["Steel"; "ST"; "GenElim1"; "Base"; "curried_function_type"]), [ - FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Succ - (FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Zero)); - 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))))]))) + FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Succ + (FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero)); + 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))))]))) [ (type_list, - FStar_Reflection_V1_Data.Q_Explicit); - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Arrow - ((FStar_Reflection_V2_Builtins.pack_binder + FStarC_Reflection_V1_Data.Q_Explicit); + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Arrow + ((FStarC_Reflection_V2_Builtins.pack_binder { - FStar_Reflection_V2_Data.sort2 + FStarC_Reflection_V2_Data.sort2 = - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((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_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv ["FStar"; "Universe"; "raise_t"]), [ - FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Unk; - 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))))]))), - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Unk; + 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))))]))), + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "unit"]))), - FStar_Reflection_V2_Data.Q_Explicit)))); - FStar_Reflection_V2_Data.qual + FStarC_Reflection_V2_Data.Q_Explicit)))); + 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 = (FStar_Sealed.seal "_") }), - (FStar_Reflection_V2_Builtins.pack_comp - (FStar_Reflection_V2_Data.C_Total - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_comp + (FStarC_Reflection_V2_Data.C_Total + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Steel"; "Effect"; "Common"; "vprop"])))))))), - FStar_Reflection_V1_Data.Q_Explicit)]) in + FStarC_Reflection_V1_Data.Q_Explicit)]) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2132,75 +2132,75 @@ let rec (solve_gen_elim_nondep' : = norm_term (FStar_Reflection_V1_Derived.mk_app - (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 ["Steel"; "ST"; "GenElim1"; "Base"; "curried_function_type"]), [ - FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Succ - (FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Zero)); - 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))))]))) + FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Succ + (FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero)); + 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))))]))) [ (type_list, - FStar_Reflection_V1_Data.Q_Explicit); - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Arrow - ((FStar_Reflection_V2_Builtins.pack_binder + FStarC_Reflection_V1_Data.Q_Explicit); + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Arrow + ((FStarC_Reflection_V2_Builtins.pack_binder { - FStar_Reflection_V2_Data.sort2 + FStarC_Reflection_V2_Data.sort2 = - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_App - ((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_App + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_UInst + ((FStarC_Reflection_V2_Builtins.pack_fv ["FStar"; "Universe"; "raise_t"]), [ - FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Unk; - 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))))]))), - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Unk; + 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))))]))), + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "unit"]))), - FStar_Reflection_V2_Data.Q_Explicit)))); - FStar_Reflection_V2_Data.qual + FStarC_Reflection_V2_Data.Q_Explicit)))); + 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 = (FStar_Sealed.seal "_") }), - (FStar_Reflection_V2_Builtins.pack_comp - (FStar_Reflection_V2_Data.C_Total - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + (FStarC_Reflection_V2_Builtins.pack_comp + (FStarC_Reflection_V2_Data.C_Total + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "prop"])))))))), - FStar_Reflection_V1_Data.Q_Explicit)]) in + FStarC_Reflection_V1_Data.Q_Explicit)]) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2256,11 +2256,11 @@ let rec (solve_gen_elim_nondep' : (Obj.repr (match tl with | (ty, uu___4)::(f, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.repr (let uu___5 = - FStar_Tactics_V1_Builtins.inspect + FStarC_Tactics_V1_Builtins.inspect f in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -2283,7 +2283,7 @@ let rec (solve_gen_elim_nondep' : (fun uu___6 -> (fun uu___6 -> match uu___6 with - | FStar_Reflection_V1_Data.Tv_Abs + | FStarC_Reflection_V1_Data.Tv_Abs (bv, body) -> Obj.magic (Obj.repr @@ -2316,10 +2316,10 @@ let rec (solve_gen_elim_nondep' : uu___2)))) uu___2 uu___1 uu___ let (solve_gen_elim_nondep0 : Prims.bool -> - 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_Pervasives_Native.option, + FStarC_Reflection_Types.term -> + ((FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * + FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * + FStarC_Reflection_Types.term) FStar_Pervasives_Native.option, unit) FStar_Tactics_Effect.tac_repr) = fun uu___1 -> @@ -2339,16 +2339,16 @@ let (solve_gen_elim_nondep0 : (FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; "Base"; "compute_gen_elim_tele"]))) [(t, - FStar_Reflection_V1_Data.Q_Explicit)])) in + FStarC_Reflection_V1_Data.Q_Explicit)])) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -2414,8 +2414,8 @@ let (solve_gen_elim_nondep0 : uu___ let (solve_gen_elim_nondep : Prims.bool -> - FStar_Reflection_Types.term -> - (FStar_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) + FStarC_Reflection_Types.term -> + (FStarC_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) = fun enable_nondep_opt -> fun t -> @@ -2436,30 +2436,30 @@ let (solve_gen_elim_nondep : (fun uu___2 -> match uu___1 with | FStar_Pervasives_Native.None -> - 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 ["Steel"; "ST"; "GenElim1"; "Base"; "GEDep"])) | FStar_Pervasives_Native.Some (type_list, tv', v', tp', p') -> FStar_Reflection_V1_Derived.mk_app - (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 ["Steel"; "ST"; "GenElim1"; "Base"; "mk_gen_elim_nondep_by_tac"]), - [FStar_Reflection_V2_Builtins.pack_universe - (FStar_Reflection_V2_Data.Uv_Succ - (FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Zero))]))) - [(type_list, FStar_Reflection_V1_Data.Q_Explicit); - (tv', FStar_Reflection_V1_Data.Q_Explicit); - (v', FStar_Reflection_V1_Data.Q_Explicit); - (tp', FStar_Reflection_V1_Data.Q_Explicit); - (p', FStar_Reflection_V1_Data.Q_Explicit)])) + [FStarC_Reflection_V2_Builtins.pack_universe + (FStarC_Reflection_V2_Data.Uv_Succ + (FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero))]))) + [(type_list, FStarC_Reflection_V1_Data.Q_Explicit); + (tv', FStarC_Reflection_V1_Data.Q_Explicit); + (v', FStarC_Reflection_V1_Data.Q_Explicit); + (tp', FStarC_Reflection_V1_Data.Q_Explicit); + (p', FStarC_Reflection_V1_Data.Q_Explicit)])) let (trefl_or_smt : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> let uu___1 = FStar_Tactics_V1_Derived.cur_goal () in @@ -2613,7 +2613,7 @@ let (solve_gen_elim_prop : (fun uu___4 -> (fun uu___4 -> match tl with - | (body1, FStar_Reflection_V1_Data.Q_Explicit)::[] + | (body1, FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.magic (Obj.repr @@ -2685,7 +2685,7 @@ let (solve_gen_elim_prop : | (uu___10, x) -> - FStar_Reflection_V1_Data.uu___is_Q_Explicit + FStarC_Reflection_V1_Data.uu___is_Q_Explicit x) tl1 with | (enable_nondep_opt_tm, @@ -2700,11 +2700,11 @@ let (solve_gen_elim_prop : (Obj.repr (let uu___14 = - FStar_Tactics_V1_Builtins.term_eq_old + FStarC_Tactics_V1_Builtins.term_eq_old enable_nondep_opt_tm - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_True)) in + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_True)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -2769,7 +2769,7 @@ let (solve_gen_elim_prop : fun uu___18 -> - FStar_Tactics_V1_Builtins.norm + FStarC_Tactics_V1_Builtins.norm [ FStar_Pervasives.delta_attr ["Steel.ST.GenElim1.Base.gen_elim_reduce"]; @@ -2840,9 +2840,9 @@ let (solve_gen_elim_prop : Obj.magic (FStar_Tactics_V1_Derived.apply_lemma (FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; @@ -2850,16 +2850,16 @@ let (solve_gen_elim_prop : "gen_elim_prop_intro'"]))) [ (i', - FStar_Reflection_V1_Data.Q_Explicit); - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V1_Data.Q_Explicit); + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Steel"; "ST"; "GenElim1"; "Base"; "GEDep"]))), - FStar_Reflection_V1_Data.Q_Explicit)])) + FStarC_Reflection_V1_Data.Q_Explicit)])) | FStar_Pervasives_Native.Some (type_list, @@ -2871,9 +2871,9 @@ let (solve_gen_elim_prop : = FStar_Tactics_V1_Derived.apply_lemma (FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; @@ -2881,17 +2881,17 @@ let (solve_gen_elim_prop : "gen_elim_prop_intro"]))) [ (i', - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (type_list, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (tvprop, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (q0, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (tprop, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (post0, - FStar_Reflection_V1_Data.Q_Explicit)]) in + FStarC_Reflection_V1_Data.Q_Explicit)]) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3445,7 +3445,7 @@ let (solve_gen_elim_prop_placeholder : (fun uu___4 -> (fun uu___4 -> match tl with - | (body1, FStar_Reflection_V1_Data.Q_Explicit)::[] + | (body1, FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.magic (Obj.repr @@ -3517,7 +3517,7 @@ let (solve_gen_elim_prop_placeholder : | (uu___10, x) -> - FStar_Reflection_V1_Data.uu___is_Q_Explicit + FStarC_Reflection_V1_Data.uu___is_Q_Explicit x) tl1 with | (enable_nondep_opt_tm, @@ -3628,7 +3628,7 @@ let (solve_gen_elim_prop_placeholder : = let uu___17 = - FStar_Tactics_V1_Builtins.inspect + FStarC_Tactics_V1_Builtins.inspect a in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3656,7 +3656,7 @@ let (solve_gen_elim_prop_placeholder : (fun uu___19 -> - FStar_Reflection_V1_Data.uu___is_Tv_Uvar + FStarC_Reflection_V1_Data.uu___is_Tv_Uvar uu___18)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3688,7 +3688,7 @@ let (solve_gen_elim_prop_placeholder : = let uu___18 = - FStar_Tactics_V1_Builtins.inspect + FStarC_Tactics_V1_Builtins.inspect q in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3716,7 +3716,7 @@ let (solve_gen_elim_prop_placeholder : (fun uu___20 -> - FStar_Reflection_V1_Data.uu___is_Tv_Uvar + FStarC_Reflection_V1_Data.uu___is_Tv_Uvar uu___19)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3748,7 +3748,7 @@ let (solve_gen_elim_prop_placeholder : = let uu___19 = - FStar_Tactics_V1_Builtins.inspect + FStarC_Tactics_V1_Builtins.inspect post in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3776,7 +3776,7 @@ let (solve_gen_elim_prop_placeholder : (fun uu___21 -> - FStar_Reflection_V1_Data.uu___is_Tv_Uvar + FStarC_Reflection_V1_Data.uu___is_Tv_Uvar uu___20)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3851,11 +3851,11 @@ let (solve_gen_elim_prop_placeholder : -> let uu___21 = - FStar_Tactics_V1_Builtins.term_eq_old + FStarC_Tactics_V1_Builtins.term_eq_old enable_nondep_opt_tm - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_True)) in + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_True)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3988,9 +3988,9 @@ let (solve_gen_elim_prop_placeholder : uu___26 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; @@ -3998,9 +3998,9 @@ let (solve_gen_elim_prop_placeholder : "compute_gen_elim_nondep_a"]))) [ (i', - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (j', - FStar_Reflection_V1_Data.Q_Explicit)])) in + FStarC_Reflection_V1_Data.Q_Explicit)])) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -4028,7 +4028,7 @@ let (solve_gen_elim_prop_placeholder : -> let uu___26 = - FStar_Tactics_V1_Builtins.term_to_string + FStarC_Tactics_V1_Builtins.term_to_string a' in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -4088,9 +4088,9 @@ let (solve_gen_elim_prop_placeholder : = norm_term (FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; @@ -4098,9 +4098,9 @@ let (solve_gen_elim_prop_placeholder : "compute_gen_elim_nondep_q"]))) [ (i', - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (j', - FStar_Reflection_V1_Data.Q_Explicit)]) in + FStarC_Reflection_V1_Data.Q_Explicit)]) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -4130,9 +4130,9 @@ let (solve_gen_elim_prop_placeholder : = norm_term (FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim1"; @@ -4140,9 +4140,9 @@ let (solve_gen_elim_prop_placeholder : "compute_gen_elim_nondep_post"]))) [ (i', - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (j', - FStar_Reflection_V1_Data.Q_Explicit)]) in + FStarC_Reflection_V1_Data.Q_Explicit)]) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -4170,7 +4170,7 @@ let (solve_gen_elim_prop_placeholder : post' -> let uu___30 = - FStar_Tactics_V1_Builtins.unshelve + FStarC_Tactics_V1_Builtins.unshelve a in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -4230,7 +4230,7 @@ let (solve_gen_elim_prop_placeholder : -> let uu___34 = - FStar_Tactics_V1_Builtins.unshelve + FStarC_Tactics_V1_Builtins.unshelve q in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -4290,7 +4290,7 @@ let (solve_gen_elim_prop_placeholder : -> let uu___38 = - FStar_Tactics_V1_Builtins.unshelve + FStarC_Tactics_V1_Builtins.unshelve post in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -4351,9 +4351,9 @@ let (solve_gen_elim_prop_placeholder : let uu___42 = FStar_Tactics_V1_Derived.apply_lemma - (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 ["Steel"; "ST"; "GenElim1"; @@ -4421,9 +4421,9 @@ let (solve_gen_elim_prop_placeholder : let (init_resolve_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> Steel_Effect_Common.init_resolve_tac' - [((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 ["Steel"; "ST"; "GenElim1"; @@ -4431,7 +4431,7 @@ let (init_resolve_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = "gen_elim_prop_placeholder"]))), solve_gen_elim_prop_placeholder)] let _ = - FStar_Tactics_Native.register_tactic + FStarC_Tactics_Native.register_tactic "Steel.ST.GenElim1.Base.init_resolve_tac" (Prims.of_int (2)) (fun psc -> fun ncb -> @@ -4439,6 +4439,6 @@ let _ = fun args -> FStar_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.ST.GenElim1.Base.init_resolve_tac (plugin)" - (FStar_Tactics_Native.from_tactic_1 init_resolve_tac) - FStar_Syntax_Embeddings.e_unit FStar_Syntax_Embeddings.e_unit + (FStarC_Tactics_Native.from_tactic_1 init_resolve_tac) + FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit psc ncb us args) \ No newline at end of file diff --git a/src/ocaml/plugin/generated/Steel_ST_GenElim_Base.ml b/src/ocaml/plugin/generated/Steel_ST_GenElim_Base.ml index ed39ffb4d..0198c0518 100644 --- a/src/ocaml/plugin/generated/Steel_ST_GenElim_Base.ml +++ b/src/ocaml/plugin/generated/Steel_ST_GenElim_Base.ml @@ -1,11 +1,11 @@ open Prims -let (is_fvar : FStar_Reflection_Types.term -> Prims.string -> Prims.bool) = +let (is_fvar : FStarC_Reflection_Types.term -> Prims.string -> Prims.bool) = FStar_Reflection_V1_Derived.is_fvar let (is_any_fvar : - FStar_Reflection_Types.term -> Prims.string Prims.list -> Prims.bool) = + FStarC_Reflection_Types.term -> Prims.string Prims.list -> Prims.bool) = FStar_Reflection_V1_Derived.is_any_fvar let (is_squash : - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -15,7 +15,7 @@ let (is_squash : (fun uu___ -> is_any_fvar t ["Prims.squash"; "Prims.auto_squash"]))) uu___ let (is_star_or_vstar : - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -27,8 +27,8 @@ let (is_star_or_vstar : ["Steel.Effect.Common.star"; "Steel.Effect.Common.VStar"]))) uu___ let rec (term_has_head : - FStar_Reflection_Types.term -> - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun t -> @@ -49,7 +49,7 @@ let rec (term_has_head : (fun uu___1 -> match uu___1 with | (hd, tl) -> - let uu___2 = FStar_Tactics_V1_Builtins.term_eq_old hd head in + let uu___2 = FStarC_Tactics_V1_Builtins.term_eq_old hd head in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -103,9 +103,9 @@ let rec (term_has_head : (Obj.repr (match tl with | (tg, - FStar_Reflection_V1_Data.Q_Explicit):: + FStarC_Reflection_V1_Data.Q_Explicit):: (td, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.repr (let uu___7 = @@ -161,16 +161,16 @@ let rec (term_has_head : (fun uu___8 -> false)))) uu___6)))) uu___3))) uu___1) let rec (solve_gen_unit_elim : - FStar_Reflection_Types.term -> - (FStar_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) + FStarC_Reflection_Types.term -> + (FStarC_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) = fun tl' -> let uu___ = let uu___1 = term_has_head tl' - (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 ["Steel"; "ST"; "Util"; "pure"]))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -206,15 +206,15 @@ let rec (solve_gen_unit_elim : (FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; "Base"; "GUEId"]))) - [(tl', FStar_Reflection_V1_Data.Q_Explicit)]))) + [(tl', FStarC_Reflection_V1_Data.Q_Explicit)]))) else Obj.magic (Obj.repr @@ -245,9 +245,9 @@ let rec (solve_gen_unit_elim : (FStar_Tactics_Effect.lift_div_tac (fun uu___5 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -283,9 +283,9 @@ let rec (solve_gen_unit_elim : (Obj.repr (match tl with | (t1, - FStar_Reflection_V1_Data.Q_Explicit):: + FStarC_Reflection_V1_Data.Q_Explicit):: (t2, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.repr (let uu___8 = @@ -347,9 +347,9 @@ let rec (solve_gen_unit_elim : uu___10 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -357,9 +357,9 @@ let rec (solve_gen_unit_elim : "GUEStar"]))) [ (t1', - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (t2', - FStar_Reflection_V1_Data.Q_Explicit)])))) + FStarC_Reflection_V1_Data.Q_Explicit)])))) uu___9)) | uu___8 -> Obj.repr @@ -371,23 +371,23 @@ let rec (solve_gen_unit_elim : (FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; "Base"; "GUEId"]))) [(tl', - FStar_Reflection_V1_Data.Q_Explicit)])))) + FStarC_Reflection_V1_Data.Q_Explicit)])))) uu___7)))) uu___4)))) uu___1) let (abstr_has_exists : - FStar_Reflection_Types.term -> + FStarC_Reflection_Types.term -> (Prims.bool, unit) FStar_Tactics_Effect.tac_repr) = fun t -> - let uu___ = FStar_Tactics_V1_Builtins.inspect t in + let uu___ = FStarC_Tactics_V1_Builtins.inspect t in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -402,13 +402,13 @@ let (abstr_has_exists : (fun uu___1 -> (fun uu___1 -> match uu___1 with - | FStar_Reflection_V1_Data.Tv_Abs (uu___2, body) -> + | FStarC_Reflection_V1_Data.Tv_Abs (uu___2, body) -> Obj.magic (Obj.repr (term_has_head body - (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 ["Steel"; "ST"; "Util"; "exists_"]))))) | uu___2 -> Obj.magic @@ -416,16 +416,16 @@ let (abstr_has_exists : (FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> false)))) uu___1) let rec (solve_gen_elim : - FStar_Reflection_Types.term -> - (FStar_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) + FStarC_Reflection_Types.term -> + (FStarC_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) = fun tl' -> let uu___ = let uu___1 = term_has_head tl' - (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 ["Steel"; "ST"; "Util"; "exists_"]))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -474,15 +474,15 @@ let rec (solve_gen_elim : FStar_Tactics_Effect.lift_div_tac (fun uu___3 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; "Base"; "GEUnit"]))) - [(t', FStar_Reflection_V1_Data.Q_Explicit)]))) + [(t', FStarC_Reflection_V1_Data.Q_Explicit)]))) else (let uu___3 = FStar_Tactics_V1_SyntaxHelpers.collect_app tl' in Obj.magic @@ -506,18 +506,18 @@ let rec (solve_gen_elim : then let uu___5 = match lbody with - | (ty, FStar_Reflection_V1_Data.Q_Implicit):: + | (ty, FStarC_Reflection_V1_Data.Q_Implicit):: (body, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___6 -> ([(ty, - FStar_Reflection_V1_Data.Q_Implicit)], + FStarC_Reflection_V1_Data.Q_Implicit)], body))) | (body, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.magic (FStar_Tactics_Effect.lift_div_tac @@ -550,7 +550,7 @@ let rec (solve_gen_elim : match uu___6 with | (ty, body) -> let uu___7 = - FStar_Tactics_V1_Builtins.inspect + FStarC_Tactics_V1_Builtins.inspect body in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -574,7 +574,7 @@ let rec (solve_gen_elim : (fun uu___8 -> (fun uu___8 -> match uu___8 with - | FStar_Reflection_V1_Data.Tv_Abs + | FStarC_Reflection_V1_Data.Tv_Abs (b, abody) -> Obj.magic (Obj.repr @@ -584,9 +584,9 @@ let rec (solve_gen_elim : = term_has_head abody - (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 ["Steel"; "ST"; "Util"; @@ -713,7 +713,7 @@ let rec (solve_gen_elim : uu___17 -> (uu___16, - FStar_Reflection_V1_Data.Q_Explicit))) in + FStarC_Reflection_V1_Data.Q_Explicit))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -798,9 +798,9 @@ let rec (solve_gen_elim : uu___14 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -875,7 +875,7 @@ let rec (solve_gen_elim : uu___18 -> (uu___17, - FStar_Reflection_V1_Data.Q_Explicit))) in + FStarC_Reflection_V1_Data.Q_Explicit))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -960,9 +960,9 @@ let rec (solve_gen_elim : uu___15 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -979,9 +979,9 @@ let rec (solve_gen_elim : uu___10 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -1018,16 +1018,16 @@ let rec (solve_gen_elim : (Obj.repr (match lbody with | (tl, - FStar_Reflection_V1_Data.Q_Explicit):: + FStarC_Reflection_V1_Data.Q_Explicit):: (tr, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.repr (let uu___8 = term_has_head tl - (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 ["Steel"; "ST"; "Util"; @@ -1089,9 +1089,9 @@ let rec (solve_gen_elim : = term_has_head tr - (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 ["Steel"; "ST"; "Util"; @@ -1156,9 +1156,9 @@ let rec (solve_gen_elim : uu___14 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -1166,9 +1166,9 @@ let rec (solve_gen_elim : "GEStar"]))) [ (tl'1, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (tr', - FStar_Reflection_V1_Data.Q_Explicit)]))) + FStarC_Reflection_V1_Data.Q_Explicit)]))) else (let uu___14 = @@ -1201,9 +1201,9 @@ let rec (solve_gen_elim : uu___15 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -1211,9 +1211,9 @@ let rec (solve_gen_elim : "GEStarL"]))) [ (tl'1, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (tr', - FStar_Reflection_V1_Data.Q_Explicit)]))))) + FStarC_Reflection_V1_Data.Q_Explicit)]))))) uu___12))) uu___11)) else @@ -1277,9 +1277,9 @@ let rec (solve_gen_elim : uu___13 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -1287,9 +1287,9 @@ let rec (solve_gen_elim : "GEStarR"]))) [ (tl'1, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (tr', - FStar_Reflection_V1_Data.Q_Explicit)])))) + FStarC_Reflection_V1_Data.Q_Explicit)])))) uu___12)))) uu___9)) | uu___8 -> @@ -1302,34 +1302,34 @@ let rec (solve_gen_elim : (FStar_Tactics_Effect.lift_div_tac (fun uu___9 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; "Base"; "GEUnit"]))) [((FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; "Base"; "GUEId"]))) lbody), - FStar_Reflection_V1_Data.Q_Explicit)])))) + FStarC_Reflection_V1_Data.Q_Explicit)])))) uu___7)))) uu___4)))) uu___1) let rec (solve_gen_elim_nondep' : Prims.nat -> - (FStar_Reflection_Types.term * FStar_Reflection_Types.binder) Prims.list + (FStarC_Reflection_Types.term * FStarC_Reflection_Types.binder) Prims.list -> - 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_Pervasives_Native.option, + FStarC_Reflection_Types.term -> + ((FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * + FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * + FStarC_Reflection_Types.term) FStar_Pervasives_Native.option, unit) FStar_Tactics_Effect.tac_repr) = fun uu___2 -> @@ -1371,9 +1371,9 @@ let rec (solve_gen_elim_nondep' : then (match tl with | (v, - FStar_Reflection_V1_Data.Q_Explicit):: + FStarC_Reflection_V1_Data.Q_Explicit):: (p, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.magic (Obj.repr @@ -1449,21 +1449,21 @@ let rec (solve_gen_elim_nondep' : uu___10 -> FStar_Reflection_V1_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 ["Prims"; "Cons"]))) [ - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Type - (FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Zero))), - FStar_Reflection_V1_Data.Q_Implicit); + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Type + (FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero))), + FStarC_Reflection_V1_Data.Q_Implicit); (ty, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (tl1, - FStar_Reflection_V1_Data.Q_Explicit)])))) + FStarC_Reflection_V1_Data.Q_Explicit)])))) uu___7))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1500,17 +1500,17 @@ let rec (solve_gen_elim_nondep' : (fun uu___7 -> FStar_Reflection_V1_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 ["Prims"; "Nil"]))) [ - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Type - (FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Zero))), - FStar_Reflection_V1_Data.Q_Implicit)]))) + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Type + (FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero))), + FStarC_Reflection_V1_Data.Q_Implicit)]))) uu___6 uu___5)) in Obj.magic @@ -1606,7 +1606,7 @@ let rec (solve_gen_elim_nondep' : -> let uu___9 = - FStar_Tactics_V1_Builtins.tc + FStarC_Tactics_V1_Builtins.tc env type_list in Obj.magic @@ -1635,20 +1635,20 @@ let rec (solve_gen_elim_nondep' : (fun ty -> Obj.magic - (FStar_Tactics_V1_Builtins.term_eq_old + (FStarC_Tactics_V1_Builtins.term_eq_old ty - (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"; "list"]))), - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Type - (FStar_Reflection_V2_Builtins.pack_universe - FStar_Reflection_V2_Data.Uv_Zero))), - FStar_Reflection_V2_Data.Q_Explicit)))))) + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Type + (FStarC_Reflection_V2_Builtins.pack_universe + FStarC_Reflection_V2_Data.Uv_Zero))), + FStarC_Reflection_V2_Data.Q_Explicit)))))) uu___10))) uu___9)) (fun @@ -1805,9 +1805,9 @@ let rec (solve_gen_elim_nondep' : = norm_term (FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -1815,15 +1815,15 @@ let rec (solve_gen_elim_nondep' : "curried_function_type"]))) [ (type_list, - FStar_Reflection_V1_Data.Q_Explicit); - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V1_Data.Q_Explicit); + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Steel"; "Effect"; "Common"; "vprop"]))), - FStar_Reflection_V1_Data.Q_Explicit)]) in + FStarC_Reflection_V1_Data.Q_Explicit)]) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1882,9 +1882,9 @@ let rec (solve_gen_elim_nondep' : = norm_term (FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -1892,13 +1892,13 @@ let rec (solve_gen_elim_nondep' : "curried_function_type"]))) [ (type_list, - FStar_Reflection_V1_Data.Q_Explicit); - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V1_Data.Q_Explicit); + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Prims"; "prop"]))), - FStar_Reflection_V1_Data.Q_Explicit)]) in + FStarC_Reflection_V1_Data.Q_Explicit)]) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1953,11 +1953,11 @@ let rec (solve_gen_elim_nondep' : (Obj.repr (match tl with | (ty, uu___4)::(f, - FStar_Reflection_V1_Data.Q_Explicit)::[] + FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.repr (let uu___5 = - FStar_Tactics_V1_Builtins.inspect + FStarC_Tactics_V1_Builtins.inspect f in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -1980,7 +1980,7 @@ let rec (solve_gen_elim_nondep' : (fun uu___6 -> (fun uu___6 -> match uu___6 with - | FStar_Reflection_V1_Data.Tv_Abs + | FStarC_Reflection_V1_Data.Tv_Abs (bv, body) -> Obj.magic (Obj.repr @@ -2013,10 +2013,10 @@ let rec (solve_gen_elim_nondep' : uu___2)))) uu___2 uu___1 uu___ let (solve_gen_elim_nondep0 : Prims.bool -> - 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_Pervasives_Native.option, + FStarC_Reflection_Types.term -> + ((FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * + FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * + FStarC_Reflection_Types.term) FStar_Pervasives_Native.option, unit) FStar_Tactics_Effect.tac_repr) = fun uu___1 -> @@ -2036,16 +2036,16 @@ let (solve_gen_elim_nondep0 : (FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; "Base"; "compute_gen_elim_tele"]))) [(t, - FStar_Reflection_V1_Data.Q_Explicit)])) in + FStarC_Reflection_V1_Data.Q_Explicit)])) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -2111,8 +2111,8 @@ let (solve_gen_elim_nondep0 : uu___ let (solve_gen_elim_nondep : Prims.bool -> - FStar_Reflection_Types.term -> - (FStar_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) + FStarC_Reflection_Types.term -> + (FStarC_Reflection_Types.term, unit) FStar_Tactics_Effect.tac_repr) = fun enable_nondep_opt -> fun t -> @@ -2133,26 +2133,26 @@ let (solve_gen_elim_nondep : (fun uu___2 -> match uu___1 with | FStar_Pervasives_Native.None -> - 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 ["Steel"; "ST"; "GenElim"; "Base"; "GEDep"])) | FStar_Pervasives_Native.Some (type_list, tv', v', tp', p') -> FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; "Base"; "mk_gen_elim_nondep_by_tac"]))) - [(type_list, FStar_Reflection_V1_Data.Q_Explicit); - (tv', FStar_Reflection_V1_Data.Q_Explicit); - (v', FStar_Reflection_V1_Data.Q_Explicit); - (tp', FStar_Reflection_V1_Data.Q_Explicit); - (p', FStar_Reflection_V1_Data.Q_Explicit)])) + [(type_list, FStarC_Reflection_V1_Data.Q_Explicit); + (tv', FStarC_Reflection_V1_Data.Q_Explicit); + (v', FStarC_Reflection_V1_Data.Q_Explicit); + (tp', FStarC_Reflection_V1_Data.Q_Explicit); + (p', FStarC_Reflection_V1_Data.Q_Explicit)])) let (solve_gen_elim_prop : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -2242,7 +2242,7 @@ let (solve_gen_elim_prop : (fun uu___4 -> (fun uu___4 -> match tl with - | (body1, FStar_Reflection_V1_Data.Q_Explicit)::[] + | (body1, FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.magic (Obj.repr @@ -2314,7 +2314,7 @@ let (solve_gen_elim_prop : | (uu___10, x) -> - FStar_Reflection_V1_Data.uu___is_Q_Explicit + FStarC_Reflection_V1_Data.uu___is_Q_Explicit x) tl1 with | (enable_nondep_opt_tm, @@ -2329,11 +2329,11 @@ let (solve_gen_elim_prop : (Obj.repr (let uu___14 = - FStar_Tactics_V1_Builtins.term_eq_old + FStarC_Tactics_V1_Builtins.term_eq_old enable_nondep_opt_tm - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_True)) in + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_True)) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -2398,7 +2398,7 @@ let (solve_gen_elim_prop : fun uu___18 -> - FStar_Tactics_V1_Builtins.norm + FStarC_Tactics_V1_Builtins.norm [ FStar_Pervasives.delta_attr ["Steel.ST.GenElim.Base.gen_elim_reduce"]; @@ -2469,9 +2469,9 @@ let (solve_gen_elim_prop : Obj.magic (FStar_Tactics_V1_Derived.apply_lemma (FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -2479,16 +2479,16 @@ let (solve_gen_elim_prop : "gen_elim_prop_intro'"]))) [ (i', - FStar_Reflection_V1_Data.Q_Explicit); - ((FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_FVar - (FStar_Reflection_V2_Builtins.pack_fv + FStarC_Reflection_V1_Data.Q_Explicit); + ((FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_FVar + (FStarC_Reflection_V2_Builtins.pack_fv ["Steel"; "ST"; "GenElim"; "Base"; "GEDep"]))), - FStar_Reflection_V1_Data.Q_Explicit)])) + FStarC_Reflection_V1_Data.Q_Explicit)])) | FStar_Pervasives_Native.Some (type_list, @@ -2500,9 +2500,9 @@ let (solve_gen_elim_prop : = FStar_Tactics_V1_Derived.apply_lemma (FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -2510,17 +2510,17 @@ let (solve_gen_elim_prop : "gen_elim_prop_intro"]))) [ (i', - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (type_list, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (tvprop, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (q0, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (tprop, - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (post0, - FStar_Reflection_V1_Data.Q_Explicit)]) in + FStarC_Reflection_V1_Data.Q_Explicit)]) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3103,7 +3103,7 @@ let (solve_gen_elim_prop_placeholder : (fun uu___4 -> (fun uu___4 -> match tl with - | (body1, FStar_Reflection_V1_Data.Q_Explicit)::[] + | (body1, FStarC_Reflection_V1_Data.Q_Explicit)::[] -> Obj.magic (Obj.repr @@ -3175,7 +3175,7 @@ let (solve_gen_elim_prop_placeholder : | (uu___10, x) -> - FStar_Reflection_V1_Data.uu___is_Q_Explicit + FStarC_Reflection_V1_Data.uu___is_Q_Explicit x) tl1 with | (enable_nondep_opt_tm, @@ -3286,7 +3286,7 @@ let (solve_gen_elim_prop_placeholder : = let uu___17 = - FStar_Tactics_V1_Builtins.inspect + FStarC_Tactics_V1_Builtins.inspect a in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3314,7 +3314,7 @@ let (solve_gen_elim_prop_placeholder : (fun uu___19 -> - FStar_Reflection_V1_Data.uu___is_Tv_Uvar + FStarC_Reflection_V1_Data.uu___is_Tv_Uvar uu___18)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3346,7 +3346,7 @@ let (solve_gen_elim_prop_placeholder : = let uu___18 = - FStar_Tactics_V1_Builtins.inspect + FStarC_Tactics_V1_Builtins.inspect q in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3374,7 +3374,7 @@ let (solve_gen_elim_prop_placeholder : (fun uu___20 -> - FStar_Reflection_V1_Data.uu___is_Tv_Uvar + FStarC_Reflection_V1_Data.uu___is_Tv_Uvar uu___19)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3406,7 +3406,7 @@ let (solve_gen_elim_prop_placeholder : = let uu___19 = - FStar_Tactics_V1_Builtins.inspect + FStarC_Tactics_V1_Builtins.inspect post in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3434,7 +3434,7 @@ let (solve_gen_elim_prop_placeholder : (fun uu___21 -> - FStar_Reflection_V1_Data.uu___is_Tv_Uvar + FStarC_Reflection_V1_Data.uu___is_Tv_Uvar uu___20)) in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3509,11 +3509,11 @@ let (solve_gen_elim_prop_placeholder : -> let uu___21 = - FStar_Tactics_V1_Builtins.term_eq_old + FStarC_Tactics_V1_Builtins.term_eq_old enable_nondep_opt_tm - (FStar_Reflection_V2_Builtins.pack_ln - (FStar_Reflection_V2_Data.Tv_Const - FStar_Reflection_V2_Data.C_True)) in + (FStarC_Reflection_V2_Builtins.pack_ln + (FStarC_Reflection_V2_Data.Tv_Const + FStarC_Reflection_V2_Data.C_True)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3642,9 +3642,9 @@ let (solve_gen_elim_prop_placeholder : = norm_term (FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -3652,9 +3652,9 @@ let (solve_gen_elim_prop_placeholder : "compute_gen_elim_nondep_a"]))) [ (i', - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (j', - FStar_Reflection_V1_Data.Q_Explicit)]) in + FStarC_Reflection_V1_Data.Q_Explicit)]) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3684,9 +3684,9 @@ let (solve_gen_elim_prop_placeholder : = norm_term (FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -3694,9 +3694,9 @@ let (solve_gen_elim_prop_placeholder : "compute_gen_elim_nondep_q"]))) [ (i', - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (j', - FStar_Reflection_V1_Data.Q_Explicit)]) in + FStarC_Reflection_V1_Data.Q_Explicit)]) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3726,9 +3726,9 @@ let (solve_gen_elim_prop_placeholder : = norm_term (FStar_Reflection_V1_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 ["Steel"; "ST"; "GenElim"; @@ -3736,9 +3736,9 @@ let (solve_gen_elim_prop_placeholder : "compute_gen_elim_nondep_post"]))) [ (i', - FStar_Reflection_V1_Data.Q_Explicit); + FStarC_Reflection_V1_Data.Q_Explicit); (j', - FStar_Reflection_V1_Data.Q_Explicit)]) in + FStarC_Reflection_V1_Data.Q_Explicit)]) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -3766,7 +3766,7 @@ let (solve_gen_elim_prop_placeholder : post' -> let uu___28 = - FStar_Tactics_V1_Builtins.unshelve + FStarC_Tactics_V1_Builtins.unshelve a in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3826,7 +3826,7 @@ let (solve_gen_elim_prop_placeholder : -> let uu___32 = - FStar_Tactics_V1_Builtins.unshelve + FStarC_Tactics_V1_Builtins.unshelve q in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3886,7 +3886,7 @@ let (solve_gen_elim_prop_placeholder : -> let uu___36 = - FStar_Tactics_V1_Builtins.unshelve + FStarC_Tactics_V1_Builtins.unshelve post in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -3947,9 +3947,9 @@ let (solve_gen_elim_prop_placeholder : let uu___40 = FStar_Tactics_V1_Derived.apply_lemma - (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 ["Steel"; "ST"; "GenElim"; @@ -4015,9 +4015,9 @@ let (solve_gen_elim_prop_placeholder : let (init_resolve_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> Steel_Effect_Common.init_resolve_tac' - [((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 ["Steel"; "ST"; "GenElim"; @@ -4025,7 +4025,7 @@ let (init_resolve_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = "gen_elim_prop_placeholder"]))), solve_gen_elim_prop_placeholder)] let _ = - FStar_Tactics_Native.register_tactic + FStarC_Tactics_Native.register_tactic "Steel.ST.GenElim.Base.init_resolve_tac" (Prims.of_int (2)) (fun psc -> fun ncb -> @@ -4033,6 +4033,6 @@ let _ = fun args -> FStar_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.ST.GenElim.Base.init_resolve_tac (plugin)" - (FStar_Tactics_Native.from_tactic_1 init_resolve_tac) - FStar_Syntax_Embeddings.e_unit FStar_Syntax_Embeddings.e_unit + (FStarC_Tactics_Native.from_tactic_1 init_resolve_tac) + FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit psc ncb us args) \ No newline at end of file From bceace60391dc23056e350dcf0f41a370c35695e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Thu, 10 Oct 2024 18:33:34 -0700 Subject: [PATCH 2/5] --MLish_effect --- src/extraction/Makefile | 1 + 1 file changed, 1 insertion(+) diff --git a/src/extraction/Makefile b/src/extraction/Makefile index 5bdece837..296c1217d 100644 --- a/src/extraction/Makefile +++ b/src/extraction/Makefile @@ -24,5 +24,6 @@ $(OUTPUT_DIRECTORY)/%.ml: %.fst --odir "$(OUTPUT_DIRECTORY)" \ --codegen OCaml \ --MLish \ + --MLish_effect "FStarC.Compiler.Effect" \ --extract_module $(basename $(notdir $<)) chmod -x $@ From e13b3d2f6c504bf872d84d792d3d84ae8eb543ef Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Thu, 10 Oct 2024 19:02:52 -0700 Subject: [PATCH 3/5] snap --- src/ocaml/plugin/generated/Steel_Effect_Common.ml | 12 ++++++------ src/ocaml/plugin/generated/Steel_ST_GenElim1_Base.ml | 2 +- src/ocaml/plugin/generated/Steel_ST_GenElim_Base.ml | 2 +- 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/src/ocaml/plugin/generated/Steel_Effect_Common.ml b/src/ocaml/plugin/generated/Steel_Effect_Common.ml index a5f17fa9b..556ec7dc6 100644 --- a/src/ocaml/plugin/generated/Steel_Effect_Common.ml +++ b/src/ocaml/plugin/generated/Steel_Effect_Common.ml @@ -598,7 +598,7 @@ let _ = fun ncb -> fun us -> fun args -> - FStar_Tactics_InterpFuns.mk_tactic_interpretation_1 + FStarC_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.Effect.Common.frame_vc_norm (plugin)" (FStarC_Tactics_Native.from_tactic_1 frame_vc_norm) FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit @@ -6073,7 +6073,7 @@ let (canon_l_r : match uu___9 with | - FStar_Tactics_Common.TacticFailure + FStarC_Tactics_Common.TacticFailure (m1, rng_opt) -> @@ -8073,7 +8073,7 @@ let (canon_l_r : match uu___36 with | - FStar_Tactics_Common.TacticFailure + FStarC_Tactics_Common.TacticFailure (msg, rng_opt) -> @@ -12956,7 +12956,7 @@ let rec (solve_can_be_split_forall_dep : (fun uu___9 -> false))) - | FStar_Tactics_Common.TacticFailure + | FStarC_Tactics_Common.TacticFailure (msg, rng_opt) -> @@ -18020,7 +18020,7 @@ let _ = fun ncb -> fun us -> fun args -> - FStar_Tactics_InterpFuns.mk_tactic_interpretation_1 + FStarC_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.Effect.Common.init_resolve_tac (plugin)" (FStarC_Tactics_Native.from_tactic_1 init_resolve_tac) FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit @@ -18151,7 +18151,7 @@ let _ = fun ncb -> fun us -> fun args -> - FStar_Tactics_InterpFuns.mk_tactic_interpretation_1 + FStarC_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.Effect.Common.selector_tactic (plugin)" (FStarC_Tactics_Native.from_tactic_1 selector_tactic) FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit diff --git a/src/ocaml/plugin/generated/Steel_ST_GenElim1_Base.ml b/src/ocaml/plugin/generated/Steel_ST_GenElim1_Base.ml index c11b2ae58..2383e270d 100644 --- a/src/ocaml/plugin/generated/Steel_ST_GenElim1_Base.ml +++ b/src/ocaml/plugin/generated/Steel_ST_GenElim1_Base.ml @@ -4437,7 +4437,7 @@ let _ = fun ncb -> fun us -> fun args -> - FStar_Tactics_InterpFuns.mk_tactic_interpretation_1 + FStarC_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.ST.GenElim1.Base.init_resolve_tac (plugin)" (FStarC_Tactics_Native.from_tactic_1 init_resolve_tac) FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit diff --git a/src/ocaml/plugin/generated/Steel_ST_GenElim_Base.ml b/src/ocaml/plugin/generated/Steel_ST_GenElim_Base.ml index 0198c0518..b03488906 100644 --- a/src/ocaml/plugin/generated/Steel_ST_GenElim_Base.ml +++ b/src/ocaml/plugin/generated/Steel_ST_GenElim_Base.ml @@ -4031,7 +4031,7 @@ let _ = fun ncb -> fun us -> fun args -> - FStar_Tactics_InterpFuns.mk_tactic_interpretation_1 + FStarC_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.ST.GenElim.Base.init_resolve_tac (plugin)" (FStarC_Tactics_Native.from_tactic_1 init_resolve_tac) FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit From 633688e0ec8fb5aff8bf48a0b6dcf9f87787e0ef Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Fri, 11 Oct 2024 02:04:16 -0700 Subject: [PATCH 4/5] ExtractSteel: open FStarC, remove comment about footgun --- src/extraction/ExtractSteel.fst | 1 + 1 file changed, 1 insertion(+) diff --git a/src/extraction/ExtractSteel.fst b/src/extraction/ExtractSteel.fst index c17f7ee39..b64ed1528 100644 --- a/src/extraction/ExtractSteel.fst +++ b/src/extraction/ExtractSteel.fst @@ -3,6 +3,7 @@ friend FStarC.Extraction.Krml (* IMPORTANT: these `open` directives come from FStarC.Extraction.Krml. Without them, spurious dependencies on F* ulib will be introduced *) +open FStarC open FStarC.Compiler.Effect open FStarC.Compiler.List open FStar From 017f13edf03e54ea564002e19af3dbefed556ac5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Guido=20Mart=C3=ADnez?= Date: Fri, 11 Oct 2024 02:04:39 -0700 Subject: [PATCH 5/5] snap --- src/ocaml/plugin/generated/ExtractSteel.ml | 3 ++- src/ocaml/plugin/generated/ExtractSteelC.ml | 15 +++++++---- .../plugin/generated/Steel_Effect_Common.ml | 26 ++++++++++--------- .../generated/Steel_ST_GenElim1_Base.ml | 8 +++--- .../plugin/generated/Steel_ST_GenElim_Base.ml | 11 ++++---- 5 files changed, 36 insertions(+), 27 deletions(-) diff --git a/src/ocaml/plugin/generated/ExtractSteel.ml b/src/ocaml/plugin/generated/ExtractSteel.ml index 95b8e6d61..3a464917f 100644 --- a/src/ocaml/plugin/generated/ExtractSteel.ml +++ b/src/ocaml/plugin/generated/ExtractSteel.ml @@ -645,7 +645,8 @@ let (steel_translate_let : FStarC_Extraction_Krml.translate_let_t) = match () with | () -> let expr = - let uu___12 = FStarC_Extraction_Krml.list_elements l in + let uu___12 = + FStarC_Extraction_Krml.list_elements l in FStarC_Compiler_List.map (FStarC_Extraction_Krml.translate_expr env1) uu___12 in diff --git a/src/ocaml/plugin/generated/ExtractSteelC.ml b/src/ocaml/plugin/generated/ExtractSteelC.ml index 00c2cbfbc..6f96729ad 100644 --- a/src/ocaml/plugin/generated/ExtractSteelC.ml +++ b/src/ocaml/plugin/generated/ExtractSteelC.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 = "Steel.ST.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 = "Steel.ST.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 diff --git a/src/ocaml/plugin/generated/Steel_Effect_Common.ml b/src/ocaml/plugin/generated/Steel_Effect_Common.ml index 556ec7dc6..f8b3d1810 100644 --- a/src/ocaml/plugin/generated/Steel_Effect_Common.ml +++ b/src/ocaml/plugin/generated/Steel_Effect_Common.ml @@ -601,8 +601,8 @@ let _ = FStarC_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.Effect.Common.frame_vc_norm (plugin)" (FStarC_Tactics_Native.from_tactic_1 frame_vc_norm) - FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit - psc ncb us args) + FStarC_Syntax_Embeddings.e_unit + FStarC_Syntax_Embeddings.e_unit psc ncb us args) type ('frame, 'h0, 'h1) frame_equalities = Obj.t type ('v, 'p) vrefine_am = 'p type ('v, 'p) vrefine_t = Obj.t @@ -976,7 +976,8 @@ and (visit_comp : (fun uu___4 -> Obj.magic (visit_tm ff pats)) uu___4))) uu___2)) - | FStarC_Reflection_V2_Data.C_Eff (us, eff, res, args, decrs) -> + | FStarC_Reflection_V2_Data.C_Eff (us, eff, res, args, decrs) + -> let uu___1 = visit_tm ff res in Obj.magic (FStar_Tactics_Effect.tac_bind @@ -2340,8 +2341,8 @@ let rec (new_args_for_smt_attrs : (fun uu___3 -> (fun e -> Obj.magic - (FStarC_Tactics_V2_Builtins.ghost_uvar_env e ty1)) - uu___3))) in + (FStarC_Tactics_V2_Builtins.ghost_uvar_env e + ty1)) uu___3))) in FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal (Obj.magic @@ -9179,7 +9180,8 @@ let (lookup_by_term_attr : Obj.magic (FStar_Tactics_Effect.lift_div_tac (fun uu___2 -> - FStarC_Reflection_V2_Builtins.lookup_attr label_attr e)) in + FStarC_Reflection_V2_Builtins.lookup_attr label_attr + e)) in Obj.magic (FStar_Tactics_Effect.tac_bind (FStar_Sealed.seal @@ -18014,8 +18016,8 @@ let (init_resolve_tac' : let (init_resolve_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> init_resolve_tac' [] let _ = - FStarC_Tactics_Native.register_tactic "Steel.Effect.Common.init_resolve_tac" - (Prims.of_int (2)) + FStarC_Tactics_Native.register_tactic + "Steel.Effect.Common.init_resolve_tac" (Prims.of_int (2)) (fun psc -> fun ncb -> fun us -> @@ -18023,8 +18025,8 @@ let _ = FStarC_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.Effect.Common.init_resolve_tac (plugin)" (FStarC_Tactics_Native.from_tactic_1 init_resolve_tac) - FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit - psc ncb us args) + FStarC_Syntax_Embeddings.e_unit + FStarC_Syntax_Embeddings.e_unit psc ncb us args) let (selector_tactic : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> @@ -18154,8 +18156,8 @@ let _ = FStarC_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.Effect.Common.selector_tactic (plugin)" (FStarC_Tactics_Native.from_tactic_1 selector_tactic) - FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit - psc ncb us args) + FStarC_Syntax_Embeddings.e_unit + FStarC_Syntax_Embeddings.e_unit psc ncb us args) let (ite_soundness_tac : unit -> (unit, unit) FStar_Tactics_Effect.tac_repr) = fun uu___ -> diff --git a/src/ocaml/plugin/generated/Steel_ST_GenElim1_Base.ml b/src/ocaml/plugin/generated/Steel_ST_GenElim1_Base.ml index 2383e270d..6990846a4 100644 --- a/src/ocaml/plugin/generated/Steel_ST_GenElim1_Base.ml +++ b/src/ocaml/plugin/generated/Steel_ST_GenElim1_Base.ml @@ -1460,8 +1460,8 @@ let rec (solve_gen_elim : uu___7)))) uu___4)))) uu___1) let rec (solve_gen_elim_nondep' : Prims.nat -> - (FStarC_Reflection_Types.term * FStarC_Reflection_Types.binder) Prims.list - -> + (FStarC_Reflection_Types.term * FStarC_Reflection_Types.binder) + Prims.list -> FStarC_Reflection_Types.term -> ((FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * @@ -4440,5 +4440,5 @@ let _ = FStarC_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.ST.GenElim1.Base.init_resolve_tac (plugin)" (FStarC_Tactics_Native.from_tactic_1 init_resolve_tac) - FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit - psc ncb us args) \ No newline at end of file + FStarC_Syntax_Embeddings.e_unit + FStarC_Syntax_Embeddings.e_unit psc ncb us args) \ No newline at end of file diff --git a/src/ocaml/plugin/generated/Steel_ST_GenElim_Base.ml b/src/ocaml/plugin/generated/Steel_ST_GenElim_Base.ml index b03488906..74a3156a3 100644 --- a/src/ocaml/plugin/generated/Steel_ST_GenElim_Base.ml +++ b/src/ocaml/plugin/generated/Steel_ST_GenElim_Base.ml @@ -506,7 +506,8 @@ let rec (solve_gen_elim : then let uu___5 = match lbody with - | (ty, FStarC_Reflection_V1_Data.Q_Implicit):: + | (ty, + FStarC_Reflection_V1_Data.Q_Implicit):: (body, FStarC_Reflection_V1_Data.Q_Explicit)::[] -> @@ -1324,8 +1325,8 @@ let rec (solve_gen_elim : uu___7)))) uu___4)))) uu___1) let rec (solve_gen_elim_nondep' : Prims.nat -> - (FStarC_Reflection_Types.term * FStarC_Reflection_Types.binder) Prims.list - -> + (FStarC_Reflection_Types.term * FStarC_Reflection_Types.binder) + Prims.list -> FStarC_Reflection_Types.term -> ((FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * FStarC_Reflection_Types.term * @@ -4034,5 +4035,5 @@ let _ = FStarC_Tactics_InterpFuns.mk_tactic_interpretation_1 "Steel.ST.GenElim.Base.init_resolve_tac (plugin)" (FStarC_Tactics_Native.from_tactic_1 init_resolve_tac) - FStarC_Syntax_Embeddings.e_unit FStarC_Syntax_Embeddings.e_unit - psc ncb us args) \ No newline at end of file + FStarC_Syntax_Embeddings.e_unit + FStarC_Syntax_Embeddings.e_unit psc ncb us args) \ No newline at end of file