occam-verify-cli 0.0.1002 → 0.0.1005

package/src/verify/statement.js

@@ -1,312 +0,0 @@
-"use strict";
-
-import shim from "../shim";
-import verifyFrame from "../verify/frame";
-import verifyEquality from "../verify/equality";
-import verifyJudgement from "../verify/judgement";
-import verifyDeclaration from "../verify/declaration";
-import verifyTypeAssertion from "../verify/assertion/type";
-import metavariableUnifier from "../unifier/metavariable";
-import verifyDefinedAssertion from "../verify/assertion/defined";
-import verifySubproofAssertion from "../verify/assertion/subproof";
-import verifyContainedAssertion from "../verify/assertion/contained";
-import unifyStatementWithCombinators from "../unify/statementWithCombinators";
-import unifyStatementWithBracketedCombinator from "../unify/statementWithBracketedCombinator";
-
-import { nodeQuery } from "../utilities/query";
-import { metavariableNameFromMetavariableNode } from "../utilities/name";
-
-const frameNodeQuery = nodeQuery("/statement/frame!"),
-      equalityNodeQuery = nodeQuery("/statement/equality!"),
-      judgementNodeQuery = nodeQuery("/statement/judgement!"),
-      declarationNodeQuery = nodeQuery("/statement/declaration!"),
-      metavariableNodeQuery = nodeQuery("/statement/metavariable!"),
-      typeAssertionNodeQuery = nodeQuery("/statement/typeAssertion!"),
-      definedAssertionNodeQuery = nodeQuery("/statement/definedAssertion!"),
-      subproofAssertionNodeQuery = nodeQuery("/statement/subproofAssertion!"),
-      containedAssertionNodeQuery = nodeQuery("/statement/containedAssertion!");
-
-const unifyStatementFunctions = [
-        unifyStatementWithBracketedCombinator,
-        unifyStatementWithCombinators
-      ],
-      verifyStatementFunctions = [
-        verifyStatementAsMetavariable,
-        verifyStatementAsEquality,
-        verifyStatementAsFrame,
-        verifyStatementAsJudgement,
-        verifyStatementAsDeclaration,
-        verifyStatementAsTypeAssertion,
-        verifyStatementAsDefinedAssertion,
-        verifyStatementAsSubproofAssertion,
-        verifyStatementAsContainedAssertion
-      ];
-
-function verifyStatement(statementNode, assignments, stated, localContext) {
-  let statementVerified = false;
-
-  const statementString = localContext.nodeAsString(statementNode);
-
-  localContext.trace(`Verifying the '${statementString}' statement...`, statementNode);
-
-  if (!statementVerified) {
-    const statementUnified = unifyStatementFunctions.some((unifyStatementFunction) => {
-      const statementUnified = unifyStatementFunction(statementNode, assignments, stated, localContext);
-
-      if (statementUnified) {
-        return true;
-      }
-    });
-
-    statementVerified = statementUnified; ///
-  }
-
-  if (!statementVerified) {
-    statementVerified = verifyStatementFunctions.some((verifyStatementFunction) => {
-      const statementVerified = verifyStatementFunction(statementNode, assignments, stated, localContext);
-
-      if (statementVerified) {
-        return true;
-      }
-    });
-  }
-
-  if (statementVerified) {
-    localContext.debug(`...verified the '${statementString}' statement.`, statementNode);
-  }
-
-  return statementVerified;
-}
-
-Object.assign(shim, {
-  verifyStatement
-});
-
-export default verifyStatement;
-
-function verifyStatementAsMetavariable(statementNode, assignments, stated, localContext) {
-  let statementVerifiedAsMetavariable = false;
-
-  const metavariableNode = metavariableNodeQuery(statementNode);
-
-  if (metavariableNode !== null) {
-    const statementString = localContext.nodeAsString(statementNode);
-
-    localContext.trace(`Verifying the '${statementString}' statement as a metavariable...`, statementNode);
-
-    const metavariableUnified = unifyMetavariable(metavariableNode, localContext);
-
-    statementVerifiedAsMetavariable = metavariableUnified;  ///
-
-    if (statementVerifiedAsMetavariable) {
-      localContext.debug(`...verified the '${statementString}' statement as a metavariable.`, statementNode);
-    }
-  }
-
-  return statementVerifiedAsMetavariable;
-}
-
-function verifyStatementAsEquality(statementNode, assignments, stated, localContext) {
-  let statementVerifiedAsEquality = false;
-
-  const equalityNode = equalityNodeQuery(statementNode);
-
-  if (equalityNode !== null) {
-    const statementString = localContext.nodeAsString(statementNode);
-
-    localContext.trace(`Verifying the '${statementString}' statement as an equality...`, statementNode);
-
-    const equalityVerified = verifyEquality(equalityNode, assignments, stated, localContext);
-
-    statementVerifiedAsEquality = equalityVerified; ///
-
-    if (statementVerifiedAsEquality) {
-      localContext.debug(`...verified the '${statementString}' statement as an equality.`, statementNode);
-    }
-  }
-
-  return statementVerifiedAsEquality;
-}
-
-function verifyStatementAsFrame(statementNode, assignments, stated, localContext) {
-  let statementVerifiedAsFrame = false;
-
-  const frameNode = frameNodeQuery(statementNode);
-
-  if (frameNode !== null) {
-    const statementString = localContext.nodeAsString(statementNode);
-
-    localContext.trace(`Verifying the '${statementString}' statement as a frame...`, statementNode);
-
-    const frameVerified = verifyFrame(frameNode, assignments, stated, localContext);
-
-    statementVerifiedAsFrame = frameVerified; ///
-
-    if (statementVerifiedAsFrame) {
-      localContext.debug(`...verified the '${statementString}' statement as a frame.`, statementNode);
-    }
-  }
-
-  return statementVerifiedAsFrame;
-}
-
-function verifyStatementAsJudgement(statementNode, assignments, stated, localContext) {
-  let statementVerifiedAsJudgement = false;
-
-  const judgementNode = judgementNodeQuery(statementNode);
-
-  if (judgementNode !== null) {
-    const statementString = localContext.nodeAsString(statementNode);
-
-    localContext.trace(`Verifying the '${statementString}' statement as a judgement...`, statementNode);
-
-    const judgementVerified = verifyJudgement(judgementNode, assignments, stated, localContext);
-
-    statementVerifiedAsJudgement = judgementVerified;  ///
-
-    if (statementVerifiedAsJudgement) {
-      localContext.debug(`...verified the '${statementString}' statement as a judgement.`, statementNode);
-    }
-  }
-
-  return statementVerifiedAsJudgement;
-}
-
-function verifyStatementAsDeclaration(statementNode, assignments, stated, localContext) {
-  let statementVerifiedAsDeclaration = false;
-
-  const declarationNode = declarationNodeQuery(statementNode);
-
-  if (declarationNode !== null) {
-    const statementString = localContext.nodeAsString(statementNode);
-
-    localContext.trace(`Verifying the '${statementString}' statement as a declaration...`, statementNode);
-
-    const declarationVerified = verifyDeclaration(declarationNode, assignments, stated, localContext);
-
-    statementVerifiedAsDeclaration = declarationVerified; ///
-
-    if (statementVerifiedAsDeclaration) {
-      localContext.debug(`...verified the '${statementString}' statement as a declaration.`, statementNode);
-    }
-  }
-
-  return statementVerifiedAsDeclaration;
-}
-
-function verifyStatementAsTypeAssertion(statementNode, assignments, stated, localContext) {
-  let statementVerifiedAsTypeAssertion = false;
-
-  const typeAssertionNode = typeAssertionNodeQuery(statementNode);
-
-  if (typeAssertionNode !== null) {
-    const statementString = localContext.nodeAsString(statementNode);
-
-    localContext.trace(`Verifying the '${statementString}' statement as a type assertion...`, statementNode);
-
-    const typeAssertionVerified = verifyTypeAssertion(typeAssertionNode, assignments, stated, localContext);
-
-    statementVerifiedAsTypeAssertion = typeAssertionVerified; ///
-
-    if (statementVerifiedAsTypeAssertion) {
-      localContext.debug(`...verified the '${statementString}' statement as a type assertion.`, statementNode);
-    }
-  }
-
-  return statementVerifiedAsTypeAssertion;
-}
-
-function verifyStatementAsDefinedAssertion(statementNode, assignments, stated, localContext) {
-  let statementVerifiedAsDefinedAssertion = false;
-
-  const definedAssertionNode = definedAssertionNodeQuery(statementNode);
-
-  if (definedAssertionNode !== null) {
-    const statementString = localContext.nodeAsString(statementNode);
-
-    localContext.trace(`Verifying the '${statementString}' statement as a defined assertion...`, statementNode);
-
-    const definedAssertionVerified = verifyDefinedAssertion(definedAssertionNode, assignments, stated, localContext);
-
-    statementVerifiedAsDefinedAssertion = definedAssertionVerified; ///
-
-    if (statementVerifiedAsDefinedAssertion) {
-      localContext.debug(`...verified the '${statementString}' statement as a defined assertion.`, statementNode);
-    }
-  }
-
-  return statementVerifiedAsDefinedAssertion;
-}
-
-function verifyStatementAsSubproofAssertion(statementNode, assignments, stated, localContext) {
-  let statementVerifiedAsSubproofAssertion = false;
-
-  const subproofAssertionNode = subproofAssertionNodeQuery(statementNode);
-
-  if (subproofAssertionNode !== null) {
-    const statementString = localContext.nodeAsString(statementNode);
-
-    localContext.trace(`Verifying the '${statementString}' statement as a subproof assertion...`, statementNode);
-
-    const subproofAssertionVerified = verifySubproofAssertion(subproofAssertionNode, assignments, stated, localContext);
-
-    statementVerifiedAsSubproofAssertion = subproofAssertionVerified; ///
-
-    if (statementVerifiedAsSubproofAssertion) {
-      localContext.debug(`...verified the '${statementString}' statement as a subproof assertion.`, statementNode);
-    }
-  }
-
-  return statementVerifiedAsSubproofAssertion;
-}
-
-function verifyStatementAsContainedAssertion(statementNode, assignments, stated, localContext) {
-  let statementVerifiedAsContainedAssertion = false;
-
-  const containedAssertionNode = containedAssertionNodeQuery(statementNode);
-
-  if (containedAssertionNode !== null) {
-    const statementString = localContext.nodeAsString(statementNode);
-
-    localContext.trace(`Verifying the '${statementString}' statement as a contained assertion...`, statementNode);
-
-    const containedAssertionVerified = verifyContainedAssertion(containedAssertionNode, assignments, stated, localContext);
-
-    statementVerifiedAsContainedAssertion = containedAssertionVerified; ///
-
-    if (statementVerifiedAsContainedAssertion) {
-      localContext.debug(`...verified the '${statementString}' statement as a contained assertion.`, statementNode);
-    }
-  }
-
-  return statementVerifiedAsContainedAssertion;
-}
-
-function unifyMetavariable(metavariableNode, localContext) {
-  let metavariableUnified;
-
-  const metavariableString = localContext.nodeAsString(metavariableNode);
-
-  localContext.trace(`Unifying the '${metavariableString}' metavariable...`, metavariableNode);
-
-  const metavariableName = metavariableNameFromMetavariableNode(metavariableNode),
-        metavariable = localContext.findMetavariableByMetavariableName(metavariableName);
-
-  if (metavariable !== null) {
-    const metavariableNodeA = metavariableNode; ///
-
-    metavariableNode = metavariable.getNode();
-
-    const metavariableNodeB = metavariableNode; ///
-
-    const unified = metavariableUnifier.unify(metavariableNodeA, metavariableNodeB, localContext);
-
-    metavariableUnified = unified;  ///
-  }
-
-  if (metavariableUnified) {
-    localContext.debug(`...unified the '${metavariableString}' metavariable.`, metavariableNode);
-  }
-
-  return metavariableUnified;
-}

