convertOpenProofTerm :: A -> M -> Open (ProofTerm, Sequent)
convertOpenProofTerm (A _ (P "proof" [sq])) (M hyps r) =
  Open (map convertHypothesis hyps) (convertProofTerm (M [] r)
                                    ,convertSequent sq)
convertOpenProofTerm :: A -> M -> Open (ProofTerm, Sequent)
convertOpenProofTerm (A _ (P "proof" [sq])) (M hyps r) =
  Open (map convertHypothesis hyps) (convertProofTerm (M [] r)
                                    ,convertSequent sq)
convertOpenProofTerm (A _ (P "proof" [sq])) (M hyps r) =
  Open (map convertHypothesis hyps) (convertProofTerm (M [] r)
                                    ,convertSequent sq)