proposition: Lemma equiv_fork_inter : (∀A B, A → B → (A ∩ B)) ≈ (∀A B, A → B → A) ∩ (∀A B, A → B → B).
proof: Proof. apply subtype_eqtype. apply sub_inter; subtyping. intros π Hπ. dec π. left. find. right. find. Qed.
imports: Arith Omega ClassicalRealizability.Kbase ClassicalRealizability.Integers ClassicalRealizability.KBool