let F be non degenerated right_complementable Abelian add-associative right_zeroed distributive Field-like doubleLoopStr ; :: thesis: for a being Element of the carrier of F \ {(0. F)} holds
( a * (1. F) = a & (1. F) * a = a )
let a be Element of H₁(F) \ {(0. F)}; :: thesis: ( a * (1. F) = a & (1. F) * a = a )
set B = H₁(F) \ {(0. F)};
set P = (omf F) ! H₁(F),(0. F);
reconsider e = 1. F as Element of H₁(F) \ {(0. F)} by Lm26;
reconsider D = addLoopStr(# (H₁(F) \ {(0. F)}),((omf F) ! H₁(F),(0. F)),e #) as strict AbGroup by Def11;
reconsider a = a as Element of D ;
(omf F) || (H₁(F) \ {(0. F)}) is Function of [:(H₁(F) \ {(0. F)}),(H₁(F) \ {(0. F)}):],H₁(F) \ {(0. F)} by REALSET1:11;
then A1: dom ((omf F) || (H₁(F) \ {(0. F)})) = [:(H₁(F) \ {(0. F)}),(H₁(F) \ {(0. F)}):] by FUNCT_2:def 1;
A2: for x, y being Element of H₁(F) \ {(0. F)} holds (omf F) . x,y = the addF of D . x,y

proof

let x, y be Element of H₁(F) \ {(0. F)}; :: thesis: (omf F) . x,y = the addF of D . x,y
[x,y] in [:(H₁(F) \ {(0. F)}),(H₁(F) \ {(0. F)}):] ;
hence (omf F) . x,y = the addF of D . x,y by A1, FUNCT_1:70; :: thesis: verum

end;

then A3: (omf F) . a,(1. F) = a + (0. D)
.= a by RLVECT_1:def 7 ;
(omf F) . (1. F),a = (0. D) + a by A2
.= a by RLVECT_1:def 15 ;
hence ( a * (1. F) = a & (1. F) * a = a ) by A3; :: thesis: verum