(************************************)
(** * Inclusion and extensionality  *)
(************************************)
(** The inclusion relation is defined as expected: *)
Definition SUB (X : Typ1) (A : Rel X) (a : X) (Y : Typ1)
(B : Rel Y) (b : Y) : Prop :=
forall (Z : Typ1) (C : Rel Z) (c : Z), ELT Z C c X A a -> ELT Z C c Y B b.
(** Inclusion is clearly reflexive and transitive: *)

Lemma SUB_refl : forall (X : Typ1) (A : Rel X) (a : X), SUB X A a X A a.