then unit_set (bind_dpm getx (fun e -> unit_dpm (Q e)))
else empty_set
- which is:
+ unpacking the definition of `bind_dpm`, that is:
let getx = fun (r, h) ->
let obj = List.nth h (r 'x')
which is:
- in fun truth_value ->
+ fun truth_value ->
if truth_value
then unit_set (
fun (r, h) ->
which is:
- in fun truth_value ->
+ fun truth_value ->
if truth_value
then unit_set (
fun (r, h) ->