| Incomplete_proof ((proof, goal) as status) ->
sequents_viewer#load_sequents status;
sequents_viewer#goto_sequent goal
- | Proof proof ->
- sequents_viewer#load_logo_with_qed
- | No_proof ->
- sequents_viewer#load_logo
- | Intermediate _ ->
- assert false (* only the engine may be in this state *)
+ | Proof proof -> sequents_viewer#load_logo_with_qed
+ | No_proof -> sequents_viewer#load_logo
+ | Intermediate _ -> assert false (* only the engine may be in this state *)
in
script#addObserver sequents_observer;
script#addObserver browser_observer