[ BlockClaim Proposition
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 1
        , locColumn = 1
        }
    ) Nothing
    ( Marker "trivial" )
    ( Claim []
        ( StmtFormula
            { formula = FormulaChain
                ( ChainBase
                    ( ExprVar
                        ( NamedVar "x" ) :| []
                    ) Positive
                    ( Relation
                        ( Location
                            { locFile = "test/examples/calc.tex"
                            , locLine = 2
                            , locColumn = 8
                            }
                        )
                        ( RelationSymbol
                            ( Symbol "=" )
                            ( ParameterArity 0 )
                            ( Marker "eq" )
                        ) []
                    )
                    ( ExprVar
                        ( NamedVar "x" ) :| []
                    )
                )
            }
        )
    )
, BlockClaim Proposition
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 5
        , locColumn = 1
        }
    ) Nothing
    ( Marker "irrelevant" )
    ( Claim []
        ( StmtFormula
            { formula = FormulaChain
                ( ChainBase
                    ( ExprVar
                        ( NamedVar "z" ) :| []
                    ) Positive
                    ( Relation
                        ( Location
                            { locFile = "test/examples/calc.tex"
                            , locLine = 6
                            , locColumn = 8
                            }
                        )
                        ( RelationSymbol
                            ( Symbol "=" )
                            ( ParameterArity 0 )
                            ( Marker "eq" )
                        ) []
                    )
                    ( ExprVar
                        ( NamedVar "z" ) :| []
                    )
                )
            }
        )
    )
, BlockClaim Proposition
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 9
        , locColumn = 1
        }
    ) Nothing
    ( Marker "alsotrivial" )
    ( Claim []
        ( StmtFormula
            { formula = FormulaChain
                ( ChainBase
                    ( ExprVar
                        ( NamedVar "y" ) :| []
                    ) Positive
                    ( Relation
                        ( Location
                            { locFile = "test/examples/calc.tex"
                            , locLine = 10
                            , locColumn = 8
                            }
                        )
                        ( RelationSymbol
                            ( Symbol "=" )
                            ( ParameterArity 0 )
                            ( Marker "eq" )
                        ) []
                    )
                    ( ExprVar
                        ( NamedVar "y" ) :| []
                    )
                )
            }
        )
    )
, BlockProof
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 12
        , locColumn = 1
        }
    )
    ( Calc
        ( Location
            { locFile = "test/examples/calc.tex"
            , locLine = 13
            , locColumn = 5
            }
        ) Nothing
        ( Equation
            ( ExprVar
                ( NamedVar "y" )
            )
            (
                ( ExprVar
                    ( NamedVar "y" )
                , JustificationEmpty
                ) :|
                [
                    ( ExprVar
                        ( NamedVar "y" )
                    , JustificationRef
                        ( Marker "trivial" :| [] )
                    )
                ]
            )
        ) ( Qed Nothing JustificationEmpty )
    )
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 20
        , locColumn = 1
        }
    )
, BlockClaim Proposition
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 22
        , locColumn = 1
        }
    ) Nothing
    ( Marker "trivial_biconditionals" )
    ( Claim []
        ( StmtFormula
            { formula = FormulaChain
                ( ChainBase
                    ( ExprVar
                        ( NamedVar "y" ) :| []
                    ) Positive
                    ( Relation
                        ( Location
                            { locFile = "test/examples/calc.tex"
                            , locLine = 23
                            , locColumn = 8
                            }
                        )
                        ( RelationSymbol
                            ( Symbol "=" )
                            ( ParameterArity 0 )
                            ( Marker "eq" )
                        ) []
                    )
                    ( ExprVar
                        ( NamedVar "y" ) :| []
                    )
                )
            }
        )
    )
