THEOREM
The empty set is unique.
ALL(e1):ALL(e2):[Set(e1) & Set(e2) => [ALL(a):~a in e1 & ALL(a):~a in e2 => e1=e2]]
This proof makes use of the Axiom of Set Equality (line 5) and the principle of vacuous truth (lines 17 and 24).
PROOF
Let e1 and e2 be sets
1. Set(e1) & Set(e2)
Premise
Let e1 and e2 b3 empty
2. ALL(a):~a in e1 & ALL(a):~a in e2
Premise
3. ALL(a):~a in e1
Split, 2
4. ALL(a):~a in e2
Split, 2
Apply Axiom of Set Equality
5. ALL(a):ALL(b):[Set(a) & Set(b) => [a=b <=> ALL(c):[c in a <=> c in b]]]
Set Equality
6. ALL(b):[Set(e1) & Set(b) => [e1=b <=> ALL(c):[c in e1 <=> c in b]]]
U Spec, 5
7. Set(e1) & Set(e2) => [e1=e2 <=> ALL(c):[c in e1 <=> c in e2]]
U Spec, 6
8. e1=e2 <=> ALL(c):[c in e1 <=> c in e2]
Detach, 7, 1
9. [e1=e2 => ALL(c):[c in e1 <=> c in e2]]
& [ALL(c):[c in e1 <=> c in e2] => e1=e2]
Iff-And, 8
Sufficient: For e1=e2
10. ALL(c):[c in e1 <=> c in e2] => e1=e2
Split, 9
11. x in e1
Premise
12. ~x in e1
U Spec, 3
13. ~x in e2
Premise
14. x in e1 & ~x in e1
Join, 11, 12
15. ~~x in e2
Conclusion, 13
16. x in e2
Rem DNeg, 15
Vacuously true:
17. ALL(c):[c in e1 => c in e2]
Conclusion, 11
18. y in e2
Premise
19. ~y in e2
U Spec, 4
20. ~y in e1
Premise
21. y in e2 & ~y in e2
Join, 18, 19
22. ~~y in e1
Conclusion, 20
23. y in e1
Rem DNeg, 22
Vacuously true:
24. ALL(c):[c in e2 => c in e1]
Conclusion, 18
25. ALL(c):[[c in e1 => c in e2] & [c in e2 => c in e1]]
Join, 17, 24
26. ALL(c):[c in e1 <=> c in e2]
Iff-And, 25
27. e1=e2
Detach, 10, 26
28. ALL(a):~a in e1 & ALL(a):~a in e2 => e1=e2
Conclusion, 2
29. ALL(e1):ALL(e2):[Set(e1) & Set(e2)
=> [ALL(a):~a in e1 & ALL(a):~a in e2 => e1=e2]]
Conclusion, 1
Dan
Download my DC Proof 2.0 freeware at
http://www.dcproof.com
Visit my Math Blog at
http://www.dcproof.wordpress.com