phino-0.0.152: test-resources/evaluate-packs/writes-a-symbolized-copy-of-a-term-out-in-full.yaml
# SPDX-FileCopyrightText: Copyright (c) 2025 Objectionary.com
# SPDX-License-Identifier: MIT
---
# A name of the protocol stands for the very term it was given to and for no
# other. A 'symbolize' line stands the data of a term into unknowns without
# touching what the term carries first, so the copy it binds and the term it
# was made of open with the same π and differ further down β here π1 carries
# '02-' under Ο where π2 carries the symbol that datum was stood into β under
# Ο, since the value of a term is reached where its Ο chain ends and a datum
# standing anywhere else is left alone (#1293). The
# line of π2 writes the term out, since naming it after π1 would say nothing
# was replaced on the very line that replaced something, while the 'π»(β¦) == β¦'
# above it says something was (#1292).
symbolic: |
- Ξ»: L_stand
morph:
π1: $.b
symbolize:
π2: π1
π: β¦ l β¦ π2 β§
location: 'Q.y'
input: 'β¦ y β¦ β¦ b β¦ β¦ Ξ» β€ π7, Ο β¦ β¦ Ξ β€ 02- β§ β§, Ξ» β€ L_stand β§.l β§'
protocol: |
π(Ξ¦.y):
πΌ(L_stand):
π1Β·1 := β¦ Ξ» β€ π7, Ο β¦ 02-:Ξ β§ # π(ΞΎ.b)
π»(π8:Ξ») == 02-
π2Β·1 := β¦ Ξ» β€ π7, Ο β¦ π8:Ξ» β§ # π1
πΒ·1Β·1 := β¦ Ξ» β€ π7, Ο β¦ π8:Ξ» β§:l # π
πΒ·1Β·2 := β¦ Ξ» β€ π7, Ο β¦ π8:Ξ» β§:l # π(πΒ·1Β·1)