Theorem dfbi1gb 185

Description: This proof of dfbi1 184, discovered by Gregory Bush on 8-Mar-2004, has several curious properties. First, it has only 17 steps directly from the axioms and df-bi 177, compared to over 800 steps were the proof of dfbi1 184 expanded into axioms. Second, step 2 demands only the property of "true"; any axiom (or theorem) could be used. It might be thought, therefore, that it is in some sense redundant, but in fact no proof is shorter than this (measured by number of steps). Third, it illustrates how intermediate steps can "blow up" in size even in short proofs. Fourth, the compressed proof is only 182 bytes (or 17 bytes in D-proof notation), but the generated web page is over 200kB with intermediate steps that are essentially incomprehensible to humans (other than Gregory Bush). If there were an obfuscated code contest for proofs, this would be a contender. This "blowing up" and incomprehensibility of the intermediate steps vividly demonstrate the advantages of using many layered intermediate theorems, since each theorem is easier to understand. (Contributed by Gregory Bush, 10-Mar-2004.) (New usage is discouraged.) (Proof modification is discouraged.)

Assertion

Ref	Expression
dfbi1gb	⊢ ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))

Proof of Theorem dfbi1gb

Step	Hyp	Ref	Expression
1		df-bi 177	. 2 ⊢ ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))
2		ax-1 6	. . 3 ⊢ (χ → (θ → χ))
3		ax-1 6	. . . . 5 ⊢ (¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))) → ((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))))))
4		df-bi 177	. . . . . . . . 9 ⊢ ¬ ((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))))
5		ax-1 6	. . . . . . . . 9 ⊢ (¬ ((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))))) → (¬ ¬ (χ → (θ → χ)) → ¬ ((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))))))
6	4, 5	ax-mp 5	. . . . . . . 8 ⊢ (¬ ¬ (χ → (θ → χ)) → ¬ ((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))))))
7		ax-3 8	. . . . . . . 8 ⊢ ((¬ ¬ (χ → (θ → χ)) → ¬ ((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))))) → (((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))))) → ¬ (χ → (θ → χ))))
8	6, 7	ax-mp 5	. . . . . . 7 ⊢ (((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))))) → ¬ (χ → (θ → χ)))
9		ax-1 6	. . . . . . 7 ⊢ ((((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))))) → ¬ (χ → (θ → χ))) → (¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))) → (((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))))) → ¬ (χ → (θ → χ)))))
10	8, 9	ax-mp 5	. . . . . 6 ⊢ (¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))) → (((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))))) → ¬ (χ → (θ → χ))))
11		ax-2 7	. . . . . 6 ⊢ ((¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))) → (((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))))) → ¬ (χ → (θ → χ)))) → ((¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))) → ((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))))) → (¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))) → ¬ (χ → (θ → χ)))))
12	10, 11	ax-mp 5	. . . . 5 ⊢ ((¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))) → ((((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ)))) → ¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))))) → (¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))) → ¬ (χ → (θ → χ))))
13	3, 12	ax-mp 5	. . . 4 ⊢ (¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))) → ¬ (χ → (θ → χ)))
14		ax-3 8	. . . 4 ⊢ ((¬ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))) → ¬ (χ → (θ → χ))) → ((χ → (θ → χ)) → (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))))))
15	13, 14	ax-mp 5	. . 3 ⊢ ((χ → (θ → χ)) → (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))))
16	2, 15	ax-mp 5	. 2 ⊢ (¬ (((φ ↔ ψ) → ¬ ((φ → ψ) → ¬ (ψ → φ))) → ¬ (¬ ((φ → ψ) → ¬ (ψ → φ)) → (φ ↔ ψ))) → ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ))))
17	1, 16	ax-mp 5	1 ⊢ ((φ ↔ ψ) ↔ ¬ ((φ → ψ) → ¬ (ψ → φ)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 176

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8

This theorem depends on definitions:  df-bi 177

This theorem is referenced by: (None)