equivalence_relations made uniform w.r.t. universe level

[helm.git] / helm / software / matita / contribs / LAMBDA-TYPES / LambdaDelta-1 / csuba / defs.ma

diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/csuba/defs.ma b/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/csuba/defs.ma
index 1b8612a2f81d1ae19cc2429fb9a1712957b7d847..7a23f50e79b0ca5f057247ce8686a6f4635dde8d 100644 (file)
--- a/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/csuba/defs.ma
+++ b/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/csuba/defs.ma
@@ -14,14 +14,15 @@
 
 (* This file was automatically generated: do not edit *********************)
 
-set "baseuri" "cic:/matita/LAMBDA-TYPES/LambdaDelta-1/csuba/defs".
-
-include "arity/defs.ma".
+include "LambdaDelta-1/arity/defs.ma".
 
 inductive csuba (g: G): C \to (C \to Prop) \def
 | csuba_sort: \forall (n: nat).(csuba g (CSort n) (CSort n))
 | csuba_head: \forall (c1: C).(\forall (c2: C).((csuba g c1 c2) \to (\forall 
 (k: K).(\forall (u: T).(csuba g (CHead c1 k u) (CHead c2 k u))))))
+| csuba_void: \forall (c1: C).(\forall (c2: C).((csuba g c1 c2) \to (\forall 
+(b: B).((not (eq B b Void)) \to (\forall (u1: T).(\forall (u2: T).(csuba g 
+(CHead c1 (Bind Void) u1) (CHead c2 (Bind b) u2))))))))
 | csuba_abst: \forall (c1: C).(\forall (c2: C).((csuba g c1 c2) \to (\forall 
 (t: T).(\forall (a: A).((arity g c1 t (asucc g a)) \to (\forall (u: 
 T).((arity g c2 u a) \to (csuba g (CHead c1 (Bind Abst) t) (CHead c2 (Bind