, BlockProof
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 25
        , locColumn = 1
        }
    )
    ( Calc
        ( Location
            { locFile = "test/examples/calc.tex"
            , locLine = 26
            , locColumn = 5
            }
        ) Nothing
        ( Biconditionals
            ( FormulaChain
                ( ChainBase
                    ( ExprVar
                        ( NamedVar "y" ) :| []
                    ) Positive
                    ( Relation
                        ( Location
                            { locFile = "test/examples/calc.tex"
                            , locLine = 27
                            , locColumn = 11
                            }
                        )
                        ( RelationSymbol
                            ( Symbol "=" )
                            ( ParameterArity 0 )
                            ( Marker "eq" )
                        ) []
                    )
                    ( ExprVar
                        ( NamedVar "y" ) :| []
                    )
                )
            )
            (
                ( PropositionalConstant
                    ( Location
                        { locFile = "test/examples/calc.tex"
                        , locLine = 28
                        , locColumn = 19
                        }
                    ) IsTop
                , JustificationEmpty
                ) :|
                [
                    ( FormulaChain
                        ( ChainBase
                            ( ExprVar
                                ( NamedVar "y" ) :| []
                            ) Positive
                            ( Relation
                                ( Location
                                    { locFile = "test/examples/calc.tex"
                                    , locLine = 30
                                    , locColumn = 21
                                    }
                                )
                                ( RelationSymbol
                                    ( Symbol "=" )
                                    ( ParameterArity 0 )
                                    ( Marker "eq" )
                                ) []
                            )
                            ( ExprVar
                                ( NamedVar "y" ) :| []
                            )
                        )
                    , JustificationRef
                        ( Marker "trivial" :| [] )
                    )
                ]
            )
        ) ( Qed Nothing JustificationEmpty )
    )
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 33
        , locColumn = 1
        }
    )
, BlockClaim Proposition
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 35
        , locColumn = 1
        }
    ) Nothing
    ( Marker "bounded_calc" )
    ( Claim []
        ( SymbolicQuantified
            { loc = Location
                { locFile = "test/examples/calc.tex"
                , locLine = 36
                , locColumn = 5
                }
            , quant = Universally
            , vars = NamedVar "x" :| []
            , b = Bounded
                ( Location
                    { locFile = "test/examples/calc.tex"
                    , locLine = 36
                    , locColumn = 16
                    }
                ) Positive
                ( Relation
                    ( Location
                        { locFile = "test/examples/calc.tex"
                        , locLine = 36
                        , locColumn = 16
                        }
                    )
                    ( RelationSymbol
                        ( Command "in" )
                        ( ParameterArity 0 )
                        ( Marker "elem" )
                    ) []
                )
                ( ExprVar
                    ( NamedVar "A" )
                )
            , suchThat = Nothing
            , stmt = StmtFormula
                { formula = FormulaChain
                    ( ChainBase
                        ( ExprVar
                            ( NamedVar "x" ) :| []
                        ) Positive
                        ( Relation
                            ( Location
                                { locFile = "test/examples/calc.tex"
                                , locLine = 36
                                , locColumn = 34
                                }
                            )
                            ( RelationSymbol
                                ( Symbol "=" )
                                ( ParameterArity 0 )
                                ( Marker "eq" )
                            ) []
                        )
                        ( ExprVar
                            ( NamedVar "x" ) :| []
                        )
                    )
                }
            }
        )
    )
, BlockProof
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 38
        , locColumn = 1
        }
    )
    ( Calc
        ( Location
            { locFile = "test/examples/calc.tex"
            , locLine = 39
            , locColumn = 5
            }
        )
        ( Just
            ( CalcQuantifier
                ( NamedVar "x" :| [] )
                ( Bounded
                    ( Location
                        { locFile = "test/examples/calc.tex"
                        , locLine = 39
                        , locColumn = 16
                        }
                    ) Positive
                    ( Relation
                        ( Location
                            { locFile = "test/examples/calc.tex"
                            , locLine = 39
                            , locColumn = 16
                            }
                        )
                        ( RelationSymbol
                            ( Command "in" )
                            ( ParameterArity 0 )
                            ( Marker "elem" )
                        ) []
                    )
                    ( ExprVar
                        ( NamedVar "A" )
                    )
                ) Nothing
            )
        )
        ( Equation
            ( ExprVar
                ( NamedVar "x" )
            )
            (
                ( ExprVar
                    ( NamedVar "x" )
                , JustificationEmpty
                ) :| []
            )
        ) ( Qed Nothing JustificationEmpty )
    )
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 44
        , locColumn = 1
        }
    )
