packages feed

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)