rename "parameter" to "val"

bench/programs/bad-typing/alias1.mlw

@@ -6,7 +6,7 @@ module M
     x := 1;
     y := 2
 
-  parameter r : ref int
+  val r : ref int
 
   let test () =
     foo r r

bench/programs/bad-typing/effect1.mlw

@@ -3,6 +3,6 @@ module M
 
   use import module ref.Ref
 
-  parameter f : x:int -> {} unit writes a.contents {}
+  val f : x:int -> {} unit writes a.contents {}
 
 end

bench/programs/bad-typing/effect2.mlw

@@ -3,6 +3,6 @@ module M
 
   use import module ref.Ref
 
-  parameter f : x:int -> {} unit writes x.contents {}
+  val f : x:int -> {} unit writes x.contents {}
 
 end

bench/programs/bad-typing/effect3.mlw

@@ -3,8 +3,8 @@ module M
 
   use import module ref.Ref
 
-  parameter a : int
+  val a : int
 
-  parameter f : x:int -> {} unit writes a.contents {}
+  val f : x:int -> {} unit writes a.contents {}
 
 end

bench/programs/bad-typing/effect4.mlw

@@ -3,8 +3,8 @@ module M
 
   use import module ref.Ref
 
-  parameter foo : int -> int
+  val foo : int -> int
 
-  parameter f : x:int -> {} unit writes foo.contents {}
+  val f : x:int -> {} unit writes foo.contents {}
 
 end

bench/programs/bad-typing/effect5.mlw

 
 module M
 
-  parameter f : x:int -> {} unit writes 1 {}
+  val f : x:int -> {} unit writes 1 {}
 
 end

bench/programs/bad-typing/effect6.mlw

 
 module M
 
-  parameter f : x:int -> {} unit writes x {}
+  val f : x:int -> {} unit writes x {}
 
 end

bench/programs/bad-typing/effect7.mlw

@@ -3,6 +3,6 @@ module M
 
   type t = {| mutable a : int; mutable b : int |}
 
-  parameter f : x:t -> {} unit writes x {}
+  val f : x:t -> {} unit writes x {}
 
 end

bench/programs/bad-typing/polyref1.mlw

@@ -2,6 +2,6 @@ module M
 
   use import module stdlib.Ref
 
-  parameter r : ref 'a
+  val r : ref 'a
 
 end

bench/programs/bad-typing/polyref3.mlw

@@ -3,6 +3,6 @@ module M
   use import module stdlib.Ref
   use import list.List
   
