From 090fffa57b2235f70d4355f5dc85d73fa2634655 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Mon, 17 Nov 2014 18:09:48 +0100
Subject: Option -type-in-type continued (deactivate test for inferred sort of
 inductive types + deactivate test for equality of sort + deactivate the check
 that the constraints Prop/Set <= Type are declared).

---
 kernel/reduction.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'kernel/reduction.ml')

diff --git a/kernel/reduction.ml b/kernel/reduction.ml
index 64964f85e8..704b345bdd 100644
--- a/kernel/reduction.ml
+++ b/kernel/reduction.ml
@@ -573,13 +573,14 @@ let check_sort_cmp_universes env pb s0 s1 univs =
       end
     | (Prop c1, Prop c2) -> if c1 != c2 then raise NotConvertible
     | (Prop c1, Type u) ->
-      let u0 = univ_of_sort s0 in
+	if not (type_in_type env) then
+	let u0 = univ_of_sort s0 in
 	(match pb with
 	| CUMUL -> check_leq univs u0 u
 	| CONV -> check_eq univs u0 u)
     | (Type u, Prop c) -> raise NotConvertible
     | (Type u1, Type u2) ->
-        if not (type_in_type env) then 
+        if not (type_in_type env) then
 	(match pb with
 	| CUMUL -> check_leq univs u1 u2
 	| CONV -> check_eq univs u1 u2)
-- 
cgit v1.2.3