Canonical prodv_comoid := Monoid.ComLaw prodvC.

(* Specifications: *)
Lemma prodvCA : left_commutative (@prodv F0 L).
Lemma prodvAC : right_commutative (@prodv F0 L).
Lemma algid1 K : algid K = 1.
Lemma sub1v K : (1 <= K)%VS.
Lemma subfield_closed K : agenv K = K.