feat: 3234 week 2

cs3234/labs/week-01_functional-programming-in-Gallina.v

@@ -5,50 +5,6 @@
 (* was: *)
 (* Version of 18 Jan 2024 *)
 
-(* ********** *)
-
-(* name: 
-   e-mail address: 
-   student number: 
- *)
-
-(* name: 
-   e-mail address: 
-   student number: 
- *)
-
-(* name: 
-   e-mail address: 
-   student number: 
- *)
-
-(* name: 
-   e-mail address: 
-   student number: 
- *)
-
-(* name: 
-   e-mail address: 
-   student number: 
- *)
-
-(* name: 
-   e-mail address: 
-   student number: 
- *)
-
-(* name: 
-   e-mail address: 
-   student number: 
- *)
-
-(* name: 
-   e-mail address: 
-   student number: 
- *)
-
-(* ********** *)
-
 Check 0.
 
 Check O.
@@ -309,7 +265,8 @@ Definition test_mult (candidate: nat -> nat -> nat) : bool :=
   (let x := 5 in
    let y := 6 in
    let z := 7 in
-   (Nat.eqb (candidate x (candidate y z)) (candidate z (candidate x y))))
+   (Nat.eqb (candidate x (candidate y z))
+            (candidate (candidate x y) z)))
   &&
   (
     (* Testing the inductive step *)