From 6dd1a626f30558c7cecaf8870a9a52bd12350d8e Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Fri, 22 Dec 2023 20:24:43 +0530
Subject: refactor: minor refactor of proofs

---
 src/equation.ts | 59 +++++++++++++++++++++++++++------------------------------
 1 file changed, 28 insertions(+), 31 deletions(-)

(limited to 'src/equation.ts')

diff --git a/src/equation.ts b/src/equation.ts
index cc668b1..e2cc2bc 100644
--- a/src/equation.ts
+++ b/src/equation.ts
@@ -1,48 +1,45 @@
-import { Op, Rewrite, ChainRewrites, Sym, Equation, VerifyEquation, assert, ApplyRewrite, Evaluate, OpToStr, SubstEq } from './utils/theorem';
+import { Op, Rewrite, ChainRewrites, Sym, Equation, VerifyEquation, assert, SubstEq } from './utils/theorem';
 
 export namespace equation {
   type F<X extends Op> = { op: 'F', a: X };
 
   export type Reflexivity<A extends Op> = Rewrite<Equation<A, A>, 'true'>;
 
-  export type Symmetry<A extends Op, B extends Op> = Rewrite<Equation<A, B>, Equation<B, A>>;
+  export type Commutativity<A extends Op, B extends Op> = Rewrite<Equation<A, B>, Equation<B, A>>;
 
   export type Congruence<A extends Op, B extends Op> = Rewrite<Equation<A, B>, Equation<F<A>, F<B>>>;
 
-  export interface SubstituteEq_Proof<A extends Op, B extends Op> {
-    type: 'rewrite',
-    known: {
-      'a = b': Equation<A, B>,
-    },
-    left: Equation<F<A>, F<B>>; // f(a) = f(b)
-    right: ChainRewrites<[
-      Sym<Congruence<A, B>>,                   // a = b
-      SubstEq<this['known']['a = b']>,         // b = b
-      Reflexivity<B>,
-    ], this['left']>;
-  };
-  export namespace spec {
+  export namespace proof {
+    export interface SubstituteEq_Proof<A extends Op, B extends Op> {
+      type: 'rewrite',
+      known: {
+        'a = b': Equation<A, B>,
+      },
+      left: Equation<F<A>, F<B>>; // f(a) = f(b)
+      right: ChainRewrites<[
+        Sym<Congruence<A, B>>,                   // a = b
+        SubstEq<this['known']['a = b']>,         // b = b
+        Reflexivity<B>,
+      ], this['left']>;
+    };
     export type substitution = [
       assert<VerifyEquation<SubstituteEq_Proof<'A', 'B'>>>,
     ]
   }
 
-  export interface Transitivity_Proof<A extends Op, B extends Op, C extends Op> {
-    type: 'rewrite',
-    known: {
-      'a = b': Equation<A, B>,
-      'b = c': Equation<B, C>,
-    },
-    left: Equation<Equation<A, B>, Equation<B, C>>; // (a = b) = (b = c)
-    right: ChainRewrites<[
-      SubstEq<this['known']['a = b']>,                                 // (b = b) = (b = c)
-      SubstEq<ApplyRewrite<this['known']['b = c'], Symmetry<B, C>>>,   // (b = b) = (c = b)
-      Reflexivity<B>,                                                       // true = (b = b)
-      Reflexivity<B>,                                                       // true = true
-      Reflexivity<'true'>,
-    ], this['left']>;
-  };
-  export namespace spec {
+  export namespace proof {
+    export interface Transitivity_Proof<A extends Op, B extends Op, C extends Op> {
+      type: 'rewrite',
+      known: {
+        'a = b': Equation<A, B>,
+        'b = c': Equation<B, C>,
+      },
+      left: Equation<A, C>; // a = c
+      right: ChainRewrites<[
+        SubstEq<this['known']['a = b']>,                   // b = c
+        Rewrite<this['known']['b = c'], 'true'>,           // true
+      ], this['left']>;
+    };
     export type transitivity = [
       assert<VerifyEquation<Transitivity_Proof<'A', 'B', 'C'>>>,
     ]
-- 
cgit v1.3.1