, BlockClaim Proposition
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 46
        , locColumn = 1
        }
    ) Nothing
    ( Marker "bounded_calc_such_that" )
    ( Claim []
        ( SymbolicQuantified
            { loc = Location
                { locFile = "test/examples/calc.tex"
                , locLine = 47
                , locColumn = 5
                }
            , quant = Universally
            , vars = NamedVar "x" :| []
            , b = Bounded
                ( Location
                    { locFile = "test/examples/calc.tex"
                    , locLine = 47
                    , locColumn = 16
                    }
                ) Positive
                ( Relation
                    ( Location
                        { locFile = "test/examples/calc.tex"
                        , locLine = 47
                        , locColumn = 16
                        }
                    )
                    ( RelationSymbol
                        ( Command "in" )
                        ( ParameterArity 0 )
                        ( Marker "elem" )
                    ) []
                )
                ( ExprVar
                    ( NamedVar "A" )
                )
            , suchThat = Just
                ( StmtFormula
                    { formula = FormulaChain
                        ( ChainBase
                            ( ExprVar
                                ( NamedVar "x" ) :| []
                            ) Positive
                            ( Relation
                                ( Location
                                    { locFile = "test/examples/calc.tex"
                                    , locLine = 47
                                    , locColumn = 36
                                    }
                                )
                                ( RelationSymbol
                                    ( Symbol "=" )
                                    ( ParameterArity 0 )
                                    ( Marker "eq" )
                                ) []
                            )
                            ( ExprVar
                                ( NamedVar "x" ) :| []
                            )
                        )
                    }
                )
            , stmt = StmtFormula
                { formula = FormulaChain
                    ( ChainBase
                        ( ExprVar
                            ( NamedVar "x" ) :| []
                        ) Positive
                        ( Relation
                            ( Location
                                { locFile = "test/examples/calc.tex"
                                , locLine = 47
                                , locColumn = 52
                                }
                            )
                            ( RelationSymbol
                                ( Symbol "=" )
                                ( ParameterArity 0 )
                                ( Marker "eq" )
                            ) []
                        )
                        ( ExprVar
                            ( NamedVar "x" ) :| []
                        )
                    )
                }
            }
        )
    )
, BlockProof
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 49
        , locColumn = 1
        }
    )
    ( Calc
        ( Location
            { locFile = "test/examples/calc.tex"
            , locLine = 50
            , locColumn = 5
            }
        )
        ( Just
            ( CalcQuantifier
                ( NamedVar "x" :| [] )
                ( Bounded
                    ( Location
                        { locFile = "test/examples/calc.tex"
                        , locLine = 50
                        , locColumn = 16
                        }
                    ) Positive
                    ( Relation
                        ( Location
                            { locFile = "test/examples/calc.tex"
                            , locLine = 50
                            , locColumn = 16
                            }
                        )
                        ( RelationSymbol
                            ( Command "in" )
                            ( ParameterArity 0 )
                            ( Marker "elem" )
                        ) []
                    )
                    ( ExprVar
                        ( NamedVar "A" )
                    )
                )
                ( Just
                    ( StmtFormula
                        { formula = FormulaChain
                            ( ChainBase
                                ( ExprVar
                                    ( NamedVar "x" ) :| []
                                ) Positive
                                ( Relation
                                    ( Location
                                        { locFile = "test/examples/calc.tex"
                                        , locLine = 50
                                        , locColumn = 36
                                        }
                                    )
                                    ( RelationSymbol
                                        ( Symbol "=" )
                                        ( ParameterArity 0 )
                                        ( Marker "eq" )
                                    ) []
                                )
                                ( ExprVar
                                    ( NamedVar "x" ) :| []
                                )
                            )
                        }
                    )
                )
            )
        )
        ( Equation
            ( ExprVar
                ( NamedVar "x" )
            )
            (
                ( ExprVar
                    ( NamedVar "x" )
                , JustificationEmpty
                ) :| []
            )
        ) ( Qed Nothing JustificationEmpty )
    )
    ( Location
        { locFile = "test/examples/calc.tex"
        , locLine = 55
        , locColumn = 1
        }
    )
]