Implicit Type phR : phant R.Record class_of A := Class {
  base1 : GRing.UnitAlgebra.class_of R A;
  mixin : Vector.mixin_of (GRing.Lmodule.Pack _ base1)
}.Record class_of A := Class {
  base1 : GRing.UnitAlgebra.class_of R A;
  mixin : Vector.mixin_of (GRing.Lmodule.Pack _ base1)
}.Record class_of A := Class {
  base1 : GRing.UnitAlgebra.class_of R A;
  mixin : Vector.mixin_of (GRing.Lmodule.Pack _ base1)
}.Record class_of A := Class {
  base1 : GRing.UnitAlgebra.class_of R A;
  mixin : Vector.mixin_of (GRing.Lmodule.Pack _ base1)
}.Definition base2 A c := @Vector.Class _ _ (@base1 A c) (mixin c).Structure type (phR : phant R) := Pack {sort; _ : class_of sort}.Structure type (phR : phant R) := Pack {sort; _ : class_of sort}.Structure type (phR : phant R) := Pack {sort; _ : class_of sort}.Notation xclass := (class : class_of xT).Definition eqType := @Equality.Pack cT xclass.Definition choiceType := @Choice.Pack cT xclass.Definition zmodType := @GRing.Zmodule.Pack cT xclass.Definition lmodType := @GRing.Lmodule.Pack R phR cT xclass.Definition ringType := @GRing.Ring.Pack cT xclass.Definition unitRingType := @GRing.UnitRing.Pack cT xclass.Definition lalgType := @GRing.Lalgebra.Pack R phR cT xclass.Definition algType := @GRing.Algebra.Pack R phR cT xclass.Definition unitAlgType := @GRing.UnitAlgebra.Pack R phR cT xclass.Definition vectType := @Vector.Pack R phR cT xclass.Definition vect_ringType := @GRing.Ring.Pack vectType xclass.Definition vect_unitRingType := @GRing.UnitRing.Pack vectType xclass.Definition vect_lalgType := @GRing.Lalgebra.Pack R phR vectType xclass.Definition vect_algType := @GRing.Algebra.Pack R phR vectType xclass.Definition vect_unitAlgType := @GRing.UnitAlgebra.Pack R phR vectType xclass.Notation FalgType R := (type (Phant R)).Notation "[ 'aspace' 'of' U 'for' A ]" := (@clone_aspace _ _ U A _ idfun)
  (at level 0, format "[ 'aspace'  'of'  U  'for'  A ]") : form_scope.Notation FalgUnitRingType T := (@BaseType _ _ T _ _ id _ (Phant T) id).Notation "'Z ( V )" := (center_vspace V) : vspace_scope.

(* Specifications: *)
Lemma regular_fullv (K : fieldType) : (fullv = 1 :> {vspace K^o})%VS.
Lemma FalgType_proper : Vector.dim aT > 0.