Revising before class

DeepAndShallowEmbeddings.v

@@ -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).
 

DeepInterp.ml

@@ -1,3 +1,5 @@
+open Deep
+
 let rec i2n n =
   match n with
   | 0 -> O

DeeperInterp.ml

@@ -1,3 +1,5 @@
+open Deeper
+
 let rec i2n n =
   match n with
   | 0 -> O

DeeperWithFailInterp.ml

@@ -1,3 +1,5 @@
+open DeeperWithFail
+
 let rec i2n n =
   match n with
   | 0 -> O