theorem
  id A is Equivalence of A,A
proof
  thus A is_equivalent_with A;
  take id A;
  thus thesis by FUNCT_2:17;
end;
