`{Univalence} (g : Type <~> Type) (ge : g ExcludedMiddle_type <> ExcludedMiddle_type) : ~~ExcludedMiddle_type. Proof. intros nlem. pose (nlem' := equiv_to_empty nlem). apply path_universe_uncurried in nlem'. rewrite nlem' in ge. apply (zero_beers g) in ge. exact (ge nlem). Defined.
Require Import Basics Types. Require Import HoTT.Truncations. Require Import Universes.BAut Universes.Rigid. Require Import ExcludedMiddle.