occam-verify-cli 0.0.1067 → 0.0.1068

package/src/verify/judgement.js

@@ -1,127 +0,0 @@
-"use strict";
-
-import { arrayUtilities } from "necessary";
-
-import Judgement from "../judgement";
-import verifyFrame from "../verify/frame";
-import verifyDeclaration from "./declaration";
-import JudgementAssignment from "../assignment/judgement";
-
-import { nodeQuery } from "../utilities/query";
-
-const { first } = arrayUtilities;
-
-const frameNodeQuery = nodeQuery("/judgement/frame"),
-      declarationNodeQuery = nodeQuery("/judgement/declaration");
-
-const verifyJudgementFunctions = [
-  verifyDerivedJudgement,
-  verifyStatedJudgement
-];
-
-export default function verifyJudgement(judgementNode, assignments, stated, localContext) {
-  let judgementVerified;
-
-  const judgementString = localContext.nodeAsString(judgementNode);
-
-  localContext.trace(`Verifying the '${judgementString}' judgement...`, judgementNode);
-
-  judgementVerified = verifyJudgementFunctions.some((verifyJudgementFunction) => {
-    const judgementVerified = verifyJudgementFunction(judgementNode, assignments, stated, localContext);
-
-    if (judgementVerified) {
-      return true;
-    }
-  });
-
-  if (judgementVerified) {
-    localContext.debug(`...verified the '${judgementString}' judgement.`, judgementNode);
-  }
-
-  return judgementVerified;
-}
-
-function verifyDerivedJudgement(judgementNode, assignments, stated, localContext) {
-  let derivedJudgementVerified = false;
-
-  if (!stated) {
-    const judgementString = localContext.nodeAsString(judgementNode);
-
-    localContext.trace(`Verifying the '${judgementString}' derived judgement...`, judgementNode);
-
-    const declarations = [],
-          declarationNode = declarationNodeQuery(judgementNode),
-          declarationVerified = verifyDeclaration(declarationNode, declarations, stated, localContext);
-
-    if (declarationVerified) {
-      const firstDeclaration = first(declarations),
-            declaration = firstDeclaration, ///
-            metavariableNode = declaration.getMetavariableNode(),
-            metatheorem = localContext.findMetatheoremByMetavariableNode(metavariableNode),
-            metaLemma = localContext.findMetaLemmaByMetavariableNode(metavariableNode),
-            metaLemmaMetatheorem = (metaLemma || metatheorem);  ///
-
-      if (metaLemmaMetatheorem !== null) {
-        const frames = [],
-              frameNode = frameNodeQuery(judgementNode),
-              frameVerified = verifyFrame(frameNode, frames, stated, localContext);
-
-        if (frameVerified) {
-          const firstFrame = first(frames),
-                frame = firstFrame, ///
-                metaLemmaMetatheoremUnified = frame.unifyMetaLemmaOrMetatheorem(metaLemmaMetatheorem);
-
-          derivedJudgementVerified = metaLemmaMetatheoremUnified; ///
-        }
-      }
-    }
-
-    if (derivedJudgementVerified) {
-      localContext.debug(`...verified the '${judgementString}' derived judgement.`, judgementNode);
-    }
-  }
-
-  return derivedJudgementVerified;
-}
-
-function verifyStatedJudgement(judgementNode, assignments, stated, localContext) {
-  let statedJudgementVerified = false;
-
-  if (stated) {
-    const judgementString = localContext.nodeAsString(judgementNode);
-
-    localContext.trace(`Verifying the '${judgementString}' stated judgement...`, judgementNode);
-
-    const frames = [],
-          frameNode = frameNodeQuery(judgementNode),
-          frameVerified = verifyFrame(frameNode, frames, stated, localContext);
-
-    if (frameVerified) {
-      const declarations = [],
-            declarationNode = declarationNodeQuery(judgementNode),
-            declarationVerified = verifyDeclaration(declarationNode, declarations, stated, localContext);
-
-      if (declarationVerified) {
-        if (assignments !== null) {
-          const firstDeclaration = first(declarations),
-                firstFrame = first(frames),
-                frame = firstFrame,
-                declaration = firstDeclaration, ///
-                judgement = Judgement.fromJudgementNodeFrameAndDeclaration(judgementNode, frame, declaration),
-                judgementAssignment = JudgementAssignment.fromJudgement(judgement),
-                assignment = judgementAssignment;
-
-          assignments.push(assignment);
-        }
-
-        statedJudgementVerified = true;
-      }
-    }
-
-    if (statedJudgementVerified) {
-      localContext.debug(`...verified the '${judgementString}' stated judgement.`, judgementNode);
-    }
-  }
-
-  return statedJudgementVerified;
-}

package/src/verify/metavariableGivenMetaType.js

@@ -1,45 +0,0 @@
-"use strict";
-
-import metavariableUnifier from "../unifier/metavariable";
-
-import { metavariableNameFromMetavariableNode } from "../utilities/name";
-
-export default function verifyMetavariableGivenMetaType(metavariableNode, metaType, localContext) {
-  let metavariableVerifiedGivenMetaType = false;
-
-  const metaTypeName = metaType.getName(),
-        metavariableString = localContext.nodeAsString(metavariableNode);
-
-  localContext.trace(`Verifying the '${metavariableString}' metavariable given the '${metaTypeName}' meta-type...`, metavariableNode);
-
-  const metavariableName = metavariableNameFromMetavariableNode(metavariableNode),
-        metavariable = localContext.findMetavariableByMetavariableName(metavariableName);
-
-  if (metavariable !== null) {
-    const metavariableMetaType = metavariable.getMetaType();
-
-    if (metavariableMetaType === metaType) {
-      const metavariableNodeA = metavariableNode; ///
-
-      metavariableNode = metavariable.getNode();
-
-      const metavariableNodeB = metavariableNode; ///
-
-      const metavariableUnified = metavariableUnifier.unify(metavariableNodeA, metavariableNodeB, localContext);
-
-      metavariableVerifiedGivenMetaType = metavariableUnified;  ///
-    } else {
-      const metavariableMetaTypeName = metavariableMetaType.getName();
-
-      localContext.debug(`The '${metavariableString}' metavariable's meta-type is '${metavariableMetaTypeName}' when it should be '${metaTypeName}'.`, metavariableNode);
-    }
-  } else {
-    localContext.debug(`The '${metavariableString}' metavariable is not present'.`, metavariableNode);
-  }
-
-  if (metavariableVerifiedGivenMetaType) {
-    localContext.debug(`...verified the '${metavariableString}' metavariable given the '${metaTypeName}' meta-type.`, metavariableNode);
-  }
-
-  return metavariableVerifiedGivenMetaType;
-}