Theorem isltrn2N 40705

Description: The predicate "is a lattice translation". Version of isltrn 40704 that considers only different 𝑝 and 𝑞. TODO: Can this eliminate some separate proofs for the 𝑝 = 𝑞 case? (Contributed by NM, 22-Apr-2013.) (New usage is discouraged.)

Hypotheses

Ref	Expression
ltrnset.l	⊢ ≤ = (le‘𝐾)
ltrnset.j	⊢ ∨ = (join‘𝐾)
ltrnset.m	⊢ ∧ = (meet‘𝐾)
ltrnset.a	⊢ 𝐴 = (Atoms‘𝐾)
ltrnset.h	⊢ 𝐻 = (LHyp‘𝐾)
ltrnset.d	⊢ 𝐷 = ((LDil‘𝐾)‘𝑊)
ltrnset.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)

Assertion

Ref	Expression
isltrn2N	⊢ ((𝐾 ∈ 𝐵 ∧ 𝑊 ∈ 𝐻) → (𝐹 ∈ 𝑇 ↔ (𝐹 ∈ 𝐷 ∧ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑝 ≠ 𝑞) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)))))

Distinct variable groups:   𝑞,𝑝,𝐴   𝐾,𝑝,𝑞   𝑊,𝑝,𝑞   𝐹,𝑝,𝑞

Allowed substitution hints:   𝐵(𝑞,𝑝)   𝐷(𝑞,𝑝)   𝑇(𝑞,𝑝)   𝐻(𝑞,𝑝)   ∨ (𝑞,𝑝)   ≤ (𝑞,𝑝)   ∧ (𝑞,𝑝)

Proof of Theorem isltrn2N

Step	Hyp	Ref	Expression
1		ltrnset.l	. . 3 ⊢ ≤ = (le‘𝐾)
2		ltrnset.j	. . 3 ⊢ ∨ = (join‘𝐾)
3		ltrnset.m	. . 3 ⊢ ∧ = (meet‘𝐾)
4		ltrnset.a	. . 3 ⊢ 𝐴 = (Atoms‘𝐾)
5		ltrnset.h	. . 3 ⊢ 𝐻 = (LHyp‘𝐾)
6		ltrnset.d	. . 3 ⊢ 𝐷 = ((LDil‘𝐾)‘𝑊)
7		ltrnset.t	. . 3 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
8	1, 2, 3, 4, 5, 6, 7	isltrn 40704	. 2 ⊢ ((𝐾 ∈ 𝐵 ∧ 𝑊 ∈ 𝐻) → (𝐹 ∈ 𝑇 ↔ (𝐹 ∈ 𝐷 ∧ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)))))
9		3simpa 1160	. . . . . 6 ⊢ ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑝 ≠ 𝑞) → (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊))
10	9	imim1i 63	. . . . 5 ⊢ (((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)) → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑝 ≠ 𝑞) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)))
11		3anass 1105	. . . . . . . . 9 ⊢ ((𝑝 ≠ 𝑞 ∧ ¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) ↔ (𝑝 ≠ 𝑞 ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊)))
12		3anrot 1111	. . . . . . . . 9 ⊢ ((𝑝 ≠ 𝑞 ∧ ¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) ↔ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑝 ≠ 𝑞))
13		df-ne 2957	. . . . . . . . . 10 ⊢ (𝑝 ≠ 𝑞 ↔ ¬ 𝑝 = 𝑞)
14	13	anbi1i 633	. . . . . . . . 9 ⊢ ((𝑝 ≠ 𝑞 ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊)) ↔ (¬ 𝑝 = 𝑞 ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊)))
15	11, 12, 14	3bitr3i 303	. . . . . . . 8 ⊢ ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑝 ≠ 𝑞) ↔ (¬ 𝑝 = 𝑞 ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊)))
16	15	imbi1i 351	. . . . . . 7 ⊢ (((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑝 ≠ 𝑞) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)) ↔ ((¬ 𝑝 = 𝑞 ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊)) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)))
17		impexp 454	. . . . . . 7 ⊢ (((¬ 𝑝 = 𝑞 ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊)) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)) ↔ (¬ 𝑝 = 𝑞 → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊))))
18	16, 17	bitri 277	. . . . . 6 ⊢ (((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑝 ≠ 𝑞) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)) ↔ (¬ 𝑝 = 𝑞 → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊))))
19		id 22	. . . . . . . . . 10 ⊢ (𝑝 = 𝑞 → 𝑝 = 𝑞)
20		fveq2 6862	. . . . . . . . . 10 ⊢ (𝑝 = 𝑞 → (𝐹‘𝑝) = (𝐹‘𝑞))
21	19, 20	oveq12d 7409	. . . . . . . . 9 ⊢ (𝑝 = 𝑞 → (𝑝 ∨ (𝐹‘𝑝)) = (𝑞 ∨ (𝐹‘𝑞)))
22	21	oveq1d 7406	. . . . . . . 8 ⊢ (𝑝 = 𝑞 → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊))
23	22	a1d 25	. . . . . . 7 ⊢ (𝑝 = 𝑞 → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)))
24		pm2.61 193	. . . . . . 7 ⊢ ((𝑝 = 𝑞 → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊))) → ((¬ 𝑝 = 𝑞 → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊))) → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊))))
25	23, 24	ax-mp 5	. . . . . 6 ⊢ ((¬ 𝑝 = 𝑞 → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊))) → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)))
26	18, 25	sylbi 219	. . . . 5 ⊢ (((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑝 ≠ 𝑞) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)) → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)))
27	10, 26	impbii 211	. . . 4 ⊢ (((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)) ↔ ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑝 ≠ 𝑞) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)))
28	27	2ralbii 3136	. . 3 ⊢ (∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)) ↔ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑝 ≠ 𝑞) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)))
29	28	anbi2i 632	. 2 ⊢ ((𝐹 ∈ 𝐷 ∧ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊))) ↔ (𝐹 ∈ 𝐷 ∧ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑝 ≠ 𝑞) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊))))
30	8, 29	bitrdi 289	1 ⊢ ((𝐾 ∈ 𝐵 ∧ 𝑊 ∈ 𝐻) → (𝐹 ∈ 𝑇 ↔ (𝐹 ∈ 𝐷 ∧ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝑝 ≠ 𝑞) → ((𝑝 ∨ (𝐹‘𝑝)) ∧ 𝑊) = ((𝑞 ∨ (𝐹‘𝑞)) ∧ 𝑊)))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 399   ∧ w3a 1097   = wceq 1559   ∈ wcel 2141   ≠ wne 2956  ∀wral 3075   class class class wbr 5097  ‘cfv 6516  (class class class)co 7391  lecple 17284  joincjn 18334  meetcmee 18335  Atomscatm 39848  LHypclh 40569  LDilcldil 40685  LTrncltrn 40686

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5224  ax-sep 5243  ax-nul 5253  ax-pr 5387

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3076  df-rex 3086  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4863  df-iun 4948  df-br 5098  df-opab 5160  df-mpt 5179  df-id 5538  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-iota 6472  df-fun 6518  df-fn 6519  df-f 6520  df-f1 6521  df-fo 6522  df-f1o 6523  df-fv 6524  df-ov 7394  df-ltrn 40690

This theorem is referenced by: (None)