diff --git a/test/pure/disjunction_elimination4.n3s b/test/pure/disjunction_elimination4.n3s
new file mode 100644
index 0000000..33f0d62
--- /dev/null
+++ b/test/pure/disjunction_elimination4.n3s
@@ -0,0 +1,19 @@
+@prefix : <urn:example:> .
+@prefix log: <http://www.w3.org/2000/10/swap/log#> .
+
+# (A & B) v (A & C)
+# leads to A
+
+() log:onNegativeSurface {
+    () log:onNegativeSurface {
+        :test :is true .
+        :Moon a :Cheese .
+    } .
+
+    () log:onNegativeSurface {
+        :test :is true .
+        :FrenchKing a :Bald .
+    } .
+} .
+
+() log:onNegativeSurface { :test :is true. () log:onNegativeAnswerSurface { :test :is true } } .
diff --git a/test/pure/disjunction_introduction.n3s b/test/pure/disjunction_introduction.n3s
index e3e0273..497becb 100644
--- a/test/pure/disjunction_introduction.n3s
+++ b/test/pure/disjunction_introduction.n3s
@@ -6,7 +6,7 @@
 # requires C to be true
 :Alice a :Person .
 
-() log:onNegativeAnswerSurface {
+() log:onNegativeSurface {
     
     () log:onNegativeSurface {
         () log:onNegativeSurface {