diff options
| author |  Pierre Letouzey <pierre.letouzey@inria.fr> | 2016-05-31 09:09:56 +0200 |
|---|---|---|
| committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2016-05-31 09:11:27 +0200 |
| commit | b994e3195d296e9d12c058127ced381976c3a49e (patch) | |
| tree | 8648a92470d27671db9d5e40159a1aec68e8dc9c /checker/subtyping.ml | |
| parent | 7d2ad6ac66abb97819ffbc5ad58c862a84e28775 (diff) | |
Checker: avoid using obsolete names from Names
Diffstat (limited to 'checker/subtyping.ml')
| -rw-r--r-- | checker/subtyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/subtyping.ml b/checker/subtyping.ml index e41922573..46d21f6cc 100644 --- a/checker/subtyping.ml +++ b/checker/subtyping.ml @@ -103,7 +103,7 @@ let check_inductive env mp1 l info1 mib2 spec2 subst1 subst2= in let eq_projection_body p1 p2 = let check eq f = if not (eq (f p1) (f p2)) then error () in - check eq_mind (fun x -> x.proj_ind); + check MutInd.equal (fun x -> x.proj_ind); check (==) (fun x -> x.proj_npars); check (==) (fun x -> x.proj_arg); check (eq_constr) (fun x -> x.proj_type); |