Allow level 0 semantic propagations

This commit is contained in:
Guillaume Bury 2016-11-25 15:16:10 +01:00
parent 64694b524d
commit 2e7e947b62

View file

@ -502,7 +502,6 @@ module Make
let l = List.map St.add_term terms in
let lvl = List.fold_left (fun acc {l_level; _} ->
assert (l_level > 0); max acc l_level) 0 l in
assert (lvl > 0);
Iheap.grow_to_at_least env.order (St.nb_elt ());
enqueue_bool a lvl Semantic