2019-06-24 18:23:32 +03:00
|
|
|
1/1: Building Door (Door.idr)
|
2019-07-01 01:54:50 +03:00
|
|
|
Main> (y @@ res) => ?now_4
|
2019-06-24 18:23:32 +03:00
|
|
|
|
|
|
|
Main> (True @@ d) => ?now_4
|
|
|
|
(False @@ d) => ?now_5
|
|
|
|
|
2019-07-01 01:54:50 +03:00
|
|
|
Main> 0 m : Type -> Type
|
|
|
|
x : Integer
|
2019-10-18 20:26:32 +03:00
|
|
|
1 d : Door Open
|
2019-06-24 18:23:32 +03:00
|
|
|
0 r : Res Bool (\r => (Door (if r then Open else Closed)))
|
|
|
|
-------------------------------------
|
|
|
|
now_2 : Use Many m ()
|
2019-07-01 01:54:50 +03:00
|
|
|
Main> 0 m : Type -> Type
|
|
|
|
x : Integer
|
2019-10-18 20:26:32 +03:00
|
|
|
1 d : Door Closed
|
2019-06-24 18:23:32 +03:00
|
|
|
0 r : Res Bool (\r => (Door (if r then Open else Closed)))
|
|
|
|
-------------------------------------
|
|
|
|
now_3 : Use Many m ()
|
|
|
|
Main> Bye for now!
|