Source file nondet.ml

1
2
3
4
5
6
7
open Util.Source

(* Nondeterminism *)

exception Nondet of region

let nondet (at : region) = raise (Nondet at)