Module ext_red (invert : ext_invert_sig).
Export invert.
Module red_one := ext_red_one invert.
Export red_one.
Set Bullet Behavior "Strict Subproofs".
Set Implicit Arguments.

(* Specifications: *)
Lemma Beta_preservation : forall a b, Beta a b -> forall G A, Typing G a A -> Typing G b A.
Lemma E_Beta2 :  ∀ (G : context) (D : available_props) (a1 a2 B : tm),
Typing G a1 B → Beta a1 a2 → DefEq G D a1 a2 B.