Source file counter.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
(*
 * This file defines our counter, which we use in the Count command.
 *)

(*
 * Our counter is simply a reference called "counter" to an integer.
 *
 * Summary.ref behaves like ref, but also registers a summary to Coq.
 *)
let counter = Summary.ref ~name:"counter" 0

(*
 * We can increment our counter:
 *)
let increment () =
  counter := succ !counter

(*
 * We can also read the value of our counter:
 *)
let value () =
  !counter