diff options
| author | Alex Auvolat <alex.auvolat@ansys.com> | 2014-07-10 13:29:01 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex.auvolat@ansys.com> | 2014-07-10 13:29:01 +0200 |
| commit | 354e8ed50b1fc1b6dadc1a2a8d54837b5b47e6be (patch) | |
| tree | d03fdc47b1ce033be3edf79c8c0248bc7704f691 /abstract/formula.ml | |
| parent | fee760b5c08afa9c81b5f28b35afd3514f643770 (diff) | |
| download | scade-analyzer-354e8ed50b1fc1b6dadc1a2a8d54837b5b47e6be.tar.gz scade-analyzer-354e8ed50b1fc1b6dadc1a2a8d54837b5b47e6be.zip | |
DP locations defined by abstract values and not by formula.
Diffstat (limited to 'abstract/formula.ml')
| -rw-r--r-- | abstract/formula.ml | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/abstract/formula.ml b/abstract/formula.ml index a124a84..f2a3bd1 100644 --- a/abstract/formula.ml +++ b/abstract/formula.ml @@ -263,23 +263,3 @@ let rec formula_replace_evars repls e = | x -> x - -(* - Extract all cases that make a formula true, to a limited degree - - [A || B; not (A || B)] -> A; (B && (not A)); not A && not B] -*) - -let rec split_cases c = - let c = List.map eliminate_not c in - let u, l = List.fold_left - (fun (u, l) c -> - match c with - | BOr(a, b) -> - true, a::(BAnd(BNot a, b))::l - | BTernary(c, a, b) -> - true, (BAnd(c, a))::(BAnd(BNot c, b))::l - | x -> u, x::l) - (false, []) c - in - if u then split_cases l else l |