blob: 8721090d4278be9e69876462fbea4228a6472a5a (
plain)
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
|