package/src/verify/statementAsCombinator.js

@@ -1,27 +0,0 @@
-"use strict";
-
-import Combinator from "../combinator";
-import statementAsCombinatorVerifier from "../verifier/statementAsCombinator";
-
-export default function verifyStatementAsCombinator(statementNode, fileContext) {
-  let statementVerifiedAsCombinator;
-
-  const statementString = fileContext.nodeAsString(statementNode);
-
-  fileContext.trace(`Verifying the '${statementString}' statement as a combinator...`, statementNode);
-
-  statementVerifiedAsCombinator = statementAsCombinatorVerifier.verifyStatement(statementNode, fileContext);
-
-  if (statementVerifiedAsCombinator) {
-    const tokens = fileContext.getTokens(),
-          combinator = Combinator.fromStatementNodeAndTokens(statementNode, tokens);
-
-    fileContext.addCombinator(combinator);
-  }
-
-  if (statementVerifiedAsCombinator) {
-    fileContext.debug(`...verified the '${statementString}' statement as a combinator.`, statementNode);
-  }
-
-  return statementVerifiedAsCombinator;
-}

package/src/verify/statementGivenMetaType.js

@@ -1,52 +0,0 @@
-"use strict";
-
-import shim from "../shim";
-
-import { nodeQuery } from "../utilities/query";
-import { metavariableNameFromMetavariableNode } from "../utilities/name";
-import { FRAME_META_TYPE_NAME, REFERENCE_META_TYPE_NAME, STATEMENT_META_TYPE_NAME } from "../metaTypeNames";
-
-const metavariableNodeQuery = nodeQuery("/statement/metavariable!");
-
-export default function verifyStatementGivenMetaType(statementNode, metaType, assignments, stated, localContext) {
-  let statementVerifiedGivenMetaType;
-
-  const metaTypeName = metaType.getName();
-
-  switch (metaTypeName) {
-    case FRAME_META_TYPE_NAME:
-    case REFERENCE_META_TYPE_NAME: {
-      debugger
-
-      statementVerifiedGivenMetaType = false;
-
-      const metavariableNode = metavariableNodeQuery(statementNode);
-
-      if (metavariableNode !== null) {
-        const metavariableName = metavariableNameFromMetavariableNode(metavariableNode),
-              metavariable = localContext.findMetavariableByMetavariableName(metavariableName);
-
-        if (metavariable !== null) {
-          const metavariableMetaType = metavariable.getMetaType();
-
-          if (metavariableMetaType === metaType) {
-            statementVerifiedGivenMetaType = true;
-          }
-        }
-      }
-
-      break;
-    }
-
-    case STATEMENT_META_TYPE_NAME: {
-      const { verifyStatement } = shim,
-            statementVerified = verifyStatement(statementNode, assignments, stated, localContext)
-
-      statementVerifiedGivenMetaType = statementVerified; ///
-
-      break;
-    }
-  }
-
-  return statementVerifiedGivenMetaType;
-}

