phino-0.0.164: test-resources/evaluate-packs/refuses-a-meta-bound-to-a-term-that-is-not-a-normal-form.yaml
# SPDX-FileCopyrightText: Copyright (c) 2025 Objectionary.com
# SPDX-License-Identifier: MIT
---
# yamllint disable rule:line-length
# A meta π of an entry may hold only a normal form (#2343). The 'rewrite'
# line normalizes nothing, and its rule wraps the term into a dispatch off a
# formation, which 'dot' of normalization would still take, so the firing
# refuses to bind 'π2' to it.
symbolic: |
- Ξ»: L_wrap
morph:
π1: $.x
rewrite:
π2:
of: π1
rules:
- name: wrap
pattern: β¦ π΅1 β§
result: β¦ k β¦ β¦ π΅1 β§ β§.k
π: π2
location: 'Q.y'
input: 'β¦ y β¦ β¦ x β¦ β¦ Ξ β€ 01- β§, Ξ» β€ L_wrap β§.Ο β§'
fails: "The meta 'π2' of Ξ» function 'L_wrap' may hold only a normal form"
protocol: |
π(Ξ¦.y):
πΌ(L_wrap):
π(ΞΎ.x):
morphed πΒ·1Β·1 := 01-:Ξ
π1Β·1 := 01-:Ξ # π(ΞΎ.x)
π2Β·1 := 01-:Ξ:k.k # rewrite(π1)