let parse_coqproof file =
let input = Script.open_file file in
try
let rec fetch_proof input =
match token input with
| Proof p -> Some p
| Eof -> None
| _ -> skip input ; fetch_proof input
in
let proof = fetch_proof input in
Script.close input ; proof
with e ->
Script.close input ;
raise e