Metamath Proof Explorer


Theorem ttcmin

Description: The transitive closure of A is a subclass of every transitive class containing A . (Contributed by Matthew House, 6-Apr-2026)

Ref Expression
Assertion ttcmin Could not format assertion : No typesetting found for |- ( ( A C_ B /\ Tr B ) -> TC+ A C_ B ) with typecode |-

Proof

Step Hyp Ref Expression
1 df-ttc Could not format TC+ A = U_ x e. A U. ( rec ( ( y e. _V |-> U. y ) , { x } ) " _om ) : No typesetting found for |- TC+ A = U_ x e. A U. ( rec ( ( y e. _V |-> U. y ) , { x } ) " _om ) with typecode |-
2 ssel2 A B x A x B
3 rdgfun Fun rec y V y x
4 funiunfv Fun rec y V y x z ω rec y V y x z = rec y V y x ω
5 3 4 ax-mp z ω rec y V y x z = rec y V y x ω
6 fveq2 z = rec y V y x z = rec y V y x
7 6 sseq1d z = rec y V y x z B rec y V y x B
8 fveq2 z = w rec y V y x z = rec y V y x w
9 8 sseq1d z = w rec y V y x z B rec y V y x w B
10 fveq2 z = suc w rec y V y x z = rec y V y x suc w
11 10 sseq1d z = suc w rec y V y x z B rec y V y x suc w B
12 vsnex x V
13 12 rdg0 rec y V y x = x
14 snssi x B x B
15 13 14 eqsstrid x B rec y V y x B
16 15 adantr x B Tr B rec y V y x B
17 nnon w ω w On
18 fvex rec y V y x w V
19 18 uniex rec y V y x w V
20 eqid rec y V y x = rec y V y x
21 unieq z = y z = y
22 unieq z = rec y V y x w z = rec y V y x w
23 20 21 22 rdgsucmpt2 w On rec y V y x w V rec y V y x suc w = rec y V y x w
24 17 19 23 sylancl w ω rec y V y x suc w = rec y V y x w
25 24 3ad2ant1 w ω x B Tr B rec y V y x w B rec y V y x suc w = rec y V y x w
26 uniss rec y V y x w B rec y V y x w B
27 26 3ad2ant3 w ω x B Tr B rec y V y x w B rec y V y x w B
28 simp2r w ω x B Tr B rec y V y x w B Tr B
29 df-tr Tr B B B
30 28 29 sylib w ω x B Tr B rec y V y x w B B B
31 27 30 sstrd w ω x B Tr B rec y V y x w B rec y V y x w B
32 25 31 eqsstrd w ω x B Tr B rec y V y x w B rec y V y x suc w B
33 32 3exp w ω x B Tr B rec y V y x w B rec y V y x suc w B
34 7 9 11 16 33 finds2 z ω x B Tr B rec y V y x z B
35 34 impcom x B Tr B z ω rec y V y x z B
36 35 iunssd x B Tr B z ω rec y V y x z B
37 5 36 eqsstrrid x B Tr B rec y V y x ω B
38 2 37 sylan A B x A Tr B rec y V y x ω B
39 38 an32s A B Tr B x A rec y V y x ω B
40 39 iunssd A B Tr B x A rec y V y x ω B
41 1 40 eqsstrid Could not format ( ( A C_ B /\ Tr B ) -> TC+ A C_ B ) : No typesetting found for |- ( ( A C_ B /\ Tr B ) -> TC+ A C_ B ) with typecode |-