证明树排版测试

(MB (ProofTreeRender
     `(<== (cut (,Δ ,Δ^)
                ,(&⊗ $A $B)
                (,Δ^^)
                ,$C)
           (⊗R (,Δ) ,$A (,Δ^) ,$B)
           (⊗L (,Δ^^) ,$A ,$B ,$C))
     env:linear))
Δ⊢A Δ′ ⊢B Δ, Δ′ ⊢ A⊗B ⊗R Δ″ ,A,B ⊢C Δ″ , A⊗B ⊢C ⊗L Δ, Δ′ , Δ″ ⊢C cut A⊗B
(MB (ProofTreeRender
     `(<== (cut (,Δ^) ,$B
                (,Δ ,Δ^^) ,$C)
           (axiom
            ,(Sequent
              (list Δ^) (list $B)))
           (cut (,Δ) ,$A
                (,Δ^^ ,$B) ,$C))
     env:linear))
Δ′ ⊢B Δ⊢A Δ″ ,B,A ⊢C Δ, Δ″ ,B ⊢C cutA Δ′ ,Δ, Δ″ ⊢C cutB