Canonical baseAspace E := ASpace (baseAspace_suproof E).
Fact refBaseField_key : unit. Proof. by []. Qed.
Definition refBaseField := locked_with refBaseField_key (baseAspace 1).
Canonical refBaseField_unlockable := [unlockable of refBaseField].
Notation F1 := refBaseField.

Lemma sub_baseField (E : {subfield L}) : (F1 <= baseVspace E)%VS.