From 405f26bc8d074461f1f87e85d17402002c2f3758 Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Tue, 6 Jan 2015 20:18:42 +0100 Subject: Fix checker's treatment of template polymorphic inductive instantiation, now using substitution of levels. Fixes the test-suite file coqchk/univ. --- checker/univ.ml | 19 ------------------- 1 file changed, 19 deletions(-) (limited to 'checker/univ.ml') diff --git a/checker/univ.ml b/checker/univ.ml index dd048cb2f..73c292508 100644 --- a/checker/univ.ml +++ b/checker/univ.ml @@ -1015,25 +1015,6 @@ let check_constraint g (l,d,r) = let check_constraints c g = Constraint.for_all (check_constraint g) c -(**********************************************************************) -(* Tools for sort-polymorphic inductive types *) - -(* Miscellaneous functions to remove or test local univ assumed to - occur only in the le constraints *) - -let remove_large_constraint u v min = - match Universe.level v with - | Some u' -> if Level.equal u u' then min else v - | None -> Huniv.remove (Universe.Expr.make u) v - -let subst_large_constraint u u' v = - (* if is_direct_constraint u v then *) - Universe.sup u' (remove_large_constraint u v type0m_univ) - (* else v *) - -let subst_large_constraints = - List.fold_right (fun (u,u') -> subst_large_constraint u u') - (**********************************************************************) (** Universe polymorphism *) (**********************************************************************) -- cgit v1.2.3