eyelang 1.2.2 → 1.3.0

package/examples/proof/ideal-gas-law.pl

@@ -1,151 +0,0 @@
-pressure_Pa(cell1, 100000.0).
-why(
-  pressure_Pa(cell1, 100000.0),
-  proof(
-    goal(pressure_Pa(cell1, 100000.0)),
-    by(rule("ideal-gas-law.pl", clause(9))),
-    bindings([binding("Cell", cell1), binding("Pressure", 100000.0)]),
-    uses([
-      proof(
-        goal(pressure(cell1, 100000.0)),
-        by(rule("ideal-gas-law.pl", clause(7))),
-        bindings([binding("Cell", cell1), binding("Pressure", 100000.0), binding("Moles", 1.0), binding("GasConstant", 8.0), binding("Temperature", 300.0), binding("Volume", 0.024), binding("NR", 8.0), binding("NRT", 2400.0)]),
-        uses([
-          proof(
-            goal(gas_cell(cell1, 1.0, 8.0, 300.0, 0.024)),
-            by(fact("ideal-gas-law.pl", clause(4)))
-          ),
-          proof(
-            goal(mul(1.0, 8.0, 8.0)),
-            by(builtin(mul, 3))
-          ),
-          proof(
-            goal(mul(8.0, 300.0, 2400.0)),
-            by(builtin(mul, 3))
-          ),
-          proof(
-            goal(div(2400.0, 0.024, 100000.0)),
-            by(builtin(div, 3))
-          )
-        ])
-      )
-    ])
-  )
-).
-
-status(cell1, near_atmospheric).
-why(
-  status(cell1, near_atmospheric),
-  proof(
-    goal(status(cell1, near_atmospheric)),
-    by(rule("ideal-gas-law.pl", clause(10))),
-    bindings([binding("Cell", cell1)]),
-    uses([
-      proof(
-        goal(near_atmospheric(cell1)),
-        by(rule("ideal-gas-law.pl", clause(8))),
-        bindings([binding("Cell", cell1), binding("Pressure", 100000.0), binding("Low", 95000.0), binding("High", 105000.0)]),
-        uses([
-          proof(
-            goal(pressure(cell1, 100000.0)),
-            by(rule("ideal-gas-law.pl", clause(7))),
-            bindings([binding("Cell", cell1), binding("Pressure", 100000.0), binding("Moles", 1.0), binding("GasConstant", 8.0), binding("Temperature", 300.0), binding("Volume", 0.024), binding("NR", 8.0), binding("NRT", 2400.0)]),
-            uses([
-              proof(
-                goal(gas_cell(cell1, 1.0, 8.0, 300.0, 0.024)),
-                by(fact("ideal-gas-law.pl", clause(4)))
-              ),
-              proof(
-                goal(mul(1.0, 8.0, 8.0)),
-                by(builtin(mul, 3))
-              ),
-              proof(
-                goal(mul(8.0, 300.0, 2400.0)),
-                by(builtin(mul, 3))
-              ),
-              proof(
-                goal(div(2400.0, 0.024, 100000.0)),
-                by(builtin(div, 3))
-              )
-            ])
-          ),
-          proof(
-            goal(pressure_limit(cell1, low_Pa, 95000.0)),
-            by(fact("ideal-gas-law.pl", clause(5)))
-          ),
-          proof(
-            goal(pressure_limit(cell1, high_Pa, 105000.0)),
-            by(fact("ideal-gas-law.pl", clause(6)))
-          ),
-          proof(
-            goal(gt(100000.0, 95000.0)),
-            by(builtin(gt, 2))
-          ),
-          proof(
-            goal(lt(100000.0, 105000.0)),
-            by(builtin(lt, 2))
-          )
-        ])
-      )
-    ])
-  )
-).
-
-reason(cell1, "pressure is inside the one-atmosphere tolerance band").
-why(
-  reason(cell1, "pressure is inside the one-atmosphere tolerance band"),
-  proof(
-    goal(reason(cell1, "pressure is inside the one-atmosphere tolerance band")),
-    by(rule("ideal-gas-law.pl", clause(11))),
-    bindings([binding("Cell", cell1)]),
-    uses([
-      proof(
-        goal(near_atmospheric(cell1)),
-        by(rule("ideal-gas-law.pl", clause(8))),
-        bindings([binding("Cell", cell1), binding("Pressure", 100000.0), binding("Low", 95000.0), binding("High", 105000.0)]),
-        uses([
-          proof(
-            goal(pressure(cell1, 100000.0)),
-            by(rule("ideal-gas-law.pl", clause(7))),
-            bindings([binding("Cell", cell1), binding("Pressure", 100000.0), binding("Moles", 1.0), binding("GasConstant", 8.0), binding("Temperature", 300.0), binding("Volume", 0.024), binding("NR", 8.0), binding("NRT", 2400.0)]),
-            uses([
-              proof(
-                goal(gas_cell(cell1, 1.0, 8.0, 300.0, 0.024)),
-                by(fact("ideal-gas-law.pl", clause(4)))
-              ),
-              proof(
-                goal(mul(1.0, 8.0, 8.0)),
-                by(builtin(mul, 3))
-              ),
-              proof(
-                goal(mul(8.0, 300.0, 2400.0)),
-                by(builtin(mul, 3))
-              ),
-              proof(
-                goal(div(2400.0, 0.024, 100000.0)),
-                by(builtin(div, 3))
-              )
-            ])
-          ),
-          proof(
-            goal(pressure_limit(cell1, low_Pa, 95000.0)),
-            by(fact("ideal-gas-law.pl", clause(5)))
-          ),
-          proof(
-            goal(pressure_limit(cell1, high_Pa, 105000.0)),
-            by(fact("ideal-gas-law.pl", clause(6)))
-          ),
-          proof(
-            goal(gt(100000.0, 95000.0)),
-            by(builtin(gt, 2))
-          ),
-          proof(
-            goal(lt(100000.0, 105000.0)),
-            by(builtin(lt, 2))
-          )
-        ])
-      )
-    ])
-  )
-).
-

