Theorem hfext

Description: Extensionality for HF sets depends only on comparison of HF elements. (Contributed by Scott Fenton, 16-Jul-2015)

	Ref	Expression
Assertion	hfext	|- ( ( A e. Hf /\ B e. Hf ) -> ( A = B <-> A. x e. Hf ( x e. A <-> x e. B ) ) )

Proof

Step	Hyp	Ref	Expression
1		dfcleq	|- ( A = B <-> A. x ( x e. A <-> x e. B ) )
2		unvdif	|- ( Hf u. ( _V \ Hf ) ) = _V
3	2	raleqi	|- ( A. x e. ( Hf u. ( _V \ Hf ) ) ( x e. A <-> x e. B ) <-> A. x e. _V ( x e. A <-> x e. B ) )
4		ralv	|- ( A. x e. _V ( x e. A <-> x e. B ) <-> A. x ( x e. A <-> x e. B ) )
5	3 4	bitr2i	|- ( A. x ( x e. A <-> x e. B ) <-> A. x e. ( Hf u. ( _V \ Hf ) ) ( x e. A <-> x e. B ) )
6		ralunb	|- ( A. x e. ( Hf u. ( _V \ Hf ) ) ( x e. A <-> x e. B ) <-> ( A. x e. Hf ( x e. A <-> x e. B ) /\ A. x e. ( _V \ Hf ) ( x e. A <-> x e. B ) ) )
7	1 5 6	3bitri	|- ( A = B <-> ( A. x e. Hf ( x e. A <-> x e. B ) /\ A. x e. ( _V \ Hf ) ( x e. A <-> x e. B ) ) )
8		vex	|- x e. _V
9		eldif	|- ( x e. ( _V \ Hf ) <-> ( x e. _V /\ -. x e. Hf ) )
10	8 9	mpbiran	|- ( x e. ( _V \ Hf ) <-> -. x e. Hf )
11		hfelhf	|- ( ( x e. A /\ A e. Hf ) -> x e. Hf )
12	11	stoic1b	|- ( ( A e. Hf /\ -. x e. Hf ) -> -. x e. A )
13	12	adantlr	|- ( ( ( A e. Hf /\ B e. Hf ) /\ -. x e. Hf ) -> -. x e. A )
14		hfelhf	|- ( ( x e. B /\ B e. Hf ) -> x e. Hf )
15	14	stoic1b	|- ( ( B e. Hf /\ -. x e. Hf ) -> -. x e. B )
16	15	adantll	|- ( ( ( A e. Hf /\ B e. Hf ) /\ -. x e. Hf ) -> -. x e. B )
17	13 16	2falsed	|- ( ( ( A e. Hf /\ B e. Hf ) /\ -. x e. Hf ) -> ( x e. A <-> x e. B ) )
18	10 17	sylan2b	|- ( ( ( A e. Hf /\ B e. Hf ) /\ x e. ( _V \ Hf ) ) -> ( x e. A <-> x e. B ) )
19	18	ralrimiva	|- ( ( A e. Hf /\ B e. Hf ) -> A. x e. ( _V \ Hf ) ( x e. A <-> x e. B ) )
20	19	biantrud	|- ( ( A e. Hf /\ B e. Hf ) -> ( A. x e. Hf ( x e. A <-> x e. B ) <-> ( A. x e. Hf ( x e. A <-> x e. B ) /\ A. x e. ( _V \ Hf ) ( x e. A <-> x e. B ) ) ) )
21	7 20	bitr4id	|- ( ( A e. Hf /\ B e. Hf ) -> ( A = B <-> A. x e. Hf ( x e. A <-> x e. B ) ) )