proposition: Corollary equiv_fork_Bool : (∀A B, A → B → (A ∩ B)) ≈ 𝔹 0 ∩ 𝔹 1.
proof: Proof. transitivity ((∀A B, A → B → A) ∩ (∀A B, A → B → B)). now apply equiv_fork_inter. now apply equiv_inter_Bool. Qed.
imports: Arith Omega ClassicalRealizability.Kbase ClassicalRealizability.Integers ClassicalRealizability.KBool