phino-0.0.134: resources/normalize/dot.yaml

# SPDX-FileCopyrightText: Copyright (c) 2025 Objectionary.com
# SPDX-License-Identifier: MIT
---
# Dispatch 𝜏1 on a formation: contextualize the dispatched body 𝑛1 and decorate
# it with the whole formation as ρ. The contextualization context is the
# formation WITHOUT the dispatched binding — ⟦𝐵1, 𝐵2⟧, not ⟦𝐵1, 𝜏1 ↦ 𝑛1, 𝐵2⟧ —
# so a self-referential ξ inside 𝑛1 (as in ⟦ a ↦ ξ ⟧.a or ⟦ a ↦ ξ.a ⟧.a) no
# longer sees 𝜏1. Such a self-reference then dispatches on a formation that
# lacks 𝜏1 and collapses to ⊥ via stop/null/dd instead of rebuilding the same
# ⟦…, 𝜏1 ↦ 𝑛1, …⟧.𝜏1 term and looping forever. ρ on line 'result' still binds
# the full formation, so sibling and φ-decoration references stay intact — only
# the self-ξ path narrows, keeping normalization (near-)total.
# The formation the dispatch stands on is the whole program here and not a part
# of it; the 'dotg' sibling writes that one, and the two together cover every
# dispatch this one covered alone. Where no universe is known — the 'rewrite'
# command, and 'isNF' asking about a term on its own — 𝑒1 binds nothing, the
# guard cannot hold, and this rule answers every dispatch as it always did.
name: dot
pattern: ⟦𝐵1, 𝜏1 ↦ 𝑛1, 𝐵2⟧.𝜏1
e-match: 𝑒1
when:
  not:
    eq:
      - ⟦𝐵1, 𝜏1 ↦ 𝑛1, 𝐵2⟧
      - 𝑒1
result: 𝑒2(ρ ↦ ⟦𝐵1, 𝜏1 ↦ 𝑛1, 𝐵2⟧)
where:
  - meta: 𝑒2
    function: contextualize
    args:
      - 𝑛1
      - ⟦𝐵1, 𝐵2⟧