let ltl_to_ltlLight f_ltl f_out =
  try
    let c = open_in f_ltl in
    let (ltl_form,ltl_exps) = Ltllexer.parse c in
    close_in c;
    Data_for_aorai.setLtl_expressions ltl_exps;
    Logic_simplification.setLtl_expressions ltl_exps;
    Ltl_output.output ltl_form f_out
  with Not_found ->
    Aorai_option.abort "Problem with file : %s" f_ltl
    | Ltllexer.Error (loc,msg) ->
        Aorai_option.error
          "File %S, line %d, characters %d-%d"
          (fst loc).Lexing.pos_fname (fst loc).Lexing.pos_lnum
          ((fst loc).Lexing.pos_cnum - (fst loc).Lexing.pos_bol)
          ((snd loc).Lexing.pos_cnum - (fst loc).Lexing.pos_bol);
        Aorai_option.error "Error when parsing LTL formula";
        Aorai_option.abort "%s" msg