-  parameter r : ref (list 'a)
+  val r : ref (list 'a)
 
 end

bench/programs/good/booleans.mlw

@@ -3,13 +3,13 @@ module M
 use import int.Int
 use import module ref.Ref
 
-parameter incr : x:ref int -> { } unit writes x { !x = old !x + 1 }
+val incr : x:ref int -> { } unit writes x { !x = old !x + 1 }
 
-parameter x : ref int
+val x : ref int
 
-parameter id_not_0 : x:int -> { x <> 0 } int { result = x }
+val id_not_0 : x:int -> { x <> 0 } int { result = x }
 
-parameter id : x:int -> { } int { result = x }
+val id : x:int -> { } int { result = x }
 
 let test_and_1 () =
   { }
@@ -50,10 +50,10 @@ let test_all_1 () =
 
   function d : int
 
-parameter vx : ref int
-parameter vy : ref int
+val vx : ref int
+val vy : ref int
 
-parameter sq : x:int -> {} int { result = x*x }
+val sq : x:int -> {} int { result = x*x }
 
 let test_cd3d () =
  { true }

bench/programs/good/complex_arg_1.mlw

@@ -2,12 +2,12 @@ module M
 
 exception Exception
 
-parameter f0 : tt:unit ->
+val f0 : tt:unit ->
    { }
    unit
    { true }
 
-parameter f1 : tt:unit ->
+val f1 : tt:unit ->
   { }
   unit
   raises Exception

bench/programs/good/complex_arg_2.mlw

@@ -4,9 +4,9 @@ exception Exception int
 
 use import module ref.Ref
 
-parameter t : ref int
+val t : ref int
 
-parameter m : a:int -> b:int ->
+val m : a:int -> b:int ->
     { }
     unit reads t raises Exception
     { true } | Exception -> { true }

bench/programs/good/exns.mlw

@@ -45,7 +45,7 @@ let p6 () =
 
 use import module ref.Ref
 
-parameter x : ref int
+val x : ref int
 
 let p7 () =
   {} begin x := 1; raise E; x := 2 end { false } | E -> { !x = 1 }

bench/programs/good/loops.mlw

@@ -5,7 +5,7 @@ use import module ref.Ref
 
 (** 1. A loop increasing [i] up to 10. *)
 
-parameter i : ref int
+val i : ref int
 
 let loop1 (u:unit) =
   { !i <= 10 }
@@ -18,7 +18,7 @@ let loop1 (u:unit) =
 
 (** 2. The same loop, followed by a function call. *)
 
-parameter x: ref int
+val x: ref int
 
 let negate (u:unit) = {} x := - !x { !x = - (old !x) }
 

bench/programs/good/oldify.mlw

@@ -4,9 +4,9 @@ module M
 
   predicate q1 int int int
 
-  parameter r : ref int
+  val r : ref int
 
-  parameter f1 : y:int ->
+  val f1 : y:int ->
              {} unit writes r { q1 !r (old !r) y }
 
   let g1 () = {} f1 !r { q1 !r (old !r) (old !r) }
@@ -14,7 +14,7 @@ module M
   function foo int : int
   predicate q int int int
 
-  parameter f : t:ref int -> x:int ->
+  val f : t:ref int -> x:int ->
              {} unit writes t { q !t (old !t) x }
 
   let g (t:ref int) =

bench/programs/good/po.mlw

@@ -5,7 +5,7 @@ use import module ref.Ref
 
 (* Tests for proof obligations. *)
 
-parameter x : ref int
+val x : ref int
 
 predicate q int
 
@@ -39,7 +39,7 @@ let p9a () = {} begin x := 1; 1 end + 1 { result = 2 /\ !x = 1 }
 
 (* function with a post-condition *)
 
-parameter fsucc : x:int -> { } int { result = x + 1 }
+val fsucc : x:int -> { } int { result = x + 1 }
 
 let p10 () = {} fsucc 0 { result = 1 }
 
@@ -49,7 +49,7 @@ let p11a () = {} let a = (fsucc 1) in a + a { result = 4 }
 
 (* function with a post-condition and side-effects *)
 
-parameter incrx : unit -> { } unit writes x { !x = (old !x) + 1 }
+val incrx : unit -> { } unit writes x { !x = (old !x) + 1 }
 
 let p12 () = { !x = 0 } incrx () { !x = 1 }
 
@@ -59,7 +59,7 @@ let p13a () = {} incrx (incrx ()) { !x = (old !x) + 2 }
 
 (* function with side-effects, result and post-condition *)
 
-parameter incrx2 : unit -> { } int writes x { !x = old !x + 1 /\ result = !x }
+val incrx2 : unit -> { } int writes x { !x = old !x + 1 /\ result = !x }
 
 let p14 () = { !x = 0 } incrx2 () { result = 1 }
 

bench/programs/good/recfun.mlw

@@ -12,7 +12,7 @@ module M
 
   (** 2. With effects but no argument *)
 
-  parameter x : ref int
+  val x : ref int
 
   let rec f2 (u:unit) : unit variant { !x } =
     { !x >= 0 } (if !x > 0 then begin x := !x - 1; f2 () end) { !x = 0 }

bench/programs/good/scopes.mlw

@@ -11,7 +11,7 @@ module LocalFunctions
     f 2;
     assert { !x = 2 }
 
-  parameter r: ref int
+  val r: ref int
 
   (* recursive function accessing a global reference *)
   let rec test2 () =

bench/programs/good/see.mlw

@@ -5,9 +5,9 @@ use import module ref.Ref
 
 (* Side effect in expressions (Bart Jacobs' tricky example) *)
 
-parameter b  : ref int
-parameter b1 : ref int
-parameter b2 : ref int
+val b  : ref int
+val b1 : ref int
+val b2 : ref int
 
 let f () =
   {} b := 1 - !b; !b { result = !b /\ !b = 1 - old !b }