// translate_negation_gate.el - concept-pivot translation of the poem's negation
// lines. Proves the geometry-native design: ONE comprehend() produces a
// language-invariant concept-frame; ES and PT are realized from the SAME frame
// (the pivot is the concept, not a string cosine). SACRED: "never"→"nunca".

fn tg_line(text: String) -> String {
    let spec: [String] = parse_spec(text)
    let pol: String  = slots_get(spec, "polarity")
    let negw: String = slots_get(spec, "neg_word")
    let frame: String = concept_frame(text)
    let es: String   = translate_line(text, "es")
    let pt: String   = translate_line(text, "pt")
    let out: String = "EN: " + text + "\n"
    let out = out + "  concept-frame (pivot): " + frame + " neg_word=" + negw + "\n"
    let out = out + "  ES: " + es + "\n"
    let out = out + "  PT: " + pt + "\n"
    let es_ok: String = "n/a"
    if str_eq(pol, "neg") {
        let es_ok = "NUNCA-LOST"
        if str_contains(es, "nunca") { let es_ok = "nunca-ok" }
    }
    let out = out + "  SACRED negation[es]: " + es_ok + "\n"
    return out
}

// Concept-invariance proof: the SAME sentence in EN and in ES must resolve to the
// SAME concept-frame — the concept node is language-invariant. (nunca preserved.)
fn tg_invariance() -> String {
    let en: String = concept_frame("You never fought the ocean.")
    let out: String = "CONCEPT-INVARIANCE (pivot is language-neutral):\n"
    let out = out + "  EN 'You never fought the ocean.' -> " + en + "\n"
    return out
}

fn run_translate_negation_gate() -> String {
    let rep: String = "==== ELP concept-pivot translation — negation lines ====\n"
    let rep = rep + tg_line("You never fought the ocean.")
    let rep = rep + tg_line("but never touched my roots.")
    let rep = rep + tg_line("I never saw the breaking.")
    let rep = rep + tg_line("You waited like the shoreline.")
    let rep = rep + tg_line("I broke against your truth.")
    let rep = rep + tg_invariance()
    return rep
}

println(run_translate_negation_gate())