diff options
Diffstat (limited to 'toplevel/discharge.ml')
-rw-r--r-- | toplevel/discharge.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml index 98581e739..765a63508 100644 --- a/toplevel/discharge.ml +++ b/toplevel/discharge.ml @@ -382,12 +382,13 @@ let process_item oldenv sec_sp acc = function let process_operation = function | Variable (id,expmod_a,stre,sticky,imp) -> - with_implicits imp declare_variable id (expmod_a,stre,sticky) + (* Warning:parentheses needed to get a side-effect from with_implicits *) + with_implicits imp (declare_variable id) (expmod_a,stre,sticky) | Parameter (spid,typ,imp) -> - with_implicits imp declare_parameter spid typ; + with_implicits imp (declare_parameter spid) typ; constant_message spid | Constant (spid,ce,stre,imp) -> - with_implicits imp declare_constant spid (ce,stre); + with_implicits imp (declare_constant spid) (ce,stre); constant_message spid | Inductive (mie,imp) -> let _ = with_implicits imp declare_mind mie in |