2015-07-06 15:05:01 -07:00
|
|
|
import logic
|
2014-09-04 16:36:06 -07:00
|
|
|
open function bool
|
2014-07-24 16:29:39 -07:00
|
|
|
|
|
|
|
|
2014-10-02 16:20:52 -07:00
|
|
|
constant f : num → bool
|
|
|
|
constant g : num → num
|
2014-07-24 16:29:39 -07:00
|
|
|
|
|
|
|
check f ∘ g ∘ g
|
|
|
|
|
2015-06-10 14:08:46 -07:00
|
|
|
check (id : num → num)
|
2014-07-24 16:29:39 -07:00
|
|
|
|
2014-10-02 16:20:52 -07:00
|
|
|
constant h : num → bool → num
|
2014-07-24 16:29:39 -07:00
|
|
|
|
2015-06-04 18:51:34 +10:00
|
|
|
check swap h
|
|
|
|
check swap h ff num.zero
|
2014-07-24 16:29:39 -07:00
|
|
|
|
2015-06-10 14:08:46 -07:00
|
|
|
check (swap h ff num.zero : num)
|
2014-07-24 16:29:39 -07:00
|
|
|
|
2014-10-02 16:20:52 -07:00
|
|
|
constant f1 : num → num → bool
|
|
|
|
constant f2 : bool → num
|
2014-07-24 16:29:39 -07:00
|
|
|
|
2014-07-28 19:58:57 -07:00
|
|
|
check (f1 on f2) ff tt
|