package/examples/proof/intuitionistic-logic-kripke.pl

@@ -1,133 +0,0 @@
-intuitionistic_truth(monotone_p_reaches_both, both, atom(p)).
-why(
-  intuitionistic_truth(monotone_p_reaches_both, both, atom(p)),
-  proof(
-    goal(intuitionistic_truth(monotone_p_reaches_both, both, atom(p))),
-    by(rule("intuitionistic-logic-kripke.pl", clause(24))),
-    uses([
-      proof(
-        goal(forces(both, atom(p))),
-        by(rule("intuitionistic-logic-kripke.pl", clause(17))),
-        bindings([binding("World", both), binding("Prop", p), binding("SomeWorld", left)]),
-        uses([
-          proof(
-            goal(leq(left, both)),
-            by(rule("intuitionistic-logic-kripke.pl", clause(16))),
-            bindings([binding("From", left), binding("To", both), binding("Mid", both)]),
-            uses([
-              proof(
-                goal(step(left, both)),
-                by(fact("intuitionistic-logic-kripke.pl", clause(11)))
-              ),
-              proof(
-                goal(leq(both, both)),
-                by(rule("intuitionistic-logic-kripke.pl", clause(15))),
-                bindings([binding("World", both)]),
-                uses([
-                  proof(
-                    goal(world(both)),
-                    by(fact("intuitionistic-logic-kripke.pl", clause(8)))
-                  )
-                ])
-              )
-            ])
-          ),
-          proof(
-            goal(base(left, p)),
-            by(fact("intuitionistic-logic-kripke.pl", clause(13)))
-          )
-        ])
-      )
-    ])
-  )
-).
-
-intuitionistic_truth(constructive_case_analysis, root, implies(atom(p), or(atom(p), atom(q)))).
-why(
-  intuitionistic_truth(constructive_case_analysis, root, implies(atom(p), or(atom(p), atom(q)))),
-  proof(
-    goal(intuitionistic_truth(constructive_case_analysis, root, implies(atom(p), or(atom(p), atom(q))))),
-    by(rule("intuitionistic-logic-kripke.pl", clause(25))),
-    uses([
-      proof(
-        goal(forces(root, implies(atom(p), or(atom(p), atom(q))))),
-        by(rule("intuitionistic-logic-kripke.pl", clause(21))),
-        bindings([binding("World", root), binding("Left", atom(p)), binding("Right", or(atom(p), atom(q)))]),
-        uses([
-          proof(
-            goal(world(root)),
-            by(fact("intuitionistic-logic-kripke.pl", clause(5)))
-          ),
-          proof(
-            goal(not(bad_implication(root, atom(p), or(atom(p), atom(q))))),
-            by(builtin(not, 1))
-          )
-        ])
-      )
-    ])
-  )
-).
-
-intuitionistic_truth(double_negated_branch_information, root, neg(neg(or(atom(p), atom(q))))).
-why(
-  intuitionistic_truth(double_negated_branch_information, root, neg(neg(or(atom(p), atom(q))))),
-  proof(
-    goal(intuitionistic_truth(double_negated_branch_information, root, neg(neg(or(atom(p), atom(q)))))),
-    by(rule("intuitionistic-logic-kripke.pl", clause(26))),
-    uses([
-      proof(
-        goal(forces(root, neg(neg(or(atom(p), atom(q)))))),
-        by(rule("intuitionistic-logic-kripke.pl", clause(22))),
-        bindings([binding("World", root), binding("Formula", neg(or(atom(p), atom(q))))]),
-        uses([
-          proof(
-            goal(forces(root, implies(neg(or(atom(p), atom(q))), bottom))),
-            by(rule("intuitionistic-logic-kripke.pl", clause(21))),
-            bindings([binding("World", root), binding("Left", neg(or(atom(p), atom(q)))), binding("Right", bottom)]),
-            uses([
-              proof(
-                goal(world(root)),
-                by(fact("intuitionistic-logic-kripke.pl", clause(5)))
-              ),
-              proof(
-                goal(not(bad_implication(root, neg(or(atom(p), atom(q))), bottom))),
-                by(builtin(not, 1))
-              )
-            ])
-          )
-        ])
-      )
-    ])
-  )
-).
-
-intuitionistic_countermodel(root_does_not_decide_branch, root, or(atom(p), atom(q))).
-why(
-  intuitionistic_countermodel(root_does_not_decide_branch, root, or(atom(p), atom(q))),
-  proof(
-    goal(intuitionistic_countermodel(root_does_not_decide_branch, root, or(atom(p), atom(q)))),
-    by(rule("intuitionistic-logic-kripke.pl", clause(27))),
-    uses([
-      proof(
-        goal(not(forces(root, or(atom(p), atom(q))))),
-        by(builtin(not, 1))
-      )
-    ])
-  )
-).
-
-intuitionistic_countermodel(excluded_middle_not_forced, root, or(atom(p), neg(atom(p)))).
-why(
-  intuitionistic_countermodel(excluded_middle_not_forced, root, or(atom(p), neg(atom(p)))),
-  proof(
-    goal(intuitionistic_countermodel(excluded_middle_not_forced, root, or(atom(p), neg(atom(p))))),
-    by(rule("intuitionistic-logic-kripke.pl", clause(28))),
-    uses([
-      proof(
-        goal(not(forces(root, or(atom(p), neg(atom(p)))))),
-        by(builtin(not, 1))
-      )
-    ])
-  )
-).
-

