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)