theorem Th28:
  1 (*) LR = LR
  proof
    now let v be Element of R;
      thus(1(*)LR).v = LR.(1"*v) by Def2
                    .= LR.v by RLVECT_1:def 8;
    end;
    hence thesis;
  end;
