mirror of
https://github.com/achlipala/frap.git
synced 2024-11-27 23:06:20 +00:00
Revising before class
This commit is contained in:
parent
583605fded
commit
ca3a490119
4 changed files with 7 additions and 1 deletions
|
@ -332,7 +332,7 @@ Module Deep.
|
|||
| Write (a v : nat) : cmd unit.
|
||||
|
||||
(* These constructors are most easily explained through examples. We'll
|
||||
* translate both of the programs from the shallowly embedding above. *)
|
||||
* translate both of the programs from the shallow embedding above. *)
|
||||
|
||||
Notation "x <- c1 ; c2" := (Bind c1 (fun x => c2)) (right associativity, at level 80).
|
||||
|
||||
|
|
|
@ -1,3 +1,5 @@
|
|||
open Deep
|
||||
|
||||
let rec i2n n =
|
||||
match n with
|
||||
| 0 -> O
|
||||
|
|
|
@ -1,3 +1,5 @@
|
|||
open Deeper
|
||||
|
||||
let rec i2n n =
|
||||
match n with
|
||||
| 0 -> O
|
||||
|
|
|
@ -1,3 +1,5 @@
|
|||
open DeeperWithFail
|
||||
|
||||
let rec i2n n =
|
||||
match n with
|
||||
| 0 -> O
|
||||
|
|
Loading…
Reference in a new issue