证明树排版测试

(MB (ProofTreeRender
     `(<== (cut (,Δ ,Δ^)
                ,(&⊗ $A $B)
                (,Δ^^)
                ,$C)
           (⊗R (,Δ) ,$A (,Δ^) ,$B)
           (⊗L (,Δ^^) ,$A ,$B ,$C))
     env:linear))
ΔAΔBΔ,ΔABRΔ,A,BCΔ,ABCLΔ,Δ,ΔCcutAB
(MB (ProofTreeRender
     `(<== (cut (,Δ^) ,$B
                (,Δ ,Δ^^) ,$C)
           (axiom
            ,(Sequent
              (list Δ^) (list $B)))
           (cut (,Δ) ,$A
                (,Δ^^ ,$B) ,$C))
     env:linear))
ΔBΔAΔ,B,ACΔ,Δ,BCcutAΔ,Δ,ΔCcutB