package/examples/proof/linear-logic-resources.pl

@@ -1,205 +0,0 @@
-linear_result(kitchen, [mill, mix, bake], [bread]).
-why(
-  linear_result(kitchen, [mill, mix, bake], [bread]),
-  proof(
-    goal(linear_result(kitchen, [mill, mix, bake], [bread])),
-    by(rule("linear-logic-resources.pl", clause(15))),
-    bindings([binding("Plan", [mill, mix, bake]), binding("FinalState", [bread]), binding("State", [wheat, yeast, heat])]),
-    uses([
-      proof(
-        goal(initial(kitchen, [wheat, yeast, heat])),
-        by(fact("linear-logic-resources.pl", clause(3)))
-      ),
-      proof(
-        goal(run_linear(3, [wheat, yeast, heat], [mill, mix, bake], [bread])),
-        by(rule("linear-logic-resources.pl", clause(14))),
-        bindings([binding("Steps", 3), binding("State0", [wheat, yeast, heat]), binding("Rule", mill), binding("Plan", [mix, bake]), binding("State2", [bread]), binding("State1", [flour, yeast, heat]), binding("Remaining", 2)]),
-        uses([
-          proof(
-            goal(gt(3, 0)),
-            by(builtin(gt, 2))
-          ),
-          proof(
-            goal(linear_step([wheat, yeast, heat], mill, [flour, yeast, heat])),
-            by(rule("linear-logic-resources.pl", clause(12))),
-            bindings([binding("State0", [wheat, yeast, heat]), binding("Rule", mill), binding("State2", [flour, yeast, heat]), binding("Inputs", [wheat]), binding("Outputs", [flour]), binding("Rest", [yeast, heat])]),
-            uses([
-              proof(
-                goal(linear_rule(mill, [wheat], [flour])),
-                by(fact("linear-logic-resources.pl", clause(5)))
-              ),
-              proof(
-                goal(consume_all([wheat], [wheat, yeast, heat], [yeast, heat])),
-                by(rule("linear-logic-resources.pl", clause(11))),
-                bindings([binding("Need", wheat), binding("Needs", []), binding("State0", [wheat, yeast, heat]), binding("State2", [yeast, heat]), binding("State1", [yeast, heat])]),
-                uses([
-                  proof(
-                    goal(select(wheat, [wheat, yeast, heat], [yeast, heat])),
-                    by(builtin(select, 3))
-                  ),
-                  proof(
-                    goal(consume_all([], [yeast, heat], [yeast, heat])),
-                    by(fact("linear-logic-resources.pl", clause(10))),
-                    bindings([binding("State", [yeast, heat])])
-                  )
-                ])
-              ),
-              proof(
-                goal(append([flour], [yeast, heat], [flour, yeast, heat])),
-                by(builtin(append, 3))
-              )
-            ])
-          ),
-          proof(
-            goal(sub(3, 1, 2)),
-            by(builtin(sub, 3))
-          ),
-          proof(
-            goal(run_linear(2, [flour, yeast, heat], [mix, bake], [bread])),
-            by(rule("linear-logic-resources.pl", clause(14))),
-            bindings([binding("Steps", 2), binding("State0", [flour, yeast, heat]), binding("Rule", mix), binding("Plan", [bake]), binding("State2", [bread]), binding("State1", [dough, heat]), binding("Remaining", 1)]),
-            uses([
-              proof(
-                goal(gt(2, 0)),
-                by(builtin(gt, 2))
-              ),
-              proof(
-                goal(linear_step([flour, yeast, heat], mix, [dough, heat])),
-                by(rule("linear-logic-resources.pl", clause(12))),
-                bindings([binding("State0", [flour, yeast, heat]), binding("Rule", mix), binding("State2", [dough, heat]), binding("Inputs", [flour, yeast]), binding("Outputs", [dough]), binding("Rest", [heat])]),
-                uses([
-                  proof(
-                    goal(linear_rule(mix, [flour, yeast], [dough])),
-                    by(fact("linear-logic-resources.pl", clause(6)))
-                  ),
-                  proof(
-                    goal(consume_all([flour, yeast], [flour, yeast, heat], [heat])),
-                    by(rule("linear-logic-resources.pl", clause(11))),
-                    bindings([binding("Need", flour), binding("Needs", [yeast]), binding("State0", [flour, yeast, heat]), binding("State2", [heat]), binding("State1", [yeast, heat])]),
-                    uses([
-                      proof(
-                        goal(select(flour, [flour, yeast, heat], [yeast, heat])),
-                        by(builtin(select, 3))
-                      ),
-                      proof(
-                        goal(consume_all([yeast], [yeast, heat], [heat])),
-                        by(rule("linear-logic-resources.pl", clause(11))),
-                        bindings([binding("Need", yeast), binding("Needs", []), binding("State0", [yeast, heat]), binding("State2", [heat]), binding("State1", [heat])]),
-                        uses([
-                          proof(
-                            goal(select(yeast, [yeast, heat], [heat])),
-                            by(builtin(select, 3))
-                          ),
-                          proof(
-                            goal(consume_all([], [heat], [heat])),
-                            by(fact("linear-logic-resources.pl", clause(10))),
-                            bindings([binding("State", [heat])])
-                          )
-                        ])
-                      )
-                    ])
-                  ),
-                  proof(
-                    goal(append([dough], [heat], [dough, heat])),
-                    by(builtin(append, 3))
-                  )
-                ])
-              ),
-              proof(
-                goal(sub(2, 1, 1)),
-                by(builtin(sub, 3))
-              ),
-              proof(
-                goal(run_linear(1, [dough, heat], [bake], [bread])),
-                by(rule("linear-logic-resources.pl", clause(14))),
-                bindings([binding("Steps", 1), binding("State0", [dough, heat]), binding("Rule", bake), binding("Plan", []), binding("State2", [bread]), binding("State1", [bread]), binding("Remaining", 0)]),
-                uses([
-                  proof(
-                    goal(gt(1, 0)),
-                    by(builtin(gt, 2))
-                  ),
-                  proof(
-                    goal(linear_step([dough, heat], bake, [bread])),
-                    by(rule("linear-logic-resources.pl", clause(12))),
-                    bindings([binding("State0", [dough, heat]), binding("Rule", bake), binding("State2", [bread]), binding("Inputs", [dough, heat]), binding("Outputs", [bread]), binding("Rest", [])]),
-                    uses([
-                      proof(
-                        goal(linear_rule(bake, [dough, heat], [bread])),
-                        by(fact("linear-logic-resources.pl", clause(7)))
-                      ),
-                      proof(
-                        goal(consume_all([dough, heat], [dough, heat], [])),
-                        by(rule("linear-logic-resources.pl", clause(11))),
-                        bindings([binding("Need", dough), binding("Needs", [heat]), binding("State0", [dough, heat]), binding("State2", []), binding("State1", [heat])]),
-                        uses([
-                          proof(
-                            goal(select(dough, [dough, heat], [heat])),
-                            by(builtin(select, 3))
-                          ),
-                          proof(
-                            goal(consume_all([heat], [heat], [])),
-                            by(rule("linear-logic-resources.pl", clause(11))),
-                            bindings([binding("Need", heat), binding("Needs", []), binding("State0", [heat]), binding("State2", []), binding("State1", [])]),
-                            uses([
-                              proof(
-                                goal(select(heat, [heat], [])),
-                                by(builtin(select, 3))
-                              ),
-                              proof(
-                                goal(consume_all([], [], [])),
-                                by(fact("linear-logic-resources.pl", clause(10))),
-                                bindings([binding("State", [])])
-                              )
-                            ])
-                          )
-                        ])
-                      ),
-                      proof(
-                        goal(append([bread], [], [bread])),
-                        by(builtin(append, 3))
-                      )
-                    ])
-                  ),
-                  proof(
-                    goal(sub(1, 1, 0)),
-                    by(builtin(sub, 3))
-                  ),
-                  proof(
-                    goal(run_linear(0, [bread], [], [bread])),
-                    by(fact("linear-logic-resources.pl", clause(13))),
-                    bindings([binding("State", [bread])])
-                  )
-                ])
-              )
-            ])
-          )
-        ])
-      ),
-      proof(
-        goal(eq([bread], [bread])),
-        by(builtin(eq, 2))
-      )
-    ])
-  )
-).
-
-linear_check(double_spend_rejected, yes).
-why(
-  linear_check(double_spend_rejected, yes),
-  proof(
-    goal(linear_check(double_spend_rejected, yes)),
-    by(rule("linear-logic-resources.pl", clause(16))),
-    bindings([binding("State", [coin])]),
-    uses([
-      proof(
-        goal(initial(wallet, [coin])),
-        by(fact("linear-logic-resources.pl", clause(4)))
-      ),
-      proof(
-        goal(not(run_linear(2, [coin], [buy_flour, buy_yeast], _FinalState))),
-        by(builtin(not, 1))
-      )
-    ])
-  )
-).
-

