theorem
  |. <e1> .| = 1
proof
  |(<e1>,<e1>)| = 1^2 + 0^2 + 0^2 by Lm12 .= 1;
  hence thesis;
end;
