theorem
  Tern (b`,b,a) = Tern (a,b,b`)
  proof
    Tern (b`,b,a) = a by TLADef;
    hence thesis by TRADef;
  end;