package/examples/proof/list-collection.pl

@@ -1,52 +0,0 @@
-append(letters, [a, b, c]).
-why(
-  append(letters, [a, b, c]),
-  proof(
-    goal(append(letters, [a, b, c])),
-    by(rule("list-collection.pl", clause(10))),
-    bindings([binding("Extended", [a, b, c]), binding("List", [a, b])]),
-    uses([
-      proof(
-        goal(collection(letters, [a, b])),
-        by(fact("list-collection.pl", clause(7)))
-      ),
-      proof(
-        goal(append([a, b], [c], [a, b, c])),
-        by(builtin(append, 3))
-      )
-    ])
-  )
-).
-
-head(letters, a).
-why(
-  head(letters, a),
-  proof(
-    goal(head(letters, a)),
-    by(rule("list-collection.pl", clause(11))),
-    bindings([binding("Head", a), binding("_Tail", [b])]),
-    uses([
-      proof(
-        goal(collection(letters, [a, b])),
-        by(fact("list-collection.pl", clause(7)))
-      )
-    ])
-  )
-).
-
-tail(letters, [b]).
-why(
-  tail(letters, [b]),
-  proof(
-    goal(tail(letters, [b])),
-    by(rule("list-collection.pl", clause(12))),
-    bindings([binding("Tail", [b]), binding("_Head", a)]),
-    uses([
-      proof(
-        goal(collection(letters, [a, b])),
-        by(fact("list-collection.pl", clause(7)))
-      )
-    ])
-  )
-).
-

