提交: 9d5217685979ed7890a78bc374a7a9af1ca6ea67 - cammy (git)

A categorical programming language

Commit MetaInfo

• 修订版: 9d5217685979ed7890a78bc374a7a9af1ca6ea67 (tree)
• 时间: 2023-03-28 05:46:40
• 作者: Corbin <cds@corb...>
• Commiter: Corbin

Log Message

Add a few more rules for Booleans.

更改概述

• modified: jelly/src/main.rs

差异

--- a/jelly/src/main.rs
+++ b/jelly/src/main.rs
@@ -223,6 +223,7 @@ fn main() -> std::io::Result<()> {
         // 2 = 1 + 1
         rw!("bool-t-either"; "(comp t either)" => "left"),
         rw!("bool-f-either"; "(comp f either)" => "right"),
+        rw!("bool-not-either"; "(comp (comp not either) (case ?f ?g))" => "(comp either (case ?g ?f))"),
 
         // Boolean negation
         rw!("bool-t-not"; "(comp t not)" => "f"),
@@ -239,6 +240,10 @@ fn main() -> std::io::Result<()> {
         rw!("bool-conj-t-pointed"; "(comp (pair (comp ignore t) ?b) conj)" => "?b"),
         rw!("bool-disj-f-pointed"; "(comp (pair (comp ignore f) ?b) disj)" => "?b"),
         rw!("bool-disj-t-pointed"; "(comp (pair (comp ignore t) ?b) disj)" => "(comp ignore t)"),
+        rw!("bool-conj-dup"; "(comp dup conj)" => "id"),
+        rw!("bool-disj-dup"; "(comp dup disj)" => "id"),
+        rw!("bool-conj-not"; "(comp (pair not id) conj)" => "(comp ignore f)"),
+        rw!("bool-disj-not"; "(comp (pair not id) disj)" => "(comp ignore t)"),
 
         // IEEE 754 addition
         // f-add is symmetric