2023-02-28 19:44:24 -08:00
|
|
|
module Test.Main where
|
|
|
|
|
|
|
|
|
|
import Prelude
|
2023-03-03 23:19:52 -08:00
|
|
|
import Language.Bergamot.Syntax
|
|
|
|
|
import Control.Monad.Logic.Trans
|
|
|
|
|
import Control.Monad.Logic.Class
|
|
|
|
|
import Control.Monad.Unify.Trans
|
|
|
|
|
import Control.Monad.Unify.Class
|
|
|
|
|
import Data.List
|
|
|
|
|
import Data.Maybe
|
2023-02-28 19:44:24 -08:00
|
|
|
|
2023-03-04 18:01:37 -08:00
|
|
|
main :: List String
|
|
|
|
|
main = map toLatexProofTree $ runUnifier $ query $ tType (tSndExpr (tProdExpr tStringExpr (tPlusExpr tIntExpr tIntExpr))) (Var "T")
|
