diff options
Diffstat (limited to 'interp/constrexpr_ops.ml')
| -rw-r--r-- | interp/constrexpr_ops.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/interp/constrexpr_ops.ml b/interp/constrexpr_ops.ml index b11972cd39..79e0e61646 100644 --- a/interp/constrexpr_ops.ml +++ b/interp/constrexpr_ops.ml @@ -229,11 +229,8 @@ and instance_eq (x1,c1) (x2,c2) = Id.equal x1 x2 && constr_expr_eq c1 c2 let constr_loc c = CAst.(c.loc) - let cases_pattern_expr_loc cp = CAst.(cp.loc) -let raw_cases_pattern_expr_loc pe = CAst.(pe.loc) - let local_binder_loc = function | CLocalAssum ((loc,_)::_,_,t) | CLocalDef ((loc,_),t,None) -> Loc.merge_opt loc (constr_loc t) |