theorem
  H is being_equality implies for f holds f.(Var1 H) = f.(Var2 H) iff f
  in St(H,E)
proof
  assume H is being_equality;
  then H = (Var1 H) '=' Var2 H by ZF_LANG:36;
  hence thesis by Th2;
end;
