diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-28 19:26:41 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-28 19:26:41 +0200 |
| commit | e3eb667a3715cc39dfd1bc313c3078cac484e414 (patch) | |
| tree | 8652d25095291e57b3ed9875362a115b4db1a655 /src/smtlib2/smtlib2_genConstr.ml | |
| parent | 1a8548f8ac3773bc7179d286262373a6433687ea (diff) | |
| parent | be486d634803e7bdfd455e58dbe3ed0968798eda (diff) | |
| download | smtcoq-e3eb667a3715cc39dfd1bc313c3078cac484e414.tar.gz smtcoq-e3eb667a3715cc39dfd1bc313c3078cac484e414.zip | |
Merge branch 'coq-8.11' of github.com:smtcoq/smtcoq into coq-8.12
Diffstat (limited to 'src/smtlib2/smtlib2_genConstr.ml')
| -rw-r--r-- | src/smtlib2/smtlib2_genConstr.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/smtlib2/smtlib2_genConstr.ml b/src/smtlib2/smtlib2_genConstr.ml index eb1c5b7..0c6e2ac 100644 --- a/src/smtlib2/smtlib2_genConstr.ml +++ b/src/smtlib2/smtlib2_genConstr.ml @@ -97,10 +97,10 @@ let rec sort_of_sort = function let declare_sort_from_name rt s = - let cons_t = Structures.declare_new_type (Structures.mkId ("Smt_sort_"^s)) in + let cons_t = CoqInterface.declare_new_type (CoqInterface.mkId ("Smt_sort_"^s)) in let compdec_type = mklApp cCompDec [| cons_t |] in let compdec_var = - Structures.declare_new_variable (Structures.mkId ("CompDec_"^s)) compdec_type in + CoqInterface.declare_new_variable (CoqInterface.mkId ("CompDec_"^s)) compdec_type in let res = SmtBtype.of_coq_compdec rt cons_t compdec_var in SmtMaps.add_btype s res; res @@ -110,9 +110,9 @@ let declare_sort rt sym = declare_sort_from_name rt (string_of_symbol sym) let declare_fun_from_name rt ro s tyl ty = let coqTy = List.fold_right (fun typ c -> - Structures.mkArrow (interp_to_coq rt typ) c) + CoqInterface.mkArrow (interp_to_coq rt typ) c) tyl (interp_to_coq rt ty) in - let cons_v = Structures.declare_new_variable (Structures.mkId ("Smt_var_"^s)) coqTy in + let cons_v = CoqInterface.declare_new_variable (CoqInterface.mkId ("Smt_var_"^s)) coqTy in let op = Op.declare ro cons_v (Array.of_list tyl) ty None in SmtMaps.add_fun s op; op |