packages feed

phino-0.0.152: test-resources/evaluate-packs/fails-on-a-fork-whose-branches-do-not-join.yaml

# SPDX-FileCopyrightText: Copyright (c) 2025 Objectionary.com
# SPDX-License-Identifier: MIT
---
# yamllint disable rule:line-length
# The very fork '--partial' parks, without the option: a firing with nothing to
# answer fails the run, exactly as a Ξ» function no entry of the '--symbolic'
# file answers does. The protocol keeps what the firing had reached before it
# got stuck, since it records what 𝔼 was asked for and not only what it could
# answer.
symbolic: |
  - Ξ»: L_fork
    morph:
      𝑛1: $.a
      𝑛2: $.b
    join:
      𝑛3: [𝑛1, 𝑛2]
    𝑛: 𝑛3
location: 'Q.y'
input: '⟦ y ↦ ⟦ a ↦ ⟦ l ↦ ⟦ Ξ» ‍ 𝜎1 ⟧ ⟧, b ↦ ⟦ l ↦ ⟦ Ξ» ‍ 𝜎2 ⟧, x ↦ ⟦⟧ ⟧, Ξ» ‍ L_fork ⟧.l ⟧'
fails: "No entry of --symbolic answers the Ξ» function 'L_fork'"
protocol: |
  𝕄(Ξ¦.y):
    𝔼(L_fork):
      𝑛1Β·1 := 𝜎1:Ξ»:l  # 𝕄(ΞΎ.a)
      𝑛2Β·1 := ⟦ l ↦ 𝜎2:Ξ», x ↦ ⟦⟧ ⟧  # 𝕄(ΞΎ.b)
      stuck(L_fork)