fact: Fixpoint eq_eq_equiv_inv@{i} (Δ : Tel@{i}) : forall (u v : Δ) (e : u == v), u = v := match Δ with | inj A => fun a b e => e | ext A f => fun u v e => let e' := eq_eq_equiv_inv _ _ _ e.2 in equiv@{i} (path_sigma_equivalence _ u v) &(e.1 & e') end.
imports: Equations Utf8 DepElimDec