Something went wrong. Try again.
forked from coq/coq
Something went wrong. Try again.
12345678910111213141516171819202122232425(* * 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 () = let open Summary.Ref in counter := succ !counter
(* * We can also read the value of our counter: *)let value () = let open Summary.Ref in !counter