packages feed

phino-0.0.157: test-resources/evaluate-packs/parks-an-evaluate-line-over-a-term-that-is-no-formation.yaml

# SPDX-FileCopyrightText: Copyright (c) 2025 Objectionary.com
# SPDX-License-Identifier: MIT
---
# yamllint disable rule:line-length
# The 'rewrite' line takes 'Ξ¦.k' out of the formation 'a' morphs to, and that
# dispatch is no formation and so nothing 𝔼 can be asked of: the 'evaluate'
# line gets stuck on the fork itself, and '--partial' parks the site the fork
# stands at (#1874). A branch parked under '--partial' never comes this far,
# since its firing gets stuck where its morph does (#2014).
symbolic: |
  - Ξ»: L_fork
    morph:
      𝑛1: $.a
    rewrite:
      𝑛2:
        of: 𝑛1
        rules:
          - name: unwrap
            pattern: ⟦ Ο† ↦ 𝑒1 ⟧
            result: 𝑒1
    evaluate:
      𝑛3: 𝑛2
    𝑛: 𝑛3
location: 'Q.y'
partial: true
input: '⟦ k ↦ ⟦⟧, y ↦ ⟦ a ↦ ⟦ Ο† ↦ Ξ¦.k ⟧, Ξ» ‍ L_fork ⟧.Ο† ⟧'
result: '⟦ a ↦ ⟦ Ο† ↦ Ξ¦.k ⟧, Ξ» ‍ L_fork ⟧.Ο†'
protocol: |
  𝕄(Ξ¦.y):
    𝔼(L_fork):
      𝑛1Β·1 := Ξ¦.k:Ο†  # 𝕄(ΞΎ.a)
      𝑛2Β·1 := Ξ¦.k  # rewrite(𝑛1)
      stuck L_fork