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/union/glossing.golden | 456 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 456 insertions(+)
 create mode 100644 test/golden/union/glossing.golden

(limited to 'test/golden/union/glossing.golden')

diff --git a/test/golden/union/glossing.golden b/test/golden/union/glossing.golden
new file mode 100644
index 0000000..1925c15
--- /dev/null
+++ b/test/golden/union/glossing.golden
@@ -0,0 +1,456 @@
+[ BlockAxiom
+    ( SourcePos
+        { sourceName = "test/examples/union.tex"
+        , sourceLine = Pos 1
+        , sourceColumn = Pos 1
+        }
+    )
+    ( Marker "ext" )
+    ( Axiom
+        [ Asm
+            ( Quantified Universally
+                ( Scope
+                    ( Connected Equivalence
+                        ( TermSymbol
+                            ( SymbolPredicate
+                                ( PredicateRelation
+                                    ( Command "in" )
+                                )
+                            )
+                            [ TermVar
+                                ( B
+                                    ( NamedVar "a" )
+                                )
+                            , TermVar
+                                ( F
+                                    ( TermVar
+                                        ( NamedVar "A" )
+                                    )
+                                )
+                            ]
+                        )
+                        ( TermSymbol
+                            ( SymbolPredicate
+                                ( PredicateRelation
+                                    ( Command "in" )
+                                )
+                            )
+                            [ TermVar
+                                ( B
+                                    ( NamedVar "a" )
+                                )
+                            , TermVar
+                                ( F
+                                    ( TermVar
+                                        ( NamedVar "B" )
+                                    )
+                                )
+                            ]
+                        )
+                    )
+                )
+            )
+        ]
+        ( TermSymbol
+            ( SymbolPredicate
+                ( PredicateRelation
+                    ( Symbol "=" )
+                )
+            )
+            [ TermVar
+                ( NamedVar "A" )
+            , TermVar
+                ( NamedVar "B" )
+            ]
+        )
+    )
+, BlockAxiom
+    ( SourcePos
+        { sourceName = "test/examples/union.tex"
+        , sourceLine = Pos 6
+        , sourceColumn = Pos 1
+        }
+    )
+    ( Marker "union_defn" )
+    ( Axiom
+        [ Asm ( PropositionalConstant IsTop )
+        , Asm ( PropositionalConstant IsTop )
+        ]
+        ( Connected Equivalence
+            ( TermSymbol
+                ( SymbolPredicate
+                    ( PredicateRelation
+                        ( Command "in" )
+                    )
+                )
+                [ TermVar
+                    ( NamedVar "a" )
+                , TermSymbol
+                    ( SymbolMixfix
+                        [ Nothing
+                        , Just
+                            ( Command "union" )
+                        , Nothing
+                        ]
+                    )
+                    [ TermVar
+                        ( NamedVar "A" )
+                    , TermVar
+                        ( NamedVar "B" )
+                    ]
+                ]
+            )
+            ( Connected Disjunction
+                ( TermSymbol
+                    ( SymbolPredicate
+                        ( PredicateRelation
+                            ( Command "in" )
+                        )
+                    )
+                    [ TermVar
+                        ( NamedVar "a" )
+                    , TermVar
+                        ( NamedVar "A" )
+                    ]
+                )
+                ( TermSymbol
+                    ( SymbolPredicate
+                        ( PredicateRelation
+                            ( Command "in" )
+                        )
+                    )
+                    [ TermVar
+                        ( NamedVar "a" )
+                    , TermVar
+                        ( NamedVar "B" )
+                    ]
+                )
+            )
+        )
+    )
+, BlockLemma
+    ( SourcePos
+        { sourceName = "test/examples/union.tex"
+        , sourceLine = Pos 11
+        , sourceColumn = Pos 1
+        }
+    )
+    ( Marker "union_comm" )
+    ( Lemma []
+        ( TermSymbol
+            ( SymbolPredicate
+                ( PredicateRelation
+                    ( Symbol "=" )
+                )
+            )
+            [ TermSymbol
+                ( SymbolMixfix
+                    [ Nothing
+                    , Just
+                        ( Command "union" )
+                    , Nothing
+                    ]
+                )
+                [ TermVar
+                    ( NamedVar "A" )
+                , TermVar
+                    ( NamedVar "B" )
+                ]
+            , TermSymbol
+                ( SymbolMixfix
+                    [ Nothing
+                    , Just
+                        ( Command "union" )
+                    , Nothing
+                    ]
+                )
+                [ TermVar
+                    ( NamedVar "B" )
+                , TermVar
+                    ( NamedVar "A" )
+                ]
+            ]
+        )
+    )
+, BlockLemma
+    ( SourcePos
+        { sourceName = "test/examples/union.tex"
+        , sourceLine = Pos 15
+        , sourceColumn = Pos 1
+        }
+    )
+    ( Marker "union_assoc" )
+    ( Lemma []
+        ( TermSymbol
+            ( SymbolPredicate
+                ( PredicateRelation
+                    ( Symbol "=" )
+                )
+            )
+            [ TermSymbol
+                ( SymbolMixfix
+                    [ Nothing
+                    , Just
+                        ( Command "union" )
+                    , Nothing
+                    ]
+                )
+                [ TermSymbol
+                    ( SymbolMixfix
+                        [ Nothing
+                        , Just
+                            ( Command "union" )
+                        , Nothing
+                        ]
+                    )
+                    [ TermVar
+                        ( NamedVar "A" )
+                    , TermVar
+                        ( NamedVar "B" )
+                    ]
+                , TermVar
+                    ( NamedVar "C" )
+                ]
+            , TermSymbol
+                ( SymbolMixfix
+                    [ Nothing
+                    , Just
+                        ( Command "union" )
+                    , Nothing
+                    ]
+                )
+                [ TermVar
+                    ( NamedVar "A" )
+                , TermSymbol
+                    ( SymbolMixfix
+                        [ Nothing
+                        , Just
+                            ( Command "union" )
+                        , Nothing
+                        ]
+                    )
+                    [ TermVar
+                        ( NamedVar "B" )
+                    , TermVar
+                        ( NamedVar "C" )
+                    ]
+                ]
+            ]
+        )
+    )
+, BlockProof
+    ( SourcePos
+        { sourceName = "test/examples/union.tex"
+        , sourceLine = Pos 18
+        , sourceColumn = Pos 1
+        }
+    )
+    ( Have
+        ( Quantified Universally
+            ( Scope
+                ( Connected Implication
+                    ( TermSymbol
+                        ( SymbolPredicate
+                            ( PredicateRelation
+                                ( Command "in" )
+                            )
+                        )
+                        [ TermVar
+                            ( B
+                                ( NamedVar "a" )
+                            )
+                        , TermSymbol
+                            ( SymbolMixfix
+                                [ Nothing
+                                , Just
+                                    ( Command "union" )
+                                , Nothing
+                                ]
+                            )
+                            [ TermSymbol
+                                ( SymbolMixfix
+                                    [ Nothing
+                                    , Just
+                                        ( Command "union" )
+                                    , Nothing
+                                    ]
+                                )
+                                [ TermVar
+                                    ( F
+                                        ( TermVar
+                                            ( NamedVar "A" )
+                                        )
+                                    )
+                                , TermVar
+                                    ( F
+                                        ( TermVar
+                                            ( NamedVar "B" )
+                                        )
+                                    )
+                                ]
+                            , TermVar
+                                ( F
+                                    ( TermVar
+                                        ( NamedVar "C" )
+                                    )
+                                )
+                            ]
+                        ]
+                    )
+                    ( TermSymbol
+                        ( SymbolPredicate
+                            ( PredicateRelation
+                                ( Command "in" )
+                            )
+                        )
+                        [ TermVar
+                            ( B
+                                ( NamedVar "a" )
+                            )
+                        , TermSymbol
+                            ( SymbolMixfix
+                                [ Nothing
+                                , Just
+                                    ( Command "union" )
+                                , Nothing
+                                ]
+                            )
+                            [ TermVar
+                                ( F
+                                    ( TermVar
+                                        ( NamedVar "A" )
+                                    )
+                                )
+                            , TermSymbol
+                                ( SymbolMixfix
+                                    [ Nothing
+                                    , Just
+                                        ( Command "union" )
+                                    , Nothing
+                                    ]
+                                )
+                                [ TermVar
+                                    ( F
+                                        ( TermVar
+                                            ( NamedVar "B" )
+                                        )
+                                    )
+                                , TermVar
+                                    ( F
+                                        ( TermVar
+                                            ( NamedVar "C" )
+                                        )
+                                    )
+                                ]
+                            ]
+                        ]
+                    )
+                )
+            )
+        ) JustificationEmpty
+        ( Have
+            ( Quantified Universally
+                ( Scope
+                    ( Connected Implication
+                        ( TermSymbol
+                            ( SymbolPredicate
+                                ( PredicateRelation
+                                    ( Command "in" )
+                                )
+                            )
+                            [ TermVar
+                                ( B
+                                    ( NamedVar "a" )
+                                )
+                            , TermSymbol
+                                ( SymbolMixfix
+                                    [ Nothing
+                                    , Just
+                                        ( Command "union" )
+                                    , Nothing
+                                    ]
+                                )
+                                [ TermVar
+                                    ( F
+                                        ( TermVar
+                                            ( NamedVar "A" )
+                                        )
+                                    )
+                                , TermSymbol
+                                    ( SymbolMixfix
+                                        [ Nothing
+                                        , Just
+                                            ( Command "union" )
+                                        , Nothing
+                                        ]
+                                    )
+                                    [ TermVar
+                                        ( F
+                                            ( TermVar
+                                                ( NamedVar "B" )
+                                            )
+                                        )
+                                    , TermVar
+                                        ( F
+                                            ( TermVar
+                                                ( NamedVar "C" )
+                                            )
+                                        )
+                                    ]
+                                ]
+                            ]
+                        )
+                        ( TermSymbol
+                            ( SymbolPredicate
+                                ( PredicateRelation
+                                    ( Command "in" )
+                                )
+                            )
+                            [ TermVar
+                                ( B
+                                    ( NamedVar "a" )
+                                )
+                            , TermSymbol
+                                ( SymbolMixfix
+                                    [ Nothing
+                                    , Just
+                                        ( Command "union" )
+                                    , Nothing
+                                    ]
+                                )
+                                [ TermSymbol
+                                    ( SymbolMixfix
+                                        [ Nothing
+                                        , Just
+                                            ( Command "union" )
+                                        , Nothing
+                                        ]
+                                    )
+                                    [ TermVar
+                                        ( F
+                                            ( TermVar
+                                                ( NamedVar "A" )
+                                            )
+                                        )
+                                    , TermVar
+                                        ( F
+                                            ( TermVar
+                                                ( NamedVar "B" )
+                                            )
+                                        )
+                                    ]
+                                , TermVar
+                                    ( F
+                                        ( TermVar
+                                            ( NamedVar "C" )
+                                        )
+                                    )
+                                ]
+                            ]
+                        )
+                    )
+                )
+            ) JustificationEmpty ( Qed JustificationEmpty )
+        )
+    )
+]
\ No newline at end of file
-- 
cgit v1.2.3