theorem Lemma0: :: Theorem 3.4
  a`` = a
  proof
    a = Tern(a``, a`, a) by TLADef
     .= a`` by Lemma34;
    hence thesis;
  end;
