Myes

3/assig.org

@@ -98,13 +98,10 @@ Hint: If you want to make use of addition in the implementation of multiplicatio
   { Zero() -> Zero()
   ; Succ(n) -> add m (mult n)
   } 
-#+end_src
+[ add <- \m. rec add = \n. case n of
-where we substitute ~add~ for the following:
+                { Zero() -> m
-#+begin_src chi
+                ; Succ(n) -> Suc(add n)
-\m. rec add = \n. case n of
+                }]
-  { Zero() -> m
-  ; Succ(n) -> Suc(add n)
-  } 
 #+end_src
 
 ** (2p) [BN]