include "arity/defs.ma".
+include "csuba/arity.ma".
+
theorem csubc_arity_conf:
\forall (g: G).(\forall (c1: C).(\forall (c2: C).((csubc g c1 c2) \to
(\forall (t: T).(\forall (a: A).((arity g c1 t a) \to (arity g c2 t a)))))))
include "csuba/defs.ma".
+include "csuba/props.ma".
+
theorem csubc_csuba:
\forall (g: G).(\forall (c1: C).(\forall (c2: C).((csubc g c1 c2) \to (csuba
g c1 c2))))
set "baseuri" "cic:/matita/LAMBDA-TYPES/Level-1/LambdaDelta/sc3/arity".
include "csubc/props.ma".
+include "csubc/getl.ma".
+include "csubc/arity.ma".
+include "lift1/props.ma".
+include "csubc/drop1.ma".
theorem sc3_arity_csubc:
\forall (g: G).(\forall (c1: C).(\forall (t: T).(\forall (a: A).((arity g c1
include "drop1/props.ma".
+include "lift1/props.ma".
+
+include "drop1/getl.ma".
+
+include "csuba/arity.ma".
+
theorem sc3_arity_gen:
\forall (g: G).(\forall (c: C).(\forall (t: T).(\forall (a: A).((sc3 g a c
t) \to (arity g c t a)))))