let get_pred_from_tmpident var =
  try let (_,_,pred) = (Hashtbl.find !ltl_exps var) in pred
  with _ -> raise_error ("TMP Variable ("^var^") not declared in hashtbl")