Section AspaceTheory.
Variables (K : fieldType) (aT : FalgType K).
Implicit Types (u v e : aT) (U V : {vspace aT}) (A B : {aspace aT}).
Definition algid U := s2val (algid_subproof U).

Lemma unitr_algid1 A u : u \in A -> u \is a GRing.unit -> algid A = 1.