Unverified Commit c6c638ae authored by Merlin's avatar Merlin 💧
Browse files

Array.for_all != bsetForall

parent 18e54fbc
Pipeline #14773 waiting for manual action with stages
......@@ -591,7 +591,7 @@ let oneStepSat_MultiModalK (u: bset list) sv =
List.exists (fun bs -> bsetMem bs lf) cands
Array.for_all (fun lf -> existsInU (lfGetDest3 sort lf) (lfGetDest1 sort lf)) diamonds
bsetForall diamonds (fun lf -> existsInU (lfGetDest3 sort lf) (lfGetDest1 sort lf))
let rec oneStepGMLRec counters sort v currentU =
let isExceedingBox lf =
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment