diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-01-24 22:32:57 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-01-24 22:32:57 +0000 |
commit | 172462d401768059e9b16a0d266da19d9a89ccc1 (patch) | |
tree | f673661b3fc485f4de85fe64b72e773820eb9a81 /tactics | |
parent | ded992112563e07a352995b2b2954fe74d1026ed (diff) |
Prise en compte des noms longs dans les Hints et les Coercions, et réorganisations diverses
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1273 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/leminv.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tactics/leminv.ml b/tactics/leminv.ml index 89f5cfe06..8ca683188 100644 --- a/tactics/leminv.ml +++ b/tactics/leminv.ml @@ -230,9 +230,11 @@ let inversion_scheme env sigma t sort dep_option inv_op = let add_inversion_lemma name env sigma t sort dep inv_op = let invProof = inversion_scheme env sigma t sort dep inv_op in - declare_constant name + let _ = + declare_constant name (ConstantEntry { const_entry_body = invProof; const_entry_type = None }, NeverDischarge,false) + in () (* open Pfedit *) |