Canonical subvs_fieldType K :=
  Eval hnf in FieldType (subvs_of K) (@subvs_fieldMixin K).Fact prodv_is_aspace E F : is_aspace (E * F).Canonical prodv_aspace E F : {subfield L} := ASpace (prodv_is_aspace E F).Canonical capv_aspace E F : {subfield L} := aspace_cap (field_mem_algid E F).

(* Specifications: *)
Lemma polyOverSv U V : (U <= V)%VS -> {subset polyOver U <= polyOver V}.
Lemma field_subvMl F U : (U <= F * U)%VS.
Lemma field_subvMr U F : (U <= U * F)%VS.
Lemma field_module_eq F M : (F * M <= M)%VS -> (F * M)%VS = M.
Lemma sup_field_module F E : (F * E <= E)%VS = (F <= E)%VS.