2014-09-16 18:58:54 +00:00
|
|
|
import logic algebra.function
|
2014-09-04 23:36:06 +00:00
|
|
|
open function bool
|
2014-07-24 23:29:39 +00:00
|
|
|
|
|
|
|
|
|
2014-10-02 23:20:52 +00:00
|
|
|
constant f : num → bool
|
|
|
|
|
constant g : num → num
|
2014-07-24 23:29:39 +00:00
|
|
|
|
|
|
|
|
check f ∘ g ∘ g
|
|
|
|
|
|
|
|
|
|
check typeof id : num → num
|
|
|
|
|
check num → num ⟨is_typeof⟩ id
|
|
|
|
|
|
2014-10-02 23:20:52 +00:00
|
|
|
constant h : num → bool → num
|
2014-07-24 23:29:39 +00:00
|
|
|
|
|
|
|
|
check flip h
|
2014-09-04 23:36:06 +00:00
|
|
|
check flip h ff num.zero
|
2014-07-24 23:29:39 +00:00
|
|
|
|
2014-09-04 23:36:06 +00:00
|
|
|
check typeof flip h ff num.zero : num
|
2014-07-24 23:29:39 +00:00
|
|
|
|
2014-10-02 23:20:52 +00:00
|
|
|
constant f1 : num → num → bool
|
|
|
|
|
constant f2 : bool → num
|
2014-07-24 23:29:39 +00:00
|
|
|
|
2014-07-29 02:58:57 +00:00
|
|
|
check (f1 on f2) ff tt
|
