diff options
Diffstat (limited to 'src/trace/smtMisc.ml')
-rw-r--r-- | src/trace/smtMisc.ml | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/src/trace/smtMisc.ml b/src/trace/smtMisc.ml index 893a9be..21d81dc 100644 --- a/src/trace/smtMisc.ml +++ b/src/trace/smtMisc.ml @@ -32,15 +32,8 @@ type 'a gen_hashed = { index : int; hval : 'a } let mklApp f args = Term.mkApp (Lazy.force f, args) (* TODO : Set -> Type *) -let coqtype = lazy Term.mkSet - -let declare_new_type t = - Command.declare_assumption false (Decl_kinds.Local,Decl_kinds.Definitional) (Lazy.force coqtype) [] false None (Structures.dummy_loc,t); - Term.mkVar t - -let declare_new_variable v constr_t = - Command.declare_assumption false (Decl_kinds.Local,Decl_kinds.Definitional) constr_t [] false None (Structures.dummy_loc,v); - Term.mkVar v +let declare_new_type = Structures.declare_new_type +let declare_new_variable = Structures.declare_new_variable let mkName s = let id = Names.id_of_string s in |