From 442d732696ad431b84f6e5c72b6ee785be4fd968 Mon Sep 17 00:00:00 2001
From: adelon <22380201+adelon@users.noreply.github.com>
Date: Sat, 10 Feb 2024 02:22:14 +0100
Subject: Initial commit

---
 test/golden/russell/parsing.golden | 198 +++++++++++++++++++++++++++++++++++++
 1 file changed, 198 insertions(+)
 create mode 100644 test/golden/russell/parsing.golden

(limited to 'test/golden/russell/parsing.golden')

diff --git a/test/golden/russell/parsing.golden b/test/golden/russell/parsing.golden
new file mode 100644
index 0000000..f924229
--- /dev/null
+++ b/test/golden/russell/parsing.golden
@@ -0,0 +1,198 @@
+[ BlockDefn
+    ( SourcePos
+        { sourceName = "test/examples/russell.tex"
+        , sourceLine = Pos 1
+        , sourceColumn = Pos 1
+        }
+    )
+    ( Marker "universal_set" )
+    ( Defn []
+        ( DefnAdj
+            ( Just NounPhrase ( [] )
+                ( Noun
+                    ( SgPl
+                        { sg =
+                            [ Just
+                                ( Word "set" )
+                            ]
+                        , pl =
+                            [ Just
+                                ( Word "sets" )
+                            ]
+                        }
+                    ) []
+                ) ( Nothing ) ( [] ) ( Nothing )
+            )
+            ( NamedVar "V" )
+            ( Adj
+                [ Just
+                    ( Word "universal" )
+                ] []
+            )
+        )
+        ( StmtQuantPhrase
+            ( QuantPhrase Universally NounPhrase ( [] )
+                ( Noun
+                    ( SgPl
+                        { sg =
+                            [ Just
+                                ( Word "set" )
+                            ]
+                        , pl =
+                            [ Just
+                                ( Word "sets" )
+                            ]
+                        }
+                    ) []
+                )
+                (
+                    [ NamedVar "x" ]
+                ) ( [] ) ( Nothing )
+            )
+            ( StmtFormula
+                ( FormulaChain
+                    ( ChainBase
+                        ( ExprVar
+                            ( NamedVar "x" ) :| []
+                        ) Positive
+                        ( RelationSymbol
+                            ( Command "in" )
+                        )
+                        ( ExprVar
+                            ( NamedVar "V" ) :| []
+                        )
+                    )
+                )
+            )
+        )
+    )
+, BlockLemma
+    ( SourcePos
+        { sourceName = "test/examples/russell.tex"
+        , sourceLine = Pos 7
+        , sourceColumn = Pos 1
+        }
+    )
+    ( Marker "no_universal_set" )
+    ( Lemma []
+        ( StmtNeg
+            ( StmtExists NounPhrase
+                (
+                    [ AdjL
+                        [ Just
+                            ( Word "universal" )
+                        ] []
+                    ]
+                )
+                ( Noun
+                    ( SgPl
+                        { sg =
+                            [ Just
+                                ( Word "set" )
+                            ]
+                        , pl =
+                            [ Just
+                                ( Word "sets" )
+                            ]
+                        }
+                    ) []
+                ) ( [] ) ( [] ) ( Nothing )
+            )
+        )
+    )
+, BlockProof
+    ( SourcePos
+        { sourceName = "test/examples/russell.tex"
+        , sourceLine = Pos 10
+        , sourceColumn = Pos 1
+        }
+    )
+    ( ByContradiction
+        ( TakeNoun NounPhrase
+            (
+                [ AdjL
+                    [ Just
+                        ( Word "universal" )
+                    ] []
+                ]
+            )
+            ( Noun
+                ( SgPl
+                    { sg =
+                        [ Just
+                            ( Word "set" )
+                        ]
+                    , pl =
+                        [ Just
+                            ( Word "sets" )
+                        ]
+                    }
+                ) []
+            )
+            (
+                [ NamedVar "V" ]
+            ) ( [] ) ( Nothing ) JustificationEmpty
+            ( Define
+                ( NamedVar "R" )
+                ( ExprSep
+                    ( NamedVar "x" )
+                    ( ExprVar
+                        ( NamedVar "V" )
+                    )
+                    ( StmtFormula
+                        ( FormulaChain
+                            ( ChainBase
+                                ( ExprVar
+                                    ( NamedVar "x" ) :| []
+                                ) Negative
+                                ( RelationSymbol
+                                    ( Command "in" )
+                                )
+                                ( ExprVar
+                                    ( NamedVar "x" ) :| []
+                                )
+                            )
+                        )
+                    )
+                )
+                ( Have Nothing
+                    ( StmtConnected Equivalence
+                        ( StmtFormula
+                            ( FormulaChain
+                                ( ChainBase
+                                    ( ExprVar
+                                        ( NamedVar "R" ) :| []
+                                    ) Positive
+                                    ( RelationSymbol
+                                        ( Command "in" )
+                                    )
+                                    ( ExprVar
+                                        ( NamedVar "R" ) :| []
+                                    )
+                                )
+                            )
+                        )
+                        ( StmtFormula
+                            ( FormulaChain
+                                ( ChainBase
+                                    ( ExprVar
+                                        ( NamedVar "R" ) :| []
+                                    ) Negative
+                                    ( RelationSymbol
+                                        ( Command "in" )
+                                    )
+                                    ( ExprVar
+                                        ( NamedVar "R" ) :| []
+                                    )
+                                )
+                            )
+                        )
+                    ) JustificationEmpty
+                    ( Have Nothing
+                        ( StmtFormula ( PropositionalConstant IsBottom ) ) JustificationEmpty ( Qed JustificationEmpty )
+                    )
+                )
+            )
+        )
+    )
+]
\ No newline at end of file
-- 
cgit v1.2.3