Theorem trintALT 39117

Description: The intersection of a class of transitive sets is transitive. Exercise 5(b) of [Enderton] p. 73. trintALT 39117 is an alternate proof of trint 4768. trintALT 39117 is trintALTVD 39116 without virtual deductions and was automatically derived from trintALTVD 39116 using the tools program translate..without..overwriting.cmd and Metamath's minimize command. (Contributed by Alan Sare, 17-Apr-2012.) (Proof modification is discouraged.) (New usage is discouraged.)

Assertion

Ref	Expression
trintALT	|- ( A. x e. A Tr x -> Tr |^| A )

Distinct variable group:   x, A

Proof of Theorem trintALT

Dummy variables q y z are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl 473	. . . . 5 |- ( ( z e. y /\ y e. |^| A ) -> z e. y )
2	1	a1i 11	. . . 4 |- ( A. x e. A Tr x -> ( ( z e. y /\ y e. |^| A ) -> z e. y ) )
3		iidn3 38707	. . . . . . 7 |- ( A. x e. A Tr x -> ( ( z e. y /\ y e. |^| A ) -> ( q e. A -> q e. A ) ) )
4		id 22	. . . . . . . 8 |- ( A. x e. A Tr x -> A. x e. A Tr x )
5		rspsbc 3518	. . . . . . . 8 |- ( q e. A -> ( A. x e. A Tr x -> [. q / x ]. Tr x ) )
6	3, 4, 5	ee31 38979	. . . . . . 7 |- ( A. x e. A Tr x -> ( ( z e. y /\ y e. |^| A ) -> ( q e. A -> [. q / x ]. Tr x ) ) )
7		trsbc 38750	. . . . . . . 8 |- ( q e. A -> ( [. q / x ]. Tr x <-> Tr q ) )
8	7	biimpd 219	. . . . . . 7 |- ( q e. A -> ( [. q / x ]. Tr x -> Tr q ) )
9	3, 6, 8	ee33 38727	. . . . . 6 |- ( A. x e. A Tr x -> ( ( z e. y /\ y e. |^| A ) -> ( q e. A -> Tr q ) ) )
10		simpr 477	. . . . . . . . 9 |- ( ( z e. y /\ y e. |^| A ) -> y e. |^| A )
11	10	a1i 11	. . . . . . . 8 |- ( A. x e. A Tr x -> ( ( z e. y /\ y e. |^| A ) -> y e. |^| A ) )
12		elintg 4483	. . . . . . . . 9 |- ( y e. |^| A -> ( y e. |^| A <-> A. q e. A y e. q ) )
13	12	ibi 256	. . . . . . . 8 |- ( y e. |^| A -> A. q e. A y e. q )
14	11, 13	syl6 35	. . . . . . 7 |- ( A. x e. A Tr x -> ( ( z e. y /\ y e. |^| A ) -> A. q e. A y e. q ) )
15		rsp 2929	. . . . . . 7 |- ( A. q e. A y e. q -> ( q e. A -> y e. q ) )
16	14, 15	syl6 35	. . . . . 6 |- ( A. x e. A Tr x -> ( ( z e. y /\ y e. |^| A ) -> ( q e. A -> y e. q ) ) )
17		trel 4759	. . . . . . 7 |- ( Tr q -> ( ( z e. y /\ y e. q ) -> z e. q ) )
18	17	expd 452	. . . . . 6 |- ( Tr q -> ( z e. y -> ( y e. q -> z e. q ) ) )
19	9, 2, 16, 18	ee323 38714	. . . . 5 |- ( A. x e. A Tr x -> ( ( z e. y /\ y e. |^| A ) -> ( q e. A -> z e. q ) ) )
20	19	ralrimdv 2968	. . . 4 |- ( A. x e. A Tr x -> ( ( z e. y /\ y e. |^| A ) -> A. q e. A z e. q ) )
21		elintg 4483	. . . . 5 |- ( z e. y -> ( z e. |^| A <-> A. q e. A z e. q ) )
22	21	biimprd 238	. . . 4 |- ( z e. y -> ( A. q e. A z e. q -> z e. |^| A ) )
23	2, 20, 22	syl6c 70	. . 3 |- ( A. x e. A Tr x -> ( ( z e. y /\ y e. |^| A ) -> z e. |^| A ) )
24	23	alrimivv 1856	. 2 |- ( A. x e. A Tr x -> A. z A. y ( ( z e. y /\ y e. |^| A ) -> z e. |^| A ) )
25		dftr2 4754	. 2 |- ( Tr |^| A <-> A. z A. y ( ( z e. y /\ y e. |^| A ) -> z e. |^| A ) )
26	24, 25	sylibr 224	1 |- ( A. x e. A Tr x -> Tr |^| A )

Syntax hints:   -> wi 4   /\ wa 384   A.wal 1481   e. wcel 1990   A.wral 2912   [.wsbc 3435   |^|cint 4475   Tr wtr 4752

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ral 2917  df-v 3202  df-sbc 3436  df-in 3581  df-ss 3588  df-uni 4437  df-int 4476  df-tr 4753

This theorem is referenced by: (None)