theorem
  x <=> y = (x => y) '&' (y => x);
