let vars_consts_from_LTL_goal g =
let rec vc_from_ltl = function
Pred(p) -> vars_consts_from_IF_term p
| Op1(f)
| Op2(f)
| Op3(f)
| Op4(f)
| Op5(f) -> vc_from_ltl f
| Conj(f1,f2)
| Dij(f1,f2)
| Impl(f1,f2) ->
(vc_from_ltl f1) @ (vc_from_ltl f2)
in
remove_duplicate (vc_from_ltl g)