strategy: introduce \condproof

[topbloke-formulae.git] / traversal.tex

diff --git a/traversal.tex b/traversal.tex
index c9647ad7e6ea93d98c08f0177cb709df1c035328..93a3eb82e87cb8bcbeb810dc479ad6756b49393b 100644 (file)
--- a/traversal.tex
+++ b/traversal.tex
@@ -151,12 +151,13 @@ Use $\alg{Create Base}$ with $L$ = $\tipdy,\; \pq = \pc$ to generate $C$
 and set $W \iassign C$.
 
  \commitproof{
-  Create Acyclic: by Tip Correct Contents of $L$,
-  $L \haspatch \pa E \equiv \pa E = \pd \lor \pa E \isdep \pd$.
-  Now $\pd \isdirdep \pc$,
-  so by Coherence, and setting $\pa E = \pc$,
-  $L \nothaspatch \pc$. I.e. $L \nothaspatch \pq$.  OK.
-
+  \condproof{Create Acyclic}{
+   by Tip Correct Contents of $L$,
+   $L \haspatch \pa E \equiv \pa E = \pd \lor \pa E \isdep \pd$.
+   Now $\pd \isdirdep \pc$,
+   so by Coherence, and setting $\pa E = \pc$,
+   $L \nothaspatch \pc$. I.e. $L \nothaspatch \pq$.  OK.
+  }
   That's everything for Create Base.
  }
 
@@ -171,11 +172,12 @@ sources.  That is, use $\alg{Pseudo-Merge}$ with $L = W, \;
 \set R = \{ W \} \cup \set S^{\pcn}$.
 
  \commitproof{
-  Base Only: $\patchof{W} = \patchof{L} = \pn$.  OK.
+  \condproof{Base Only}{ $\patchof{W} = \patchof{L} = \pn$.  OK. }
 
-  Unique Tips:
-  Want to prove that for any $\p \isin C$, $\tipdy$ is a suitable $T$.
-  WIP TODO
+  \condproof{Unique Tips}{
+   Want to prove that for any $\p \isin C$, $\tipdy$ is a suitable $T$.
+   WIP TODO
+  }
 
   WIP TODO INCOMPLETE
  }