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 /toplevel | |
| 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 'toplevel')
| -rw-r--r-- | toplevel/discharge.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml index 4dc7dd275..0451e3db1 100644 --- a/toplevel/discharge.ml +++ b/toplevel/discharge.ml @@ -256,12 +256,15 @@ let process_item oldenv dir sec_sp acc = function let process_operation = function | Variable (id,expmod_a,stre,sticky,imp) -> (* Warning:parentheses needed to get a side-effect from with_implicits *) - with_implicits imp (declare_variable id) (expmod_a,stre,sticky) + let _ = with_implicits imp (declare_variable id) (expmod_a,stre,sticky) in + () | Parameter (spid,typ,imp) -> - with_implicits imp (declare_parameter spid) typ; + let _ = with_implicits imp (declare_parameter spid) typ in constant_message spid | Constant (spid,r,stre,opa,imp) -> - with_implicits imp (declare_constant spid) (ConstantRecipe r,stre,opa); + let _ = + with_implicits imp (declare_constant spid) (ConstantRecipe r,stre,opa) + in constant_message spid | Inductive (mie,imp) -> let _ = with_implicits imp declare_mind mie in |