Theorem ncolcom

Description: Swapping non-colinear points. (Contributed by Thierry Arnoux, 19-Oct-2019)

	Ref	Expression
Hypotheses	tglngval.p	|- P = ( Base ` G )
	tglngval.l	|- L = ( LineG ` G )
	tglngval.i	|- I = ( Itv ` G )
	tglngval.g	|- ( ph -> G e. TarskiG )
	tglngval.x	|- ( ph -> X e. P )
	tglngval.y	|- ( ph -> Y e. P )
	tgcolg.z	|- ( ph -> Z e. P )
	ncolrot	|- ( ph -> -. ( Z e. ( X L Y ) \/ X = Y ) )
Assertion	ncolcom	|- ( ph -> -. ( Z e. ( Y L X ) \/ Y = X ) )

Proof

Step	Hyp	Ref	Expression
1		tglngval.p	|- P = ( Base ` G )
2		tglngval.l	|- L = ( LineG ` G )
3		tglngval.i	|- I = ( Itv ` G )
4		tglngval.g	|- ( ph -> G e. TarskiG )
5		tglngval.x	|- ( ph -> X e. P )
6		tglngval.y	|- ( ph -> Y e. P )
7		tgcolg.z	|- ( ph -> Z e. P )
8		ncolrot	|- ( ph -> -. ( Z e. ( X L Y ) \/ X = Y ) )
9	4	adantr	|- ( ( ph /\ ( Z e. ( Y L X ) \/ Y = X ) ) -> G e. TarskiG )
10	6	adantr	|- ( ( ph /\ ( Z e. ( Y L X ) \/ Y = X ) ) -> Y e. P )
11	5	adantr	|- ( ( ph /\ ( Z e. ( Y L X ) \/ Y = X ) ) -> X e. P )
12	7	adantr	|- ( ( ph /\ ( Z e. ( Y L X ) \/ Y = X ) ) -> Z e. P )
13		simpr	|- ( ( ph /\ ( Z e. ( Y L X ) \/ Y = X ) ) -> ( Z e. ( Y L X ) \/ Y = X ) )
14	1 2 3 9 10 11 12 13	colcom	|- ( ( ph /\ ( Z e. ( Y L X ) \/ Y = X ) ) -> ( Z e. ( X L Y ) \/ X = Y ) )
15	8 14	mtand	|- ( ph -> -. ( Z e. ( Y L X ) \/ Y = X ) )