diff options
| author | gregoire | 2004-11-12 16:40:39 +0000 |
|---|---|---|
| committer | gregoire | 2004-11-12 16:40:39 +0000 |
| commit | f987a343850df4602b3d8020395834d22eb1aea3 (patch) | |
| tree | c9c23771714f39690e9dc42ce0c58653291d3202 /tactics | |
| parent | 41095b1f02abac5051ab61a91080550bebbb3a7e (diff) | |
Changement dans les boxed values .
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6295 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/leminv.ml | 9 | ||||
| -rw-r--r-- | tactics/setoid_replace.ml | 10 |
2 files changed, 10 insertions, 9 deletions
diff --git a/tactics/leminv.ml b/tactics/leminv.ml index 77d9233d19..1a221dd163 100644 --- a/tactics/leminv.ml +++ b/tactics/leminv.ml @@ -245,10 +245,11 @@ let add_inversion_lemma name env sigma t sort dep inv_op = let invProof = inversion_scheme env sigma t sort dep inv_op in let _ = declare_constant name - (DefinitionEntry { const_entry_body = invProof; - const_entry_type = None; - const_entry_opaque = false; - const_entry_boxed = true}, + (DefinitionEntry + { const_entry_body = invProof; + const_entry_type = None; + const_entry_opaque = false; + const_entry_boxed = true && (Options.boxed_definitions())}, IsProof Lemma) in () diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index b374a18450..e278ec2433 100644 --- a/tactics/setoid_replace.ml +++ b/tactics/setoid_replace.ml @@ -687,8 +687,8 @@ let add_morphism lemma_infos mor_name (m,quantifiers_rev,args,output) = apply_to_rels mext quantifiers_rev |])); const_entry_type = None; const_entry_opaque = false; - const_entry_boxed = false}, - IsDefinition)) ; + const_entry_boxed = Options.boxed_definitions()}, + IsDefinition)) ; mext in let mmor = current_constant mor_name in @@ -994,7 +994,7 @@ let int_add_relation id a aeq refl sym trans = a_quantifiers_rev); const_entry_type = None; const_entry_opaque = false; - const_entry_boxed = false}, + const_entry_boxed = Options.boxed_definitions()}, IsDefinition) in let id_precise = id_of_string (string_of_id id ^ "_precise_relation_class") in let xreflexive_relation_class = @@ -1011,7 +1011,7 @@ let int_add_relation id a aeq refl sym trans = Sign.it_mkLambda_or_LetIn xreflexive_relation_class a_quantifiers_rev; const_entry_type = None; const_entry_opaque = false; - const_entry_boxed = false }, + const_entry_boxed = Options.boxed_definitions() }, IsDefinition) in let aeq_rel = { aeq_rel with @@ -1071,7 +1071,7 @@ let int_add_relation id a aeq refl sym trans = {const_entry_body = Sign.it_mkLambda_or_LetIn lemma a_quantifiers_rev; const_entry_type = None; const_entry_opaque = false; - const_entry_boxed = false}, + const_entry_boxed = Options.boxed_definitions()}, IsDefinition) in let a_quantifiers_rev = |