const Subq : set set prop const Empty : set axiom Subq_Empty: !x:set.Subq Empty x const In : set set prop term iIn = In infix iIn 2000 2000 const Power : set set axiom PowerI: !x:set.!y:set.Subq y x -> y iIn Power x claim !x:set.Empty iIn Power x