Theorem imval 136

Description: Value of the implication.

Hypotheses

Ref	Expression
imval.1	⊢ A:∗
imval.2	⊢ B:∗

Assertion

Ref	Expression
imval	⊢ ⊤⊧[[A ⇒ B] = [[A ∧ B] = A]]

Proof of Theorem imval

Dummy variables p q are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		wim 127	. . 3 ⊢ ⇒ :(∗ → (∗ → ∗))
2		imval.1	. . 3 ⊢ A:∗
3		imval.2	. . 3 ⊢ B:∗
4	1, 2, 3	wov 64	. 2 ⊢ [A ⇒ B]:∗
5		df-im 119	. . 3 ⊢ ⊤⊧[ ⇒ = λp:∗ λq:∗ [[p:∗ ∧ q:∗] = p:∗]]
6	1, 2, 3, 5	oveq 92	. 2 ⊢ ⊤⊧[[A ⇒ B] = [Aλp:∗ λq:∗ [[p:∗ ∧ q:∗] = p:∗]B]]
7		wan 126	. . . . 5 ⊢ ∧ :(∗ → (∗ → ∗))
8		wv 58	. . . . 5 ⊢ p:∗:∗
9		wv 58	. . . . 5 ⊢ q:∗:∗
10	7, 8, 9	wov 64	. . . 4 ⊢ [p:∗ ∧ q:∗]:∗
11	10, 8	weqi 68	. . 3 ⊢ [[p:∗ ∧ q:∗] = p:∗]:∗
12		weq 38	. . . 4 ⊢ = :(∗ → (∗ → ∗))
13	8, 2	weqi 68	. . . . . 6 ⊢ [p:∗ = A]:∗
14	13	id 25	. . . . 5 ⊢ [p:∗ = A]⊧[p:∗ = A]
15	7, 8, 9, 14	oveq1 89	. . . 4 ⊢ [p:∗ = A]⊧[[p:∗ ∧ q:∗] = [A ∧ q:∗]]
16	12, 10, 8, 15, 14	oveq12 90	. . 3 ⊢ [p:∗ = A]⊧[[[p:∗ ∧ q:∗] = p:∗] = [[A ∧ q:∗] = A]]
17	7, 2, 9	wov 64	. . . 4 ⊢ [A ∧ q:∗]:∗
18	9, 3	weqi 68	. . . . . 6 ⊢ [q:∗ = B]:∗
19	18	id 25	. . . . 5 ⊢ [q:∗ = B]⊧[q:∗ = B]
20	7, 2, 9, 19	oveq2 91	. . . 4 ⊢ [q:∗ = B]⊧[[A ∧ q:∗] = [A ∧ B]]
21	12, 17, 2, 20	oveq1 89	. . 3 ⊢ [q:∗ = B]⊧[[[A ∧ q:∗] = A] = [[A ∧ B] = A]]
22	11, 2, 3, 16, 21	ovl 107	. 2 ⊢ ⊤⊧[[Aλp:∗ λq:∗ [[p:∗ ∧ q:∗] = p:∗]B] = [[A ∧ B] = A]]
23	4, 6, 22	eqtri 85	1 ⊢ ⊤⊧[[A ⇒ B] = [[A ∧ B] = A]]

Syntax hints:  tv 1  ∗hb 3  λkl 6   = ke 7  ⊤kt 8  [kbr 9  ⊧wffMMJ2 11  wffMMJ2t 12   ∧ tan 109   ⇒ tim 111

This theorem was proved from axioms:  ax-syl 15  ax-jca 17  ax-simpl 20  ax-simpr 21  ax-id 24  ax-trud 26  ax-cb1 29  ax-cb2 30  ax-refl 39  ax-eqmp 42  ax-ceq 46  ax-beta 60  ax-distrc 61  ax-leq 62  ax-distrl 63  ax-hbl1 93  ax-17 95  ax-inst 103

This theorem depends on definitions:  df-ov 65  df-an 118  df-im 119

This theorem is referenced by:  mpd  146  ex  148