proposition: Lemma expand_cons_dom `{Funext} {σ} (A : Carriers σ) {n : nat} (ss : FinSeq n.+1 (Sort σ)) (a : forall i, A (ss i)) : cons_dom A ss (head_dom A ss a) (tail_dom A ss a) = a.
proof: Proof. funext i. apply expand_cons_dom'. Defined.
imports: HoTT.Algebra.Universal.Algebra HoTT.Types HoTT.Spaces.Finite HoTT.Spaces.Nat.Core