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

Theorem hbc 100
Description: Hypothesis builder for combination.
Hypotheses
Ref Expression
hbc.1 |- F:(be -> ga)
hbc.2 |- A:be
hbc.3 |- B:al
hbc.4 |- R |= [(\x:al FB) = F]
hbc.5 |- R |= [(\x:al AB) = A]
Assertion
Ref Expression
hbc |- R |= [(\x:al (FA)B) = (FA)]

Proof of Theorem hbc
StepHypRef Expression
1 hbc.1 . . . . 5 |- F:(be -> ga)
2 hbc.2 . . . . 5 |- A:be
31, 2wc 45 . . . 4 |- (FA):ga
43wl 59 . . 3 |- \x:al (FA):(al -> ga)
5 hbc.3 . . 3 |- B:al
64, 5wc 45 . 2 |- (\x:al (FA)B):ga
7 hbc.4 . . . 4 |- R |= [(\x:al FB) = F]
87ax-cb1 29 . . 3 |- R:*
91, 2, 5distrc 83 . . 3 |- T. |= [(\x:al (FA)B) = ((\x:al FB)(\x:al AB))]
108, 9a1i 28 . 2 |- R |= [(\x:al (FA)B) = ((\x:al FB)(\x:al AB))]
111wl 59 . . . 4 |- \x:al F:(al -> (be -> ga))
1211, 5wc 45 . . 3 |- (\x:al FB):(be -> ga)
13 hbc.5 . . . 4 |- R |= [(\x:al AB) = A]
142, 13eqtypri 71 . . 3 |- (\x:al AB):be
1512, 14, 7, 13ceq12 78 . 2 |- R |= [((\x:al FB)(\x:al AB)) = (FA)]
166, 10, 15eqtri 85 1 |- R |= [(\x:al (FA)B) = (FA)]
Colors of variables: type var term
Syntax hints:   -> ht 2  kc 5  \kl 6   = ke 7  [kbr 9   |= wffMMJ2 11  wffMMJ2t 12
This theorem was proved from axioms:  ax-syl 15  ax-jca 17  ax-trud 26  ax-cb1 29  ax-cb2 30  ax-refl 39  ax-eqmp 42  ax-ceq 46  ax-distrc 61
This theorem depends on definitions:  df-ov 65
This theorem is referenced by:  hbov  101  clf  105  exlimdv  157  cbvf  167  leqf  169  exlimd  171  alimdv  172  eximdv  173  alnex  174  exmid  186  ax5  194  ax6  195  ax7  196  ax9  199  axext  206  axrep  207
  Copyright terms: Public domain W3C validator