pair-eta/theories/diagram.txt

a0 --> a3
|      |
|      |
v      v
a1 --> a4


(Abs a3) >>* a2

Abs a0 ----> (Abs a3) >>* a2
  |             |
  |             |
Abs a1 ----> (Abs a4) >>*


a0 >> a1
|     |
|     |
v     v
b0 >> b1
Stuck at diamodn property 2024-12-22 23:51:01 -05:00			`a0 --> a3`
			`\| \|`
			`\| \|`
			`v v`
			`a1 --> a4`


			`(Abs a3) >>* a2`

			`Abs a0 ----> (Abs a3) >>* a2`
			`\| \|`
			`\| \|`
			`Abs a1 ----> (Abs a4) >>*`
Add outermost expansion and some related lemmas 2024-12-23 01:13:55 -05:00

			`a0 >> a1`
			`\| \|`
			`\| \|`
			`v v`
			`b0 >> b1`