let eq_pred ai1 ai2 = match ai1, ai2 with | AIcnst i1, AIcnst i2 when compute -> if eq_cnst i1 i2 then F.p_true else F.p_false | _, _ -> (* TODO: develop other cases ? *) F.p_eq (to_term ai1) (to_term ai2)