Theorem cdlemk19-2N

Description: Part of proof of Lemma K of Crawley p. 118. Line 22 on p. 119. N , V , Q , C are k, sigma_2 (p), k_2, f_2. (Contributed by NM, 2-Jul-2013) (New usage is discouraged.)

	Ref	Expression
Hypotheses	cdlemk2.b	⊢ 𝐵 = ( Base ‘ 𝐾 )
	cdlemk2.l	⊢ ≤ = ( le ‘ 𝐾 )
	cdlemk2.j	⊢ ∨ = ( join ‘ 𝐾 )
	cdlemk2.m	⊢ ∧ = ( meet ‘ 𝐾 )
	cdlemk2.a	⊢ 𝐴 = ( Atoms ‘ 𝐾 )
	cdlemk2.h	⊢ 𝐻 = ( LHyp ‘ 𝐾 )
	cdlemk2.t	⊢ 𝑇 = ( ( LTrn ‘ 𝐾 ) ‘ 𝑊 )
	cdlemk2.r	⊢ 𝑅 = ( ( trL ‘ 𝐾 ) ‘ 𝑊 )
	cdlemk2.s	⊢ 𝑆 = ( 𝑓 ∈ 𝑇 ↦ ( ℩ 𝑖 ∈ 𝑇 ( 𝑖 ‘ 𝑃 ) = ( ( 𝑃 ∨ ( 𝑅 ‘ 𝑓 ) ) ∧ ( ( 𝑁 ‘ 𝑃 ) ∨ ( 𝑅 ‘ ( 𝑓 ∘ ◡ 𝐹 ) ) ) ) ) )
	cdlemk2.q	⊢ 𝑄 = ( 𝑆 ‘ 𝐶 )
	cdlemk2.v	⊢ 𝑉 = ( 𝑑 ∈ 𝑇 ↦ ( ℩ 𝑘 ∈ 𝑇 ( 𝑘 ‘ 𝑃 ) = ( ( 𝑃 ∨ ( 𝑅 ‘ 𝑑 ) ) ∧ ( ( 𝑄 ‘ 𝑃 ) ∨ ( 𝑅 ‘ ( 𝑑 ∘ ◡ 𝐶 ) ) ) ) ) )
Assertion	cdlemk19-2N	⊢ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ∧ 𝑁 ∈ 𝑇 ) ∧ ( ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ) ) → ( 𝑉 ‘ 𝐹 ) = 𝑁 )

Proof

Step	Hyp	Ref	Expression
1		cdlemk2.b	⊢ 𝐵 = ( Base ‘ 𝐾 )
2		cdlemk2.l	⊢ ≤ = ( le ‘ 𝐾 )
3		cdlemk2.j	⊢ ∨ = ( join ‘ 𝐾 )
4		cdlemk2.m	⊢ ∧ = ( meet ‘ 𝐾 )
5		cdlemk2.a	⊢ 𝐴 = ( Atoms ‘ 𝐾 )
6		cdlemk2.h	⊢ 𝐻 = ( LHyp ‘ 𝐾 )
7		cdlemk2.t	⊢ 𝑇 = ( ( LTrn ‘ 𝐾 ) ‘ 𝑊 )
8		cdlemk2.r	⊢ 𝑅 = ( ( trL ‘ 𝐾 ) ‘ 𝑊 )
9		cdlemk2.s	⊢ 𝑆 = ( 𝑓 ∈ 𝑇 ↦ ( ℩ 𝑖 ∈ 𝑇 ( 𝑖 ‘ 𝑃 ) = ( ( 𝑃 ∨ ( 𝑅 ‘ 𝑓 ) ) ∧ ( ( 𝑁 ‘ 𝑃 ) ∨ ( 𝑅 ‘ ( 𝑓 ∘ ◡ 𝐹 ) ) ) ) ) )
10		cdlemk2.q	⊢ 𝑄 = ( 𝑆 ‘ 𝐶 )
11		cdlemk2.v	⊢ 𝑉 = ( 𝑑 ∈ 𝑇 ↦ ( ℩ 𝑘 ∈ 𝑇 ( 𝑘 ‘ 𝑃 ) = ( ( 𝑃 ∨ ( 𝑅 ‘ 𝑑 ) ) ∧ ( ( 𝑄 ‘ 𝑃 ) ∨ ( 𝑅 ‘ ( 𝑑 ∘ ◡ 𝐶 ) ) ) ) ) )
12		simp11	⊢ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ∧ 𝑁 ∈ 𝑇 ) ∧ ( ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ) ) → 𝐾 ∈ HL )
13		simp12	⊢ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ∧ 𝑁 ∈ 𝑇 ) ∧ ( ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ) ) → 𝑊 ∈ 𝐻 )
14	12 13	jca	⊢ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ∧ 𝑁 ∈ 𝑇 ) ∧ ( ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ) ) → ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) )
15		simp21	⊢ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ∧ 𝑁 ∈ 𝑇 ) ∧ ( ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ) ) → 𝐹 ∈ 𝑇 )
16		simp22	⊢ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ∧ 𝑁 ∈ 𝑇 ) ∧ ( ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ) ) → 𝐶 ∈ 𝑇 )
17		simp23	⊢ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ∧ 𝑁 ∈ 𝑇 ) ∧ ( ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ) ) → 𝑁 ∈ 𝑇 )
18		simp33	⊢ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ∧ 𝑁 ∈ 𝑇 ) ∧ ( ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ) ) → ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) )
19		simp13	⊢ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ∧ 𝑁 ∈ 𝑇 ) ∧ ( ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ) ) → ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) )
20		simp32l	⊢ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ∧ 𝑁 ∈ 𝑇 ) ∧ ( ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ) ) → 𝐹 ≠ ( I ↾ 𝐵 ) )
21		simp32r	⊢ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ∧ 𝑁 ∈ 𝑇 ) ∧ ( ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ) ) → 𝐶 ≠ ( I ↾ 𝐵 ) )
22		simp31	⊢ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ∧ 𝑁 ∈ 𝑇 ) ∧ ( ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ) ) → ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) )
23	1 2 3 4 5 6 7 8 9 10 11	cdlemk19	⊢ ( ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ) ∧ ( 𝑁 ∈ 𝑇 ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ) ) → ( 𝑉 ‘ 𝐹 ) = 𝑁 )
24	14 15 16 17 18 19 20 21 22 23	syl333anc	⊢ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐶 ∈ 𝑇 ∧ 𝑁 ∈ 𝑇 ) ∧ ( ( 𝑅 ‘ 𝐶 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐶 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ) ) → ( 𝑉 ‘ 𝐹 ) = 𝑁 )