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/getl.ma".
+
include "csubc/drop1.ma".
+include "csubc/props.ma".
+
theorem sc3_arity_csubc:
\forall (g: G).(\forall (c1: C).(\forall (t: T).(\forall (a: A).((arity g c1
t a) \to (\forall (d1: C).(\forall (is: PList).((drop1 is d1 c1) \to (\forall
include "nf2/lift1.ma".
+include "csuba/arity.ma".
+
include "arity/lift1.ma".
include "arity/aprem.ma".
include "llt/props.ma".
+include "drop1/getl.ma".
+
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)))))