HOLE Home Higher-Order Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  HOLE Home  >  Th. List  >  leqf Unicode version

Theorem leqf 169
Description: Equality theorem for lambda abstraction, using bound variable instead of distinct variables.
Hypotheses
Ref Expression
leqf.1 |- A:be
leqf.2 |- R |= [A = B]
leqf.3 |- T. |= [(\x:al Ry:al) = R]
Assertion
Ref Expression
leqf |- R |= [\x:al A = \x:al B]
Distinct variable groups:   y,A   y,B   y,R   x,y,al

Proof of Theorem leqf
Dummy variable z is distinct from all other variables.
StepHypRef Expression
1 leqf.1 . . . . 5 |- A:be
21wl 59 . . . 4 |- \x:al A:(al -> be)
3 wv 58 . . . 4 |- z:al:al
42, 3wc 45 . . 3 |- (\x:al Az:al):be
54wl 59 . 2 |- \z:al (\x:al Az:al):(al -> be)
6 leqf.2 . . . . 5 |- R |= [A = B]
76ax-cb1 29 . . . . . 6 |- R:*
81beta 82 . . . . . 6 |- T. |= [(\x:al Ax:al) = A]
97, 8a1i 28 . . . . 5 |- R |= [(\x:al Ax:al) = A]
101, 6eqtypi 69 . . . . . . 7 |- B:be
1110beta 82 . . . . . 6 |- T. |= [(\x:al Bx:al) = B]
127, 11a1i 28 . . . . 5 |- R |= [(\x:al Bx:al) = B]
131, 6, 9, 123eqtr4i 86 . . . 4 |- R |= [(\x:al Ax:al) = (\x:al Bx:al)]
14 weq 38 . . . . 5 |- = :(be -> (be -> *))
15 wv 58 . . . . 5 |- y:al:al
1610wl 59 . . . . . 6 |- \x:al B:(al -> be)
1716, 3wc 45 . . . . 5 |- (\x:al Bz:al):be
1814, 15ax-17 95 . . . . 5 |- T. |= [(\x:al = y:al) = = ]
191, 15ax-hbl1 93 . . . . . 6 |- T. |= [(\x:al \x:al Ay:al) = \x:al A]
203, 15ax-17 95 . . . . . 6 |- T. |= [(\x:al z:aly:al) = z:al]
212, 3, 15, 19, 20hbc 100 . . . . 5 |- T. |= [(\x:al (\x:al Az:al)y:al) = (\x:al Az:al)]
2210, 15ax-hbl1 93 . . . . . 6 |- T. |= [(\x:al \x:al By:al) = \x:al B]
2316, 3, 15, 22, 20hbc 100 . . . . 5 |- T. |= [(\x:al (\x:al Bz:al)y:al) = (\x:al Bz:al)]
2414, 4, 15, 17, 18, 21, 23hbov 101 . . . 4 |- T. |= [(\x:al [(\x:al Az:al) = (\x:al Bz:al)]y:al) = [(\x:al Az:al) = (\x:al Bz:al)]]
25 leqf.3 . . . 4 |- T. |= [(\x:al Ry:al) = R]
26 wv 58 . . . . . 6 |- x:al:al
272, 26wc 45 . . . . 5 |- (\x:al Ax:al):be
2816, 26wc 45 . . . . 5 |- (\x:al Bx:al):be
2926, 3weqi 68 . . . . . . 7 |- [x:al = z:al]:*
3029id 25 . . . . . 6 |- [x:al = z:al] |= [x:al = z:al]
312, 26, 30ceq2 80 . . . . 5 |- [x:al = z:al] |= [(\x:al Ax:al) = (\x:al Az:al)]
3216, 26, 30ceq2 80 . . . . 5 |- [x:al = z:al] |= [(\x:al Bx:al) = (\x:al Bz:al)]
3314, 27, 28, 31, 32oveq12 90 . . . 4 |- [x:al = z:al] |= [[(\x:al Ax:al) = (\x:al Bx:al)] = [(\x:al Az:al) = (\x:al Bz:al)]]
3429, 7eqid 73 . . . 4 |- [x:al = z:al] |= [R = R]
3513, 24, 25, 33, 34ax-inst 103 . . 3 |- R |= [(\x:al Az:al) = (\x:al Bz:al)]
364, 35leq 81 . 2 |- R |= [\z:al (\x:al Az:al) = \z:al (\x:al Bz:al)]
372eta 166 . . 3 |- T. |= [\z:al (\x:al Az:al) = \x:al A]
387, 37a1i 28 . 2 |- R |= [\z:al (\x:al Az:al) = \x:al A]
3916eta 166 . . 3 |- T. |= [\z:al (\x:al Bz:al) = \x:al B]
407, 39a1i 28 . 2 |- R |= [\z:al (\x:al Bz:al) = \x:al B]
415, 36, 38, 403eqtr3i 87 1 |- R |= [\x:al A = \x:al B]
Colors of variables: type var term
Syntax hints:  tv 1   -> ht 2  *hb 3  kc 5  \kl 6   = ke 7  T.kt 8  [kbr 9   |= wffMMJ2 11  wffMMJ2t 12
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-ded 43  ax-ceq 46  ax-beta 60  ax-distrc 61  ax-leq 62  ax-hbl1 93  ax-17 95  ax-inst 103  ax-eta 165
This theorem depends on definitions:  df-ov 65  df-al 116
This theorem is referenced by:  alrimi  170  axext  206  axrep  207
  Copyright terms: Public domain W3C validator