package/src/verify/subproof.js

@@ -1,32 +0,0 @@
-"use strict";
-
-import LocalContext from "../context/local";
-import verifySuppositions from "../verify/suppositions";
-import verifySubDerivation from "../verify/subDerivation";
-
-import { nodeQuery, nodesQuery } from "../utilities/query";
-
-const suppositionNodesQuery = nodesQuery("/subproof/supposition"),
-      subDerivationNodeQuery = nodeQuery("/subproof/subDerivation");
-
-export default function verifySubproof(subproofNode, substitutions, localContext) {
-  let subproofVerified = false;
-
-  localContext = LocalContext.fromLocalContext(localContext);  ///
-
-  const suppositions = [],
-        suppositionNodes = suppositionNodesQuery(subproofNode),
-        suppositionsVerified = verifySuppositions(suppositionNodes, suppositions, localContext);
-
-  if (suppositionsVerified) {
-    const subDerivationNode = subDerivationNodeQuery(subproofNode),
-          subDerivationVerified = verifySubDerivation(subDerivationNode, substitutions, localContext);
-
-    if (subDerivationVerified) {
-      subproofVerified = true;
-    }
-  }
-
-  return subproofVerified;
-}
-

package/src/verify/supposition.js

@@ -1,49 +0,0 @@
-"use strict";
-
-import ProofStep from "../proofStep";
-import Supposition from "../supposition";
-import verifyStatement from "../verify/statement";
-
-import { nodeQuery } from "../utilities/query";
-import { assignAssignments } from "../utilities/assignments";
-
-const statementNodeQuery = nodeQuery("/unqualifiedStatement/statement!"),
-      unqualifiedStatementNodeQuery = nodeQuery("/supposition/unqualifiedStatement!");
-
-export default function verifySupposition(suppositionNode, suppositions, localContext) {
-  let suppositionVerified = false;
-
-  const suppositionString = localContext.nodeAsString(suppositionNode);
-
-  localContext.trace(`Verifying the '${suppositionString}' supposition...`, suppositionNode);
-
-  const unqualifiedStatementNode = unqualifiedStatementNodeQuery(suppositionNode);
-
-  if (unqualifiedStatementNode !== null) {
-    const stated = true,
-          assignments = [],
-          statementNode = statementNodeQuery(unqualifiedStatementNode),
-          statementVerified = verifyStatement(statementNode, assignments, stated, localContext);
-
-    if (statementVerified) {
-      const assignmentsAssigned = assignAssignments(assignments, localContext);
-
-      if (assignmentsAssigned) {
-        const supposition = Supposition.fromStatementNode(statementNode),
-              proofStep = ProofStep.fromStatementNode(statementNode);
-
-        suppositions.push(supposition);
-
-        localContext.addProofStep(proofStep);
-
-        suppositionVerified = true;
-      }
-    }
-  }
-
-  if (suppositionVerified) {
-    localContext.debug(`...verified the '${suppositionString}' supposition.`, suppositionNode);
-  }
-
-  return suppositionVerified;
-}

package/src/verify/suppositions.js

@@ -1,17 +0,0 @@
-"use strict";
-
-import verifySupposition from "../verify/supposition";
-
-export default function verifySuppositions(suppositionNodes, suppositions, localContext) {
-  let suppositionsVerified;
-
-  suppositionsVerified = suppositionNodes.every((suppositionNode) => {
-    const suppositionVerified = verifySupposition(suppositionNode, suppositions, localContext);
-
-    if (suppositionVerified) {
-      return true;
-    }
-  });
-
-  return suppositionsVerified;
-}