
theorem
  for L be add-associative right_zeroed right_complementable
left-distributive well-unital non empty doubleLoopStr for z0,z1,x be Element
  of L holds eval(<%0.L,1.L%>,x) = x
proof
  let L be add-associative right_zeroed right_complementable left-distributive
  well-unital non empty doubleLoopStr;
  let z0,z1,x be Element of L;
  thus eval(<%0.L,1.L%>,x) = 0.L+1.L*x by Th44
    .= 0.L+x
    .= x by RLVECT_1:4;
end;
