reserve a,b,c,d,e,f for Real,
        k,m for Nat,
        D for non empty set,
        V for non trivial RealLinearSpace,
        u,v,w for Element of V,
        p,q,r for Element of ProjectiveSpace(V);
reserve o,p,q,r,s,t for Point of TOP-REAL 3,
        M for Matrix of 3,F_Real;

theorem Th52:
  Col(<*<e1>*>,1) = <* 1 *> &
  Col(<*<e1>*>,2) = <* 0 *> &
  Col(<*<e1>*>,3) = <* 0 *>
  proof
A1: len <e1> = 3 by CARD_1:def 7;
    <e1>.1 = 1 & <e1>.2 = 0 & <e1>.3 = 0 by EUCLID_8:def 1;
    hence thesis by A1,Th51;
  end;
