Origin Definitions Sections HOLlib Doc
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
hol_bool
Nuprl Section: hol_bool

Selected Objects
defb_exists_unique b_exists_unique('a;x.p(x))
== (x:'ap(x))(x,y:'a.  (p(x)p(y))(x = y))
THMassert_of_b_exists_unique p:('a). 
b_exists_unique('a;x.p(x))  (x:'ap(x)) & (x,y:'ap(x) & p(y x = y)
defone_one one_one('a;'b;f) == x,y:'af(x) = f(y 'b  x = y
defonto onto('a;'b;f) == y:'bx:'ay = f(x)
defhexists exists == p:'ax:'a. (p(x))
defht t == true
defhall all == p:'ax:'a. (p(x))
defhand and == p:q:pq
defhor or == p:q:p  q
defhf f == false
defhnot not == p:p
defhexists_unique exists_unique == p:'a. b_exists_unique('a;x.p(x))
defhlet let == f:'a'be:'a. let x = e in f(x)
defhcond cond == b:p:'aq:'a. if b then p else q fi 
defhone_one one_one == f:'a'bone_one('a;'b;f)
defhonto onto == f:'a'bonto('a;'b;f)
defhtype_definition type_definition == P:'arep:'b'atype_definition('a;'b;P;rep)
THMhexists_def 'a:S. equal(exists,P:'a  hbool. P(select(P)))
THMhtruth equal(t,equal((x:hbool. x),x:hbool. x))
THMhforall_def 'a:S. equal(all,P:'a  hbool. equal(P,x:'a. t))
THMhand_def equal
(and
,t1:hbool. t2:hbool. all(t:hbool. implies(implies(t1,implies(t2,t)),t)))
THMhor_def equal
(or
,t1:hbool. t2:hbool. all
,t1:hbool. t2:hbool. (t:hbool. implies
,t1:hbool. t2:hbool. (t:hbool. (implies(t1,t)
,t1:hbool. t2:hbool. (t:hbool. ,implies(implies(t2,t),t))))
THMhf_def equal(f,all(t:hbool. t))
THMhnot_def equal(not,t:hbool. implies(t,f))
THMhexists_unique_def 'a:S. 
equal
(exists_unique
,P:'a  hbool. and
,P:'a  hbool. (exists(P)
,P:'a  hbool. ,all(x:'a. all(y:'a. implies(and(P(x),P(y)),equal(x,y))))))
THMhlet_def 'b,'a:S. equal(let,f:'a  'bx:'af(x))
THMhcond_def 'a:S. 
equal
(cond
,t:hbool. t1:'at2:'a. select
,t:hbool. t1:'at2:'a(x:'a. and
,t:hbool. t1:'at2:'a. (x:'a(implies(equal(t,t),equal(x,t1))
,t:hbool. t1:'at2:'a. (x:'a,implies(equal(t,f),equal(x,t2)))))
THMhone_one_def 'b,'a:S.
all
(f:'a  'b. equal
(f:'a  'b(one_one(f)
(f:'a  'b,all
(f:'a  'b. ,(x1:'a. all(x2:'a. implies(equal(f(x1),f(x2)),equal(x1,x2))))))
THMhonto_def 'a,'b:S.
all(f:'a  'b. equal(onto(f),all(y:'b. exists(x:'a. equal(y,f(x))))))
THMhtype_definition_wd 'b,'a:S.
all
(P:'a  hbool. all
(P:'a  hbool. (rep:'b  'a. equal
(P:'a  hbool. (rep:'b  'a(type_definition(P,rep)
(P:'a  hbool. (rep:'b  'a,and
(P:'a  hbool. (rep:'b  'a. ,(all
(P:'a  hbool. (rep:'b  'a. ,((x':'b. all
(P:'a  hbool. (rep:'b  'a. ,((x':'b(x'':'b. implies
(P:'a  hbool. (rep:'b  'a. ,((x':'b. (x'':'b(equal(rep(x'),rep(x''))
(P:'a  hbool. (rep:'b  'a. ,((x':'b. (x'':'b,equal(x',x''))))
(P:'a  hbool. (rep:'b  'a. ,,all
(P:'a  hbool. (rep:'b  'a. ,,(x:'a. equal
(P:'a  hbool. (rep:'b  'a. ,,(x:'a(P(x)
(P:'a  hbool. (rep:'b  'a. ,,(x:'a,exists
(P:'a  hbool. (rep:'b  'a. ,,(x:'a. ,(x':'b. equal(x,rep(x')))))))))
THMhbool_cases_ax all(t:hbool. or(equal(t,t),equal(t,f)))
THMhimp_antisym_ax all
(t1:hbool. all
(t1:hbool. (t2:hbool. implies
(t1:hbool. (t2:hbool. (implies(t1,t2)
(t1:hbool. (t2:hbool. ,implies(implies(t2,t1),equal(t1,t2)))))
THMheta_ax 'b,'a:S. all(t:'a  'b. equal((x:'at(x)),t))
THMhselect_ax 'a:S. all(P:'a  hbool. all(x:'a. implies(P(x),P(select(P)))))
THMhinfinity_ax exists(f:hind  hind. and(one_one(f),not(onto(f))))
THMband_simp_1 b:. (btrue) = b
THMbor_simp_1 b:. (b  true) = true
THMbor_simp_2 b:. (b  false) = b
THMbor_simp_3 b:. (true  b) = true
THMbor_simp_4 b:. (false  b) = b
THMband_simp_4 b:. (falseb) = false
THMband_simp_3 b:. (trueb) = b
THMband_simp_2 b:. (bfalse) = false
THMbnot_simp_1 true = false
THMbnot_simp_2 false = true
THMbequal_refl_simp 'a:S, x:'a. (x = x) = true
THMequal_btrue_to_assert p:p = true  p
THMequal_btrue_to_assert_2 p:. true = p  p
THMequal_bfalse_to_assert p:p = false  p
THMequal_bfalse_to_assert_2 p:. false = p  p
THMbexists_btrue 'a:S. (x:'a. true) = true
THMbexists_bfalse 'a:S. (x:'a. false) = false
THMball_btrue 'a:S. (x:'a. true) = true
THMball_bfalse 'a:S. (x:'a. false) = false
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html

Origin Definitions Sections HOLlib Doc