From d3f88e4e3aaf346f88801737c9145fe114f4942b Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Thu, 8 Mar 2018 07:20:32 -0300 Subject: Update checker to reflect rule on constructors of polymorphic inductive types --- checker/reduction.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'checker') diff --git a/checker/reduction.ml b/checker/reduction.ml index 67d00b21d..97255dd49 100644 --- a/checker/reduction.ml +++ b/checker/reduction.ml @@ -201,7 +201,9 @@ let convert_constructors if not (num_cnstr_args = sv1 && num_cnstr_args = sv2) then convert_universes univs u1 u2 else - convert_inductive_instances CONV cumi u1 u2 univs + (** By invariant, both constructors have a common supertype, + so they are convertible _at that type_. *) + () (* Convertibility of sorts *) -- cgit v1.2.3