package/examples/proof/modal-logic-kripke.pl

@@ -1,125 +0,0 @@
-modal_truth(all_accessible_worlds_clear, w0, box(atom(clear))).
-why(
-  modal_truth(all_accessible_worlds_clear, w0, box(atom(clear))),
-  proof(
-    goal(modal_truth(all_accessible_worlds_clear, w0, box(atom(clear)))),
-    by(rule("modal-logic-kripke.pl", clause(22))),
-    uses([
-      proof(
-        goal(mforces(w0, box(atom(clear)))),
-        by(rule("modal-logic-kripke.pl", clause(21))),
-        bindings([binding("World", w0), binding("Formula", atom(clear))]),
-        uses([
-          proof(
-            goal(world(w0)),
-            by(fact("modal-logic-kripke.pl", clause(3)))
-          ),
-          proof(
-            goal(forall(accessible(w0, Next), mforces(Next, atom(clear)))),
-            by(builtin(forall, 2))
-          )
-        ])
-      )
-    ])
-  )
-).
-
-modal_truth(repair_is_possible, w0, diamond(atom(repaired))).
-why(
-  modal_truth(repair_is_possible, w0, diamond(atom(repaired))),
-  proof(
-    goal(modal_truth(repair_is_possible, w0, diamond(atom(repaired)))),
-    by(rule("modal-logic-kripke.pl", clause(23))),
-    uses([
-      proof(
-        goal(mforces(w0, diamond(atom(repaired)))),
-        by(rule("modal-logic-kripke.pl", clause(20))),
-        bindings([binding("World", w0), binding("Formula", atom(repaired)), binding("Next", w2)]),
-        uses([
-          proof(
-            goal(accessible(w0, w2)),
-            by(fact("modal-logic-kripke.pl", clause(8)))
-          ),
-          proof(
-            goal(mforces(w2, atom(repaired))),
-            by(rule("modal-logic-kripke.pl", clause(18))),
-            bindings([binding("World", w2), binding("Prop", repaired)]),
-            uses([
-              proof(
-                goal(true_at(w2, repaired)),
-                by(fact("modal-logic-kripke.pl", clause(16)))
-              )
-            ])
-          )
-        ])
-      )
-    ])
-  )
-).
-
-modal_truth(nested_possibility, w1, diamond(and(atom(clear), atom(clear)))).
-why(
-  modal_truth(nested_possibility, w1, diamond(and(atom(clear), atom(clear)))),
-  proof(
-    goal(modal_truth(nested_possibility, w1, diamond(and(atom(clear), atom(clear))))),
-    by(rule("modal-logic-kripke.pl", clause(24))),
-    uses([
-      proof(
-        goal(mforces(w1, diamond(and(atom(clear), atom(clear))))),
-        by(rule("modal-logic-kripke.pl", clause(20))),
-        bindings([binding("World", w1), binding("Formula", and(atom(clear), atom(clear))), binding("Next", w1)]),
-        uses([
-          proof(
-            goal(accessible(w1, w1)),
-            by(fact("modal-logic-kripke.pl", clause(9)))
-          ),
-          proof(
-            goal(mforces(w1, and(atom(clear), atom(clear)))),
-            by(rule("modal-logic-kripke.pl", clause(19))),
-            bindings([binding("World", w1), binding("Left", atom(clear)), binding("Right", atom(clear))]),
-            uses([
-              proof(
-                goal(mforces(w1, atom(clear))),
-                by(rule("modal-logic-kripke.pl", clause(18))),
-                bindings([binding("World", w1), binding("Prop", clear)]),
-                uses([
-                  proof(
-                    goal(true_at(w1, clear)),
-                    by(fact("modal-logic-kripke.pl", clause(13)))
-                  )
-                ])
-              ),
-              proof(
-                goal(mforces(w1, atom(clear))),
-                by(rule("modal-logic-kripke.pl", clause(18))),
-                bindings([binding("World", w1), binding("Prop", clear)]),
-                uses([
-                  proof(
-                    goal(true_at(w1, clear)),
-                    by(fact("modal-logic-kripke.pl", clause(13)))
-                  )
-                ])
-              )
-            ])
-          )
-        ])
-      )
-    ])
-  )
-).
-
-modal_countermodel(repair_not_necessary, w0).
-why(
-  modal_countermodel(repair_not_necessary, w0),
-  proof(
-    goal(modal_countermodel(repair_not_necessary, w0)),
-    by(rule("modal-logic-kripke.pl", clause(25))),
-    uses([
-      proof(
-        goal(not(mforces(w0, box(atom(repaired))))),
-        by(builtin(not, 1))
-      )
-    ])
-  )
-).
-