@stevenvo780/st-lang 4.8.0 → 4.10.0

package/dist/logic/profiles/natural-deduction-nk/types.js

@@ -0,0 +1,35 @@
+"use strict";
+// ============================================================
+// Natural Deduction NK (Gentzen classical) — Tipos
+// ============================================================
+//
+// Sistema NK de Gentzen para lógica proposicional clásica.
+// Extiende NJ (intuicionista) con reglas que justifican el
+// tercero excluido / doble negación clásica.
+//
+// Reglas intuicionistas heredadas (idéntico a NJ):
+//   - Conjunción:   ∧I, ∧EL, ∧ER
+//   - Disyunción:   ∨IL, ∨IR, ∨E (con descarga)
+//   - Implicación:  →I (descarga), →E (modus ponens)
+//   - Negación:     ¬I (descarga, deriva ⊥), ¬E (deriva ⊥)
+//   - Falsedad:     ⊥E (ex falso quodlibet)
+//   - Asunción:     hipótesis del contexto
+//
+// Reglas clásicas añadidas:
+//   - doubleNegE:   ¬¬φ ⊢ φ                 (eliminación doble negación)
+//   - LEM:          ⊢ φ ∨ ¬φ                (tercero excluido como axioma)
+//   - pierce:       ⊢ ((φ→ψ)→φ)→φ           (ley de Peirce como axioma)
+//   - rAA:          asume ¬φ, deriva ⊥, concluye φ (reductio ad absurdum)
+//
+// La regla rAA es la dual clásica de ¬I: en NJ, asumiendo φ y
+// derivando ⊥ se concluye ¬φ; en NK, asumiendo ¬φ y derivando
+// ⊥ se concluye φ. Con sólo rAA añadida a NJ se obtiene
+// completitud para la lógica clásica proposicional.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.CLASSICAL_ONLY_RULES = void 0;
+/**
+ * Conjunto de reglas que sólo existen en NK (no en NJ).
+ * Útil para detectar si una prueba NK es trasladable a NJ.
+ */
+exports.CLASSICAL_ONLY_RULES = ['doubleNegE', 'LEM', 'pierce', 'rAA'];
+//# sourceMappingURL=types.js.map

package/dist/logic/profiles/natural-deduction-nk/types.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.js","sourceRoot":"","sources":["../../../../src/logic/profiles/natural-deduction-nk/types.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,mDAAmD;AACnD,+DAA+D;AAC/D,EAAE;AACF,2DAA2D;AAC3D,2DAA2D;AAC3D,6CAA6C;AAC7C,EAAE;AACF,mDAAmD;AACnD,iCAAiC;AACjC,gDAAgD;AAChD,qDAAqD;AACrD,2DAA2D;AAC3D,4CAA4C;AAC5C,2CAA2C;AAC3C,EAAE;AACF,4BAA4B;AAC5B,yEAAyE;AACzE,2EAA2E;AAC3E,wEAAwE;AACxE,0EAA0E;AAC1E,EAAE;AACF,8DAA8D;AAC9D,8DAA8D;AAC9D,wDAAwD;AACxD,oDAAoD;;;AAiDpD;;;GAGG;AACU,QAAA,oBAAoB,GAA0B,CAAC,YAAY,EAAE,KAAK,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC"}

package/dist/logic/profiles/quantum/index.d.ts

@@ -0,0 +1,153 @@
+export interface Vector {
+    values: number[];
+}
+export declare function vec(values: number[]): Vector;
+export declare function dot(a: Vector, b: Vector): number;
+export declare function norm(v: Vector): number;
+export declare function normalize(v: Vector): Vector;
+export declare function isOrthogonal(a: Vector, b: Vector, eps?: number): boolean;
+/**
+ * Gram-Schmidt sobre `vectors`. Devuelve la base ortonormal del
+ * subespacio que generan (puede tener menos vectores que la entrada
+ * si hay dependencias). Devuelve `null` solo si la entrada está vacía.
+ */
+export declare function orthonormalBasis(vectors: Vector[], eps?: number): Vector[] | null;
+export interface Subspace {
+    basis: Vector[];
+    dimension: number;
+    ambientDim: number;
+}
+/**
+ * Subespacio generado por `vectors`. Si la lista está vacía,
+ * `ambientDim` debe pasarse para devolver el subespacio cero del
+ * ambiente correcto.
+ */
+export declare function span(vectors: Vector[], ambientDim?: number): Subspace;
+/** ¿a ⊆ b? Todos los vectores de la base de a están en b. */
+export declare function isContained(a: Subspace, b: Subspace, eps?: number): boolean;
+export declare function equalsSubspace(a: Subspace, b: Subspace, eps?: number): boolean;
+/**
+ * Ortocomplemento de `s` en el ambiente de dimensión `ambientDim`.
+ * Algoritmo: tomar la base canónica e_1..e_n, restarle la proyección
+ * sobre `s`, y aplicar Gram-Schmidt; los vectores supervivientes
+ * forman la base ortonormal de s⊥.
+ */
+export declare function orthocomplement(s: Subspace, ambientDim?: number): Subspace;
+/**
+ * Join (∨) = span(a.basis ∪ b.basis). Es la operación supremo
+ * en el lattice; el resultado siempre contiene tanto a como b.
+ */
+export declare function join(a: Subspace, b: Subspace): Subspace;
+/**
+ * Meet (∧) = intersección de subespacios. Identidad lattice:
+ *   a ∧ b = (a⊥ ∨ b⊥)⊥
+ */
+export declare function meet(a: Subspace, b: Subspace): Subspace;
+/** Subespacio cero (dimensión 0) en R^n. */
+export declare function zeroSubspace(ambientDim: number): Subspace;
+/** Top: todo el espacio R^n con la base canónica. */
+export declare function topSubspace(ambientDim: number): Subspace;
+export interface QuantumLattice {
+    dimensions: number;
+    meet: (a: Subspace, b: Subspace) => Subspace;
+    join: (a: Subspace, b: Subspace) => Subspace;
+    orthocomplement: (s: Subspace) => Subspace;
+    zero: Subspace;
+    top: Subspace;
+}
+export declare function makeQuantumLattice(dim: number): QuantumLattice;
+/**
+ * Distributividad: a ∧ (b ∨ c) = (a ∧ b) ∨ (a ∧ c).
+ * En el lattice cuántico FALLA — devolvemos true sólo si se cumple
+ * para *toda* muestra (lo cual prácticamente nunca pasa para n ≥ 2).
+ */
+export declare function isDistributive(L: QuantumLattice, samples?: number): boolean;
+/**
+ * Modularidad: si a ≤ c entonces a ∨ (b ∧ c) = (a ∨ b) ∧ c.
+ * En dimensión finita el lattice de subespacios SÍ es modular
+ * (resultado clásico). El test forma a' = a ∧ c (siempre ≤ c)
+ * para garantizar la hipótesis a' ≤ c.
+ */
+export declare function isModular(L: QuantumLattice, samples?: number): boolean;
+/**
+ * Ortomodularidad: si a ≤ b entonces b = a ∨ (b ∧ a⊥).
+ * Se cumple en el lattice de subespacios de un espacio de Hilbert.
+ */
+export declare function isOrthomodular(L: QuantumLattice, samples?: number): boolean;
+export interface KSConfiguration {
+    vectors: Vector[];
+    /** Tripletes (i,j,k) tales que v_i, v_j, v_k son mutuamente ortogonales. */
+    orthoTriples: Array<[number, number, number]>;
+}
+/**
+ * Detecta automáticamente todos los triples ortogonales en R^3
+ * dentro de `vectors` y los registra. En R^3, tres vectores no
+ * nulos mutuamente ortogonales forman base.
+ */
+export declare function findOrthogonalTriples(vectors: Vector[], eps?: number): Array<[number, number, number]>;
+/**
+ * ¿Existe una coloración {0,1} de los vectores tal que:
+ *  - dos vectores que generan el mismo rayo reciben el mismo color,
+ *  - en cada triple ortogonal exactamente uno recibe color 1?
+ *
+ * Devuelve true si tal coloración existe (configuración "trivial"),
+ * false si la configuración es un teorema KS (no coloreable).
+ *
+ * Algoritmo: backtracking sobre los rayos (no los vectores), con
+ * unit-propagation por las restricciones de cada triple.
+ */
+export declare function isKSColorable(config: KSConfiguration): boolean;
+/**
+ * Configuración estilo-Peres: rayos en R^3 con coordenadas en
+ * { -1, 0, 1, ±√2 }, deduplicados por rayo. La cantidad exacta de
+ * rayos depende de cuáles dedupliquen (p.ej. (√2,√2,0) define el
+ * mismo rayo que (1,1,0)).
+ *
+ * Aviso histórico: la prueba ORIGINAL de Kochen-Specker (1967)
+ * usa 117 vectores en R^3. Asher Peres (1991) la simplificó a 33
+ * vectores en R^3, y Cabello-Estebaranz-García (1996) probaron
+ * que en R^4 bastan 18 — el mínimo conocido en cualquier
+ * dimensión, ver `kochenSpeckerCabello18()`. Aquí construimos
+ * la familia clásica de rayos R^3 a partir del cubo unitario;
+ * la prueba de no-coloreabilidad rigurosa se delega a la
+ * configuración Cabello-18 (R^4), que se incluye en el mismo
+ * módulo y es la que usan los tests para el teorema KS.
+ */
+export declare function kochenSpeckerTheorem3D(): KSConfiguration;
+/**
+ * Configuración Cabello-Estebaranz-García (1996): 18 vectores en
+ * R^4 que constituyen el menor conjunto Kochen-Specker conocido
+ * en cualquier dimensión. La prueba se basa en 9 "contextos"
+ * (bases ortonormales de R^4); cada vector aparece en exactamente
+ * 2 contextos, así que cualquier asignación 0/1 que ponga
+ * exactamente un "1" por contexto requeriría que la suma global
+ * sea 9 (impar), pero como cada vector contribuye 0 ó 2, la suma
+ * debe ser par — contradicción.
+ *
+ * El `KSConfiguration` devuelto es R^4; la función `isKSColorable`
+ * funciona idénticamente en cualquier dimensión, sólo verifica
+ * la estructura combinatoria de los `orthoTriples` (aquí, en R^4,
+ * los "triples" son en realidad CUÁDRUPLAS — para mantener la
+ * interfaz, partimos cada cuádrupla {a,b,c,d} en sus C(4,3)=4
+ * triples implicados; esto preserva la lógica "exactamente un 1
+ * por base" porque sumar exactamente 1 en cada uno de los 4
+ * triples implica sumar exactamente 1 en el cuádruplo).
+ *
+ * Wait: realmente el enunciado correcto en R^4 es "exactamente
+ * UN 1 por contexto ortonormal de 4 vectores". El checker actual
+ * trabaja en triples (R^3). Para R^4 usamos un solver
+ * especializado: `isKSColorableContexts`.
+ */
+export declare function kochenSpeckerCabello18(): {
+    vectors: Vector[];
+    contexts: number[][];
+};
+/**
+ * Checker KS para contextos de cualquier aridad (no sólo R^3
+ * triples). Verifica que existe una asignación {0,1} a cada rayo
+ * tal que en cada contexto se asigna exactamente un 1.
+ *
+ * Usado para R^4 Cabello-18 (la prueba KS más pequeña conocida).
+ */
+export declare function isKSColorableContexts(vectors: Vector[], contexts: number[][]): boolean;
+//# sourceMappingURL=index.d.ts.map

package/dist/logic/profiles/quantum/index.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../../../../src/logic/profiles/quantum/index.ts"],"names":[],"mappings":"AAiCA,MAAM,WAAW,MAAM;IACrB,MAAM,EAAE,MAAM,EAAE,CAAC;CAClB;AAID,wBAAgB,GAAG,CAAC,MAAM,EAAE,MAAM,EAAE,GAAG,MAAM,CAE5C;AAYD,wBAAgB,GAAG,CAAC,CAAC,EAAE,MAAM,EAAE,CAAC,EAAE,MAAM,GAAG,MAAM,CAOhD;AAED,wBAAgB,IAAI,CAAC,CAAC,EAAE,MAAM,GAAG,MAAM,CAEtC;AAED,wBAAgB,SAAS,CAAC,CAAC,EAAE,MAAM,GAAG,MAAM,CAM3C;AAED,wBAAgB,YAAY,CAAC,CAAC,EAAE,MAAM,EAAE,CAAC,EAAE,MAAM,EAAE,GAAG,GAAE,MAAY,GAAG,OAAO,CAE7E;AAqBD;;;;GAIG;AACH,wBAAgB,gBAAgB,CAAC,OAAO,EAAE,MAAM,EAAE,EAAE,GAAG,GAAE,MAAY,GAAG,MAAM,EAAE,GAAG,IAAI,CAkBtF;AAID,MAAM,WAAW,QAAQ;IACvB,KAAK,EAAE,MAAM,EAAE,CAAC;IAChB,SAAS,EAAE,MAAM,CAAC;IAClB,UAAU,EAAE,MAAM,CAAC;CACpB;AAMD;;;;GAIG;AACH,wBAAgB,IAAI,CAAC,OAAO,EAAE,MAAM,EAAE,EAAE,UAAU,CAAC,EAAE,MAAM,GAAG,QAAQ,CAUrE;AAkBD,6DAA6D;AAC7D,wBAAgB,WAAW,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,QAAQ,EAAE,GAAG,GAAE,MAAY,GAAG,OAAO,CAMhF;AAED,wBAAgB,cAAc,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,QAAQ,EAAE,GAAG,GAAE,MAAY,GAAG,OAAO,CAEnF;AAED;;;;;GAKG;AACH,wBAAgB,eAAe,CAAC,CAAC,EAAE,QAAQ,EAAE,UAAU,CAAC,EAAE,MAAM,GAAG,QAAQ,CAa1E;AAED;;;GAGG;AACH,wBAAgB,IAAI,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,QAAQ,GAAG,QAAQ,CAQvD;AAED;;;GAGG;AACH,wBAAgB,IAAI,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,QAAQ,GAAG,QAAQ,CAOvD;AAED,4CAA4C;AAC5C,wBAAgB,YAAY,CAAC,UAAU,EAAE,MAAM,GAAG,QAAQ,CAEzD;AAED,qDAAqD;AACrD,wBAAgB,WAAW,CAAC,UAAU,EAAE,MAAM,GAAG,QAAQ,CAIxD;AAID,MAAM,WAAW,cAAc;IAC7B,UAAU,EAAE,MAAM,CAAC;IACnB,IAAI,EAAE,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,QAAQ,KAAK,QAAQ,CAAC;IAC7C,IAAI,EAAE,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,QAAQ,KAAK,QAAQ,CAAC;IAC7C,eAAe,EAAE,CAAC,CAAC,EAAE,QAAQ,KAAK,QAAQ,CAAC;IAC3C,IAAI,EAAE,QAAQ,CAAC;IACf,GAAG,EAAE,QAAQ,CAAC;CACf;AAED,wBAAgB,kBAAkB,CAAC,GAAG,EAAE,MAAM,GAAG,cAAc,CAY9D;AA4DD;;;;GAIG;AACH,wBAAgB,cAAc,CAAC,CAAC,EAAE,cAAc,EAAE,OAAO,GAAE,MAAW,GAAG,OAAO,CAU/E;AAED;;;;;GAKG;AACH,wBAAgB,SAAS,CAAC,CAAC,EAAE,cAAc,EAAE,OAAO,GAAE,MAAW,GAAG,OAAO,CAW1E;AAED;;;GAGG;AACH,wBAAgB,cAAc,CAAC,CAAC,EAAE,cAAc,EAAE,OAAO,GAAE,MAAW,GAAG,OAAO,CAoB/E;AAID,MAAM,WAAW,eAAe;IAC9B,OAAO,EAAE,MAAM,EAAE,CAAC;IAClB,4EAA4E;IAC5E,YAAY,EAAE,KAAK,CAAC,CAAC,MAAM,EAAE,MAAM,EAAE,MAAM,CAAC,CAAC,CAAC;CAC/C;AAED;;;;GAIG;AACH,wBAAgB,qBAAqB,CACnC,OAAO,EAAE,MAAM,EAAE,EACjB,GAAG,GAAE,MAAa,GACjB,KAAK,CAAC,CAAC,MAAM,EAAE,MAAM,EAAE,MAAM,CAAC,CAAC,CAiBjC;AAmCD;;;;;;;;;;GAUG;AACH,wBAAgB,aAAa,CAAC,MAAM,EAAE,eAAe,GAAG,OAAO,CAgI9D;AAED;;;;;;;;;;;;;;;GAeG;AACH,wBAAgB,sBAAsB,IAAI,eAAe,CAoCxD;AAED;;;;;;;;;;;;;;;;;;;;;;;GAuBG;AACH,wBAAgB,sBAAsB,IAAI;IACxC,OAAO,EAAE,MAAM,EAAE,CAAC;IAClB,QAAQ,EAAE,MAAM,EAAE,EAAE,CAAC;CACtB,CA4CA;AAED;;;;;;GAMG;AACH,wBAAgB,qBAAqB,CAAC,OAAO,EAAE,MAAM,EAAE,EAAE,QAAQ,EAAE,MAAM,EAAE,EAAE,GAAG,OAAO,CAqFtF"}