by fact Complete_Lattices.Collect_bex_eq
reachable_eq_rtrancl_view2
new reachability model looks good