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)