diff options
author | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-02 09:45:07 +0000 |
---|---|---|
committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-02 09:45:07 +0000 |
commit | 33019e47a55caf3923d08acd66077f0a52947b47 (patch) | |
tree | 0f864e0c1c0fb4fb3dd75347175cb42c992cb144 | |
parent | 1affa21d7d70d0aac6cfa8f33faa328b1f6cc07b (diff) |
Pfedit (fin)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@188 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | Makefile | 2 | ||||
-rw-r--r-- | library/declare.mli | 5 | ||||
-rw-r--r-- | proofs/pfedit.ml | 2 |
3 files changed, 2 insertions, 7 deletions
@@ -74,7 +74,7 @@ TACTICS=tactics/dn.cmo tactics/termdn.cmo tactics/btermdn.cmo \ tactics/tacentries.cmo tactics/hiddentac.cmo tactics/elim.cmo TOPLEVEL=toplevel/himsg.cmo toplevel/errors.cmo toplevel/vernacinterp.cmo \ - toplevel/metasyntax.cmo \ + toplevel/metasyntax.cmo toplevel/command.cmo \ toplevel/vernacentries.cmo toplevel/vernac.cmo toplevel/mltop.cmo \ toplevel/protectedtoplevel.cmo toplevel/toplevel.cmo diff --git a/library/declare.mli b/library/declare.mli index 1a9a0fac2..a8848660d 100644 --- a/library/declare.mli +++ b/library/declare.mli @@ -21,23 +21,18 @@ type strength = | NeverDischarge type variable_declaration = constr * strength * bool - val declare_variable : identifier -> variable_declaration -> unit type constant_declaration = constant_entry * strength * bool - val declare_constant : identifier -> constant_declaration -> unit val declare_parameter : identifier -> constr -> unit - val declare_mind : mutual_inductive_entry -> unit - val declare_eliminations : section_path -> unit - val declare_syntax_constant : identifier -> constr -> unit val make_strength : string list -> strength diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index a9a8e0d3b..9fc376855 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -260,7 +260,7 @@ let start_proof_with_type na str env concl = let start_proof na str concl_com = let sigma = Evd.empty in let env = Global.env() in - let concl = fconstruct_type sigma (Environ.context env) concl_com in + let concl = type_of_com env concl_com in start_proof_with_type na str env concl.body let start_proof_constr na str concl = |