match get_proof () with
None -> assert false
| Some (uri, metasenv, bo, ty) ->
+ let uri = match uri with Some uri -> uri | None -> assert false in
let currentproof =
(*CSC: Wrong: [] is just plainly wrong *)
Cic.CurrentProof (UriManager.name_of_uri uri,metasenv,bo,ty,[])
| None,_
| _,None -> assert false
| Some proof', Some goal' ->
- let (newproof, newgoals) = tactic ~status:(proof', goal') in
+ let (newproof, newgoals) = tactic (proof', goal') in
set_proof (Some newproof);
goal :=
(match newgoals, newproof with