diff options
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/eConstr.ml | 2 | ||||
| -rw-r--r-- | engine/termops.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/engine/eConstr.ml b/engine/eConstr.ml index 1ac658f123..374cb72753 100644 --- a/engine/eConstr.ml +++ b/engine/eConstr.ml @@ -129,7 +129,7 @@ let isRefX sigma x c = match x, kind sigma c with | ConstRef c, Const (c', _) -> Constant.CanOrd.equal c c' | IndRef i, Ind (i', _) -> Ind.CanOrd.equal i i' - | ConstructRef i, Construct (i', _) -> eq_constructor i i' + | ConstructRef i, Construct (i', _) -> Construct.CanOrd.equal i i' | VarRef id, Var id' -> Id.equal id id' | _ -> false diff --git a/engine/termops.ml b/engine/termops.ml index 031a505ce2..693945d5ac 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -1147,7 +1147,7 @@ let compare_constr_univ sigma f cv_pb t1 t2 = f Reduction.CONV t1 t2 && f cv_pb c1 c2 | Const (c, u), Const (c', u') -> Constant.CanOrd.equal c c' | Ind (i, _), Ind (i', _) -> Ind.CanOrd.equal i i' - | Construct (i, _), Construct (i', _) -> eq_constructor i i' + | Construct (i, _), Construct (i', _) -> Construct.CanOrd.equal i i' | _ -> EConstr.compare_constr sigma (fun t1 t2 -> f Reduction.CONV t1 t2) t1 t2 let constr_cmp sigma cv_pb t1 t2 = |