const In : set set prop term iIn = In infix iIn 2000 2000 const Empty : set const real : set axiom real_0: Empty iIn real const CSNo_Re : set set const SNo_pair : set set set axiom complex_Re_eq: !x:set.x iIn real -> !y:set.y iIn real -> CSNo_Re (SNo_pair x y) = x const mul_CSNo : set set set const Complex_i : set axiom mul_i_real_eq: !x:set.x iIn real -> mul_CSNo Complex_i x = SNo_pair Empty x claim !x:set.x iIn real -> CSNo_Re (mul_CSNo Complex_i x) = Empty