let (bag,maxvar), goals =
HExtlib.list_mapi_acc (fun x _ a -> P.mk_goal a x) (bag,maxvar) [t]
in
- let solutions =
+ match
P.paramod ~max_steps:max_int ~timeout:(Unix.gettimeofday () +. 300.0)
~g_passives:goals ~passives (bag,maxvar)
- in
+ with
+ | P.Error _ | P.GaveUp | P.Timeout _ -> []
+ | P.Unsatisfiable solutions ->
List.map
(fun (bag,i,l) ->
(* List.iter (fun x ->