Presburger Arithmetic and Its Use in Verification

APPENDIX B. SOURCE CODE OF EXPERIMENTS
else invalidArg "evalFormula" (string xts)
| And fs −> if List.exists (fun f −> evalFormula xts f = FF) fs then FF else TT
| Or fs −> if List.exists (fun f −> evalFormula xts f = TT) fs then TT else FF
| Not f −> match evalFormula xts f with
| TT −> FF
| FF −> TT
| f’ −> invalidArg "evalFormula" (string xts)
| TT −> TT
| FF −> FF
| _ −> invalidArg "evalFormula" (string xts)
/// Partition functions
let partitionEval groundVal rangeArray formula =
let len = Array.length rangeArray
let loopResult = Parallel.For(0, len, fun i (loopState: ParallelLoopState) −>
if evalFormula rangeArray.[i] formula =
groundVal then
loopState.Stop()
else
()
)
not (loopResult.IsCompleted || loopResult.LowestBreakIteration.HasValue)
// Break the array to balance chunks
let partitionBalanceEval groundVal rangeArray formula =
let len = Array.length rangeArray
let source =[|0..len−1|]
let partitions = Partitioner.Create(source, true)
let loopResult = Parallel.ForEach(partitions, fun i (loopState:
ParallelLoopState) −>
if evalFormula rangeArray
.[i] formula =
groundVal then
loopState.Stop()
else
()
)
not (loopResult.IsCompleted || loopResult.LowestBreakIteration.HasValue)
// Sequential
let seqEval groundVal rangeArray formula = rangeArray |> Array.exists(fun r −>
evalFormula r formula = groundVal)
let evalSAnd vr formula =
if vr =[]then formula
else
if seqEval FF (genRangeArray vr) formula then FF else TT
84