diff options
Diffstat (limited to 'tactics/setoid_replace.ml')
| -rw-r--r-- | tactics/setoid_replace.ml | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index cc18b64c1f..10dcee8d7c 100644 --- a/tactics/setoid_replace.ml +++ b/tactics/setoid_replace.ml @@ -229,12 +229,14 @@ let add_setoid a aeq th = let eq_ext_name2 = gen_eq_lem_name () in let _ = Declare.declare_constant eq_ext_name ((Declare.ConstantEntry {Declarations.const_entry_body = eq_morph; - Declarations.const_entry_type = None}), - Declare.NeverDischarge,true) in + Declarations.const_entry_type = None; + Declarations.const_entry_opaque = true}), + Declare.NeverDischarge) in let _ = Declare.declare_constant eq_ext_name2 ((Declare.ConstantEntry {Declarations.const_entry_body = eq_morph2; - Declarations.const_entry_type = None}), - Declare.NeverDischarge,true) in + Declarations.const_entry_type = None; + Declarations.const_entry_opaque = true}), + Declare.NeverDischarge) in let eqmorph = (current_constant eq_ext_name) in let eqmorph2 = (current_constant eq_ext_name2) in (Lib.add_anonymous_leaf @@ -452,8 +454,9 @@ let add_morphism lem_name (m,profil) = let lem2_name = add_suffix lem_name "2" in let _ = Declare.declare_constant lem2_name ((Declare.ConstantEntry {Declarations.const_entry_body = lem_2; - Declarations.const_entry_type = None}), - Declare.NeverDischarge,true) in + Declarations.const_entry_type = None; + Declarations.const_entry_opaque = true}), + Declare.NeverDischarge) in let lem2 = (current_constant lem2_name) in (Lib.add_anonymous_leaf (morphism_to_obj (m, |