Theorem ordelordALT

Description: An element of an ordinal class is ordinal. Proposition 7.6 of TakeutiZaring p. 36. This is an alternate proof of ordelord using the Axiom of Regularity indirectly through dford2 . dford2 is a weaker definition of ordinal number. Given the Axiom of Regularity, it need not be assumed that _E Fr A because this is inferred by the Axiom of Regularity. ordelordALT is ordelordALTVD without virtual deductions and was automatically derived from ordelordALTVD using the tools program translate..without..overwriting.cmd and Metamath's minimize command. (Contributed by Alan Sare, 18-Feb-2012) (Proof modification is discouraged.) (New usage is discouraged.)

	Ref	Expression
Assertion	ordelordALT	|- ( ( Ord A /\ B e. A ) -> Ord B )

Proof

Step	Hyp	Ref	Expression
1		ordtr	|- ( Ord A -> Tr A )
2	1	adantr	|- ( ( Ord A /\ B e. A ) -> Tr A )
3		dford2	|- ( Ord A <-> ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ x = y \/ y e. x ) ) )
4	3	simprbi	|- ( Ord A -> A. x e. A A. y e. A ( x e. y \/ x = y \/ y e. x ) )
5	4	adantr	|- ( ( Ord A /\ B e. A ) -> A. x e. A A. y e. A ( x e. y \/ x = y \/ y e. x ) )
6		3orcomb	|- ( ( x e. y \/ x = y \/ y e. x ) <-> ( x e. y \/ y e. x \/ x = y ) )
7	6	2ralbii	|- ( A. x e. A A. y e. A ( x e. y \/ x = y \/ y e. x ) <-> A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) )
8	5 7	sylib	|- ( ( Ord A /\ B e. A ) -> A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) )
9		simpr	|- ( ( Ord A /\ B e. A ) -> B e. A )
10		tratrb	|- ( ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) -> Tr B )
11	2 8 9 10	syl3anc	|- ( ( Ord A /\ B e. A ) -> Tr B )
12		trss	|- ( Tr A -> ( B e. A -> B C_ A ) )
13	2 9 12	sylc	|- ( ( Ord A /\ B e. A ) -> B C_ A )
14		ssralv2	|- ( ( B C_ A /\ B C_ A ) -> ( A. x e. A A. y e. A ( x e. y \/ x = y \/ y e. x ) -> A. x e. B A. y e. B ( x e. y \/ x = y \/ y e. x ) ) )
15	14	ex	|- ( B C_ A -> ( B C_ A -> ( A. x e. A A. y e. A ( x e. y \/ x = y \/ y e. x ) -> A. x e. B A. y e. B ( x e. y \/ x = y \/ y e. x ) ) ) )
16	13 13 5 15	syl3c	|- ( ( Ord A /\ B e. A ) -> A. x e. B A. y e. B ( x e. y \/ x = y \/ y e. x ) )
17		dford2	|- ( Ord B <-> ( Tr B /\ A. x e. B A. y e. B ( x e. y \/ x = y \/ y e. x ) ) )
18	11 16 17	sylanbrc	|- ( ( Ord A /\ B e. A ) -> Ord B )