30 lines
1,002 B
Text
30 lines
1,002 B
Text
-- BEGINSET
|
|
-- ENDSET
|
|
-- BEGINWAIT
|
|
-- ENDWAIT
|
|
-- BEGINFINDP
|
|
bool.bor_tt|∀ (a : bool), eq (bool.bor a bool.tt) bool.tt
|
|
bool.band_tt|∀ (a : bool), eq (bool.band a bool.tt) a
|
|
bool.tt|bool
|
|
bool.absurd_of_eq_ff_of_eq_tt|eq ?a bool.ff → eq ?a bool.tt → ?B
|
|
bool.eq_tt_of_ne_ff|ne ?a bool.ff → eq ?a bool.tt
|
|
bool.tt_band|∀ (a : bool), eq (bool.band bool.tt a) a
|
|
bool.cond_tt|∀ (t e : ?A), eq (bool.cond bool.tt t e) t
|
|
bool.ff_ne_tt|not (eq bool.ff bool.tt)
|
|
bool.eq_ff_of_ne_tt|ne ?a bool.tt → eq ?a bool.ff
|
|
bool.tt_bor|∀ (a : bool), eq (bool.bor bool.tt a) bool.tt
|
|
-- ENDFINDP
|
|
-- BEGINWAIT
|
|
-- ENDWAIT
|
|
-- BEGINFINDP
|
|
tt|bool
|
|
tt_bor|∀ (a : bool), eq (bor tt a) tt
|
|
tt_band|∀ (a : bool), eq (band tt a) a
|
|
bor_tt|∀ (a : bool), eq (bor a tt) tt
|
|
band_tt|∀ (a : bool), eq (band a tt) a
|
|
absurd_of_eq_ff_of_eq_tt|eq ?a ff → eq ?a tt → ?B
|
|
eq_tt_of_ne_ff|ne ?a ff → eq ?a tt
|
|
cond_tt|∀ (t e : ?A), eq (cond tt t e) t
|
|
ff_ne_tt|not (eq ff tt)
|
|
eq_ff_of_ne_tt|ne ?a tt → eq ?a ff
|
|
-- ENDFINDP
|