diff options
| author | Gaëtan Gilbert | 2019-05-13 12:49:39 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-05-13 12:49:39 +0200 |
| commit | cfecef471c706beb50d70b951b148c9629a4064a (patch) | |
| tree | d1ea20cc7b7af614311e2f4294a51a70e430971d /plugins/ssr | |
| parent | fe75c2ab9400a83b18fa73e95d4c24a79f88c97d (diff) | |
| parent | 1cdaa823aa2db2f68cf63561a85771bb98aec70f (diff) | |
Merge PR #9887: [api] Remove 8.10 deprecations.
Reviewed-by: SkySkimmer
Diffstat (limited to 'plugins/ssr')
| -rw-r--r-- | plugins/ssr/ssrequality.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/ssr/ssrequality.ml b/plugins/ssr/ssrequality.ml index e349031952..93c0d5c236 100644 --- a/plugins/ssr/ssrequality.ml +++ b/plugins/ssr/ssrequality.ml @@ -446,7 +446,7 @@ let lz_setoid_relation = | Some (env', srel) when env' == env -> srel | _ -> let srel = - try Some (UnivGen.constr_of_global @@ + try Some (UnivGen.constr_of_monomorphic_global @@ Coqlib.find_reference "Class_setoid" ("Coq"::sdir) "RewriteRelation" [@ocaml.warning "-3"]) with _ -> None in last_srel := Some (env, srel); srel @@ -491,7 +491,7 @@ let rwprocess_rule dir rule gl = | _ -> let sigma, pi2 = Evd.fresh_global env sigma coq_prod.Coqlib.proj2 in EConstr.mkApp (pi2, ra), sigma in - if EConstr.eq_constr sigma a.(0) (EConstr.of_constr (UnivGen.constr_of_global @@ Coqlib.(lib_ref "core.True.type"))) then + if EConstr.eq_constr sigma a.(0) (EConstr.of_constr (UnivGen.constr_of_monomorphic_global @@ Coqlib.(lib_ref "core.True.type"))) then let s, sigma = sr sigma 2 in loop (converse_dir d) sigma s a.(1) rs 0 else |