diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-03-18 18:01:20 +0100 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-03-18 18:01:20 +0100 |
| commit | bfce2747a747f48465fe32c3d29304ca6e774f25 (patch) | |
| tree | 6baf459718c380e90b76b5938e625ca0272a58e4 /src/trace/smtMisc.ml | |
| parent | 23539f231727113d53e4fdeae531d048b21730ae (diff) | |
| download | smtcoq-bfce2747a747f48465fe32c3d29304ca6e774f25.tar.gz smtcoq-bfce2747a747f48465fe32c3d29304ca6e774f25.zip | |
Light port to Coq 8.5 under progress
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 |