diff options
| author | Pierre-Marie Pédrot | 2018-10-19 15:27:55 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-19 15:27:55 +0200 |
| commit | 3799939088b5aa616974a0d37de7e2616024f222 (patch) | |
| tree | 808e60e5546489a694e1da784bd4895bc0195172 /plugins/rtauto | |
| parent | 6ab9a8088394b710ae0b9f6d5711d2fe0509419f (diff) | |
| parent | e050884da17b260934a428d5b1bb11cd788ae0e1 (diff) | |
Merge PR #8724: [universes] deprecate constr_of_global
Diffstat (limited to 'plugins/rtauto')
| -rw-r--r-- | plugins/rtauto/refl_tauto.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/plugins/rtauto/refl_tauto.ml b/plugins/rtauto/refl_tauto.ml index 79418da27c..840a05e02b 100644 --- a/plugins/rtauto/refl_tauto.ml +++ b/plugins/rtauto/refl_tauto.ml @@ -26,11 +26,11 @@ let step_count = ref 0 let node_count = ref 0 -let li_False = lazy (destInd (UnivGen.constr_of_global @@ Coqlib.lib_ref "core.False.type")) -let li_and = lazy (destInd (UnivGen.constr_of_global @@ Coqlib.lib_ref "core.and.type")) -let li_or = lazy (destInd (UnivGen.constr_of_global @@ Coqlib.lib_ref "core.or.type")) +let li_False = lazy (destInd (UnivGen.constr_of_monomorphic_global @@ Coqlib.lib_ref "core.False.type")) +let li_and = lazy (destInd (UnivGen.constr_of_monomorphic_global @@ Coqlib.lib_ref "core.and.type")) +let li_or = lazy (destInd (UnivGen.constr_of_monomorphic_global @@ Coqlib.lib_ref "core.or.type")) -let gen_constant n = lazy (UnivGen.constr_of_global (Coqlib.lib_ref n)) +let gen_constant n = lazy (UnivGen.constr_of_monomorphic_global (Coqlib.lib_ref n)) let l_xI = gen_constant "num.pos.xI" let l_xO = gen_constant "num.pos.xO" |