occam-verify-cli 0.0.1037 → 0.0.1039

package/src/unifier/intrinsicLevel.js

@@ -29,16 +29,15 @@ class IntrinsicLevelUnifier extends Unifier {
       unify: (termVariableNodeA, termNodeB, substitutions, localContextA, localContextB) => {
         let termUnified = false;
 
-        const variableNodeA = termVariableNodeA, ///
-              variableNameA = variableNameFromVariableNode(variableNodeA),
-              variableA = localContextA.findVariableByVariableName(variableNameA);
+        const variableNode = termVariableNodeA, ///
+              variableName = variableNameFromVariableNode(variableNode),
+              variable = localContextA.findVariableByVariableName(variableName);
 
-        if (variableA !== null) {
+        if (variable !== null) {
           const { Term } = shim,
-                termB = Term.fromTermNode(termNodeB, localContextB),
                 localContext = localContextB, ///
-                variable = variableA, ///
-                term = termB; ///
+                termNode = termNodeB, ///
+                term = Term.fromTermNode(termNode, localContextB);
 
           termUnified = variable.unifyTerm(term, substitutions, localContext);
         }

package/src/unifier/metaLevel.js

@@ -3,7 +3,6 @@
 import shim from "../shim";
 import Unifier from "../unifier";
 import unifyMetavariableWithFrame from "../unify/metavariableWithFrame";
-import unifyMetavariableWithStatementGivenSubstitution from "../unify/metavariableWithStatementGivenSubstitution";
 
 import { nodeQuery } from "../utilities/query";
 import { variableNameFromVariableNode, metavariableNameFromMetavariableNode } from "../utilities/name";
@@ -13,7 +12,6 @@ const termNodeQuery = nodeQuery("/term!"),
       statementNodeQuery = nodeQuery("/statement!"),
       termVariableNodeQuery = nodeQuery("/term/variable!"),
       frameMetavariableNodeQuery = nodeQuery("/frame/metavariable!"),
-      statementSubstitutionNodeQuery = nodeQuery("/statement/substitution!"),
       statementMetavariableNodeQuery = nodeQuery("/statement/metavariable!");
 
 class MetaLevelUnifier extends Unifier {
@@ -34,42 +32,46 @@ class MetaLevelUnifier extends Unifier {
       nodeQueryA: statementNodeQuery,
       nodeQueryB: statementNodeQuery,
       unify: (statementNodeA, statementNodeB, substitutions, localContextA, localContextB) => {
-        let statementUnifiedWithStatement;
+        let statementUnified;
 
         const matches = statementNodeA.match(statementNodeB);
 
         if (matches) {
-          statementUnifiedWithStatement = true;
+          statementUnified = true;
         } else {
-          const statementMetavariableNodeA = statementMetavariableNodeQuery(statementNodeA);
+          const { Statement } = shim,
+                statementB = Statement.fromStatementNode(statementNodeB, localContextB),
+                statementMetavariableNodeA = statementMetavariableNodeQuery(statementNodeA);
 
           if (statementMetavariableNodeA !== null) {
-            const metavariableNodeA = statementMetavariableNodeA, ///
-                  statementSubstitutionNodeA = statementSubstitutionNodeQuery(statementNodeA);
-
-            if (statementSubstitutionNodeA === null) {
-              const { Statement } = shim,
-                    metavariableNameA = metavariableNameFromMetavariableNode(metavariableNodeA),
-                    metavariableA = localContextA.findMetavariableByMetavariableName(metavariableNameA),
-                    statementB = Statement.fromStatementNode(statementNodeB, localContextB),
-                    localContext = localContextB, ///
-                    metavariable = metavariableA, ///
-                    statement = statementB, ///
-                    statementUnified = metavariable.unifyStatement(statement, substitutions, localContext);
-
-              statementUnifiedWithStatement = statementUnified; ///
+            let statement;
+
+            const statementA = Statement.fromStatementNode(statementNodeA, localContextA);
+
+            statement = statementA; ///
+
+            const substitution = statement.getSubstitution();
+
+            statement = statementB; ///
+
+            const localContext = localContextB, ///
+                  metavariableNode = statementMetavariableNodeA,  ///
+                  metavariableName = metavariableNameFromMetavariableNode(metavariableNode),
+                  metavariable = localContextA.findMetavariableByMetavariableName(metavariableName);
+
+            if (substitution === null) {
+              statementUnified = metavariable.unifyStatement(statement, substitutions, localContext);
             } else {
-              const substitutionNodeA = statementSubstitutionNodeA, ///
-                    metavariableUnifiedWithStatementGivenSubstitution = unifyMetavariableWithStatementGivenSubstitution(metavariableNodeA, statementNodeB, substitutionNodeA, substitutions, localContextA, localContextB);
+              const statementUnifiedGivenSubstitution = metavariableNode.unifyStatementGivenSubstitution(statement, substitution, substitutions, localContext);
 
-              statementUnifiedWithStatement = metavariableUnifiedWithStatementGivenSubstitution; ///
+              statementUnified = statementUnifiedGivenSubstitution; ///
             }
           } else {
-            statementUnifiedWithStatement = unifyStatementWithStatement(statementNodeA, statementNodeB, substitutions, localContextA, localContextB);
+            statementUnified = unifyStatementWithStatement(statementNodeA, statementNodeB, substitutions, localContextA, localContextB);
           }
         }
 
-        return statementUnifiedWithStatement;
+        return statementUnified;
       }
     },
     {
@@ -90,16 +92,15 @@ class MetaLevelUnifier extends Unifier {
       unify: (termVariableNodeA, termNodeB, substitutions, localContextA, localContextB) => {
         let termUnified = false;
 
-        const variableNodeA = termVariableNodeA, ///
-              variableNameA = variableNameFromVariableNode(variableNodeA),
-              variableA = localContextA.findVariableByVariableName(variableNameA);
+        const variableNode = termVariableNodeA, ///
+              variableName = variableNameFromVariableNode(variableNode),
+              variable = localContextA.findVariableByVariableName(variableName);
 
-        if (variableA !== null) {
+        if (variable !== null) {
           const { Term } = shim,
-                termB = Term.fromTermNode(termNodeB, localContextB),
                 localContext = localContextB, ///
-                variable = variableA, ///
-                term = termB; ///
+                termNode = termNodeB, ///
+                term = Term.fromTermNode(termNode, localContextB);
 
           termUnified = variable.unifyTerm(term, substitutions, localContext);
         }
@@ -122,7 +123,7 @@ function unifyStatementWithStatement(statementNodeA, statementNodeB, substitutio
         childNodesA = nonTerminalNodeAChildNodes, ///
         childNodesB = nonTerminalNodeBChildNodes, ///
         childNodesVerified = metaLevelUnifier.unifyChildNodes(childNodesA, childNodesB, substitutions, localContextA, localContextB),
-        statementUnifiedWithStatement = childNodesVerified; ///
+        statementUnified = childNodesVerified; ///
 
-  return statementUnifiedWithStatement;
+  return statementUnified;
 }

package/src/utilities/node.js

@@ -6,10 +6,12 @@ import { nodeQuery } from "../utilities/query";
 import { combinedCustomGrammarFromNothing } from "./customGrammar";
 import { VARIABLE_RULE_NAME,
          METAVARIABLE_RULE_NAME,
+         SUBSTITUTION_RULE_NAME,
          UNQUALIFIED_STATEMENT_RULE_NAME,
          CONSTRUCTOR_DECLARATION_RULE_NAME } from "../ruleNames";
 import { variableTokensFromVariableString,
          metavariableTokensFromMetavariableString,
+         substitutionTokensFromSubstitutionString,
          unqualifiedStatementTokensFromUnqualifiedStatementString,
          constructorDeclarationTokensFromConstructorDeclarationString } from "../utilities/tokens";
 
@@ -55,6 +57,13 @@ export function metavariableNodeFromMetavariableString(metavariableString, lexer
   return metavariableNode;
 }
 
+export function substitutionNodeFromSubstitutionString(substitutionString, lexer, parser) {
+  const substitutionTokens = substitutionTokensFromSubstitutionString(substitutionString, lexer),
+        substitutionNode = substitutionNodeFromSubstitutionTokens(substitutionTokens, parser);
+
+  return substitutionNode;
+}
+
 export function variableNodeFromVariableTokens(variableTokens, parser) {
   const ruleName = VARIABLE_RULE_NAME,
         variableNode = nodeFromTokensRuleNameAndParser(variableTokens, ruleName, parser);
@@ -69,6 +78,13 @@ export function metavariableNodeFromMetavariableTokens(metavariableTokens, parse
   return metavariableNode;
 }
 
+export function substitutionNodeFromSubstitutionTokens(substitutionTokens, parser) {
+  const ruleName = SUBSTITUTION_RULE_NAME,
+        substitutionNode = nodeFromTokensRuleNameAndParser(substitutionTokens, ruleName, parser);
+
+  return substitutionNode;
+}
+
 export function unqualifiedStatementNodeFromUnqualifiedStatementTokens(unqualifiedStatementTokens, parser) {
   const tokens = unqualifiedStatementTokens,  ///
         ruleName = UNQUALIFIED_STATEMENT_RULE_NAME,

package/src/utilities/tokens.js

@@ -23,6 +23,13 @@ export function metavariableTokensFromMetavariableString(metavariableString, lex
   return metavariableTokens;
 }
 
+export function substitutionTokensFromSubstitutionString(substitutionString, lexer) {
+  const substitutionContent = `${substitutionString}`,
+        substitutionTokens = tokensFromContentAndLexer(substitutionContent, lexer);
+
+  return substitutionTokens;
+}
+
 export function unqualifiedStatementTokensFromUnqualifiedStatementString(unqualifiedStatementString, lexer) {
   const content = unqualifiedStatementString,  ///
         unqualifiedStatementTokens = tokensFromContentAndLexer(content, lexer);

package/src/verifier/intrinsicLevel.js

@@ -23,9 +23,9 @@ class IntrinsicLevelVerifier extends Verifier {
     {
       nodeQuery: termNodeQuery,
       verify: (termNode, localContext) => {
-        const { verifyTerm } = shim,
-              terms = [],
-              termVerified = verifyTerm(termNode, terms, localContext, () => {
+        const { Term } = shim,
+              term = Term.fromTermNode(termNode, localContext),
+              termVerified = term.verify(localContext, () => {
                 const verifiedAhead = true;
 
                 return verifiedAhead;

package/src/verifier/metaLevel.js

@@ -35,9 +35,9 @@ class MetaLevelVerifier extends Verifier {
     {
       nodeQuery: termNodeQuery,
       verify: (termNode, assignments, stated, localContext) => {
-        const { verifyTerm } = shim,
-              terms = [],
-              termVerified = verifyTerm(termNode, terms, localContext, () => {
+        const { Term } = shim,
+              term = Term.fromTermNode(termNode, localContext),
+              termVerified = term.verify(localContext, () => {
                 const verifiedAhead = true;
 
                 return verifiedAhead;

package/lib/unify/metavariableWithStatementGivenSubstitution.js

@@ -1,40 +0,0 @@
-"use strict";
-Object.defineProperty(exports, "__esModule", {
-    value: true
-});
-Object.defineProperty(exports, "default", {
-    enumerable: true,
-    get: function() {
-        return unifyMetavariableWithStatementGivenSubstitution;
-    }
-});
-var _statementForMetavariable = /*#__PURE__*/ _interop_require_default(require("../substitution/statementForMetavariable"));
-var _unify = require("../utilities/unify");
-var _name = require("../utilities/name");
-function _interop_require_default(obj) {
-    return obj && obj.__esModule ? obj : {
-        default: obj
-    };
-}
-function unifyMetavariableWithStatementGivenSubstitution(metavariableNodeA, statementNodeB, substitutionNodeA, substitutions, localContextA, localContextB) {
-    var metavariableUnifiedWithStatementGivenSubstitution = false;
-    var complexSubstitution = substitutions.findComplexSubstitutionByMetavariableNodeAndSubstitutionNode(metavariableNodeA, substitutionNodeA), substitution = complexSubstitution; ///
-    if (substitution !== null) {
-        var statementNodeMatches = substitution.matchStatementNode(statementNodeB);
-        if (statementNodeMatches) {
-            metavariableUnifiedWithStatementGivenSubstitution = true;
-        }
-    } else {
-        var metavariableNameA = (0, _name.metavariableNameFromMetavariableNode)(metavariableNodeA), metavariableA = localContextA.findMetavariableByMetavariableName(metavariableNameA), metavariableB = (0, _unify.metavariableFromStatementNode)(statementNodeB, localContextB);
-        if (metavariableA === metavariableB) {
-            metavariableUnifiedWithStatementGivenSubstitution = false; ///
-        } else {
-            var statementNode = statementNodeB, substitutionNode = substitutionNodeA, metavariableNode = metavariableNodeA, statementForMetavariableSubstitution = _statementForMetavariable.default.fromStatementNodeMetavariableNodeAndSubstitutionNode(statementNode, metavariableNode, substitutionNode, localContextA, localContextB), substitution1 = statementForMetavariableSubstitution; ///
-            substitutions.addSubstitution(substitution1, localContextA, localContextB);
-            metavariableUnifiedWithStatementGivenSubstitution = true;
-        }
-    }
-    return metavariableUnifiedWithStatementGivenSubstitution;
-}
-
-//# sourceMappingURL=data:application/json;base64,eyJ2ZXJzaW9uIjozLCJzb3VyY2VzIjpbIi4uLy4uL3NyYy91bmlmeS9tZXRhdmFyaWFibGVXaXRoU3RhdGVtZW50R2l2ZW5TdWJzdGl0dXRpb24uanMiXSwic291cmNlc0NvbnRlbnQiOlsiXCJ1c2Ugc3RyaWN0XCI7XG5cbmltcG9ydCBTdGF0ZW1lbnRGb3JNZXRhdmFyaWFibGVTdWJzdGl0dXRpb24gZnJvbSBcIi4uL3N1YnN0aXR1dGlvbi9zdGF0ZW1lbnRGb3JNZXRhdmFyaWFibGVcIjtcblxuaW1wb3J0IHsgbWV0YXZhcmlhYmxlRnJvbVN0YXRlbWVudE5vZGUgfSBmcm9tIFwiLi4vdXRpbGl0aWVzL3VuaWZ5XCI7XG5pbXBvcnQgeyBtZXRhdmFyaWFibGVOYW1lRnJvbU1ldGF2YXJpYWJsZU5vZGUgfSBmcm9tIFwiLi4vdXRpbGl0aWVzL25hbWVcIjtcblxuZXhwb3J0IGRlZmF1bHQgZnVuY3Rpb24gdW5pZnlNZXRhdmFyaWFibGVXaXRoU3RhdGVtZW50R2l2ZW5TdWJzdGl0dXRpb24obWV0YXZhcmlhYmxlTm9kZUEsIHN0YXRlbWVudE5vZGVCLCBzdWJzdGl0dXRpb25Ob2RlQSwgc3Vic3RpdHV0aW9ucywgbG9jYWxDb250ZXh0QSwgbG9jYWxDb250ZXh0Qikge1xuICBsZXQgbWV0YXZhcmlhYmxlVW5pZmllZFdpdGhTdGF0ZW1lbnRHaXZlblN1YnN0aXR1dGlvbiA9IGZhbHNlO1xuXG4gIGNvbnN0IGNvbXBsZXhTdWJzdGl0dXRpb24gPSBzdWJzdGl0dXRpb25zLmZpbmRDb21wbGV4U3Vic3RpdHV0aW9uQnlNZXRhdmFyaWFibGVOb2RlQW5kU3Vic3RpdHV0aW9uTm9kZShtZXRhdmFyaWFibGVOb2RlQSwgc3Vic3RpdHV0aW9uTm9kZUEpLFxuICAgICAgICBzdWJzdGl0dXRpb24gPSBjb21wbGV4U3Vic3RpdHV0aW9uOyAvLy9cblxuICBpZiAoc3Vic3RpdHV0aW9uICE9PSBudWxsKSB7XG4gICAgY29uc3Qgc3RhdGVtZW50Tm9kZU1hdGNoZXMgPSBzdWJzdGl0dXRpb24ubWF0Y2hTdGF0ZW1lbnROb2RlKHN0YXRlbWVudE5vZGVCKTtcblxuICAgIGlmIChzdGF0ZW1lbnROb2RlTWF0Y2hlcykge1xuICAgICAgbWV0YXZhcmlhYmxlVW5pZmllZFdpdGhTdGF0ZW1lbnRHaXZlblN1YnN0aXR1dGlvbiA9IHRydWU7XG4gICAgfVxuICB9IGVsc2Uge1xuICAgIGNvbnN0IG1ldGF2YXJpYWJsZU5hbWVBID0gbWV0YXZhcmlhYmxlTmFtZUZyb21NZXRhdmFyaWFibGVOb2RlKG1ldGF2YXJpYWJsZU5vZGVBKSxcbiAgICAgICAgICBtZXRhdmFyaWFibGVBID0gbG9jYWxDb250ZXh0QS5maW5kTWV0YXZhcmlhYmxlQnlNZXRhdmFyaWFibGVOYW1lKG1ldGF2YXJpYWJsZU5hbWVBKSxcbiAgICAgICAgICBtZXRhdmFyaWFibGVCID0gbWV0YXZhcmlhYmxlRnJvbVN0YXRlbWVudE5vZGUoc3RhdGVtZW50Tm9kZUIsIGxvY2FsQ29udGV4dEIpO1xuXG4gICAgaWYgKG1ldGF2YXJpYWJsZUEgPT09IG1ldGF2YXJpYWJsZUIpIHtcbiAgICAgIG1ldGF2YXJpYWJsZVVuaWZpZWRXaXRoU3RhdGVtZW50R2l2ZW5TdWJzdGl0dXRpb24gPSBmYWxzZTsgIC8vL1xuICAgIH0gZWxzZSB7XG4gICAgICBjb25zdCBzdGF0ZW1lbnROb2RlID0gc3RhdGVtZW50Tm9kZUIsIC8vL1xuICAgICAgICAgICAgc3Vic3RpdHV0aW9uTm9kZSA9IHN1YnN0aXR1dGlvbk5vZGVBLCAvLy9cbiAgICAgICAgICAgIG1ldGF2YXJpYWJsZU5vZGUgPSBtZXRhdmFyaWFibGVOb2RlQSwgLy8vXG4gICAgICAgICAgICBzdGF0ZW1lbnRGb3JNZXRhdmFyaWFibGVTdWJzdGl0dXRpb24gPSBTdGF0ZW1lbnRGb3JNZXRhdmFyaWFibGVTdWJzdGl0dXRpb24uZnJvbVN0YXRlbWVudE5vZGVNZXRhdmFyaWFibGVOb2RlQW5kU3Vic3RpdHV0aW9uTm9kZShzdGF0ZW1lbnROb2RlLCBtZXRhdmFyaWFibGVOb2RlLCBzdWJzdGl0dXRpb25Ob2RlLCBsb2NhbENvbnRleHRBLCBsb2NhbENvbnRleHRCKSxcbiAgICAgICAgICAgIHN1YnN0aXR1dGlvbiA9IHN0YXRlbWVudEZvck1ldGF2YXJpYWJsZVN1YnN0aXR1dGlvbjsgIC8vL1xuXG4gICAgICBzdWJzdGl0dXRpb25zLmFkZFN1YnN0aXR1dGlvbihzdWJzdGl0dXRpb24sIGxvY2FsQ29udGV4dEEsIGxvY2FsQ29udGV4dEIpO1xuXG4gICAgICBtZXRhdmFyaWFibGVVbmlmaWVkV2l0aFN0YXRlbWVudEdpdmVuU3Vic3RpdHV0aW9uID0gdHJ1ZTtcbiAgICB9XG4gIH1cblxuICByZXR1cm4gbWV0YXZhcmlhYmxlVW5pZmllZFdpdGhTdGF0ZW1lbnRHaXZlblN1YnN0aXR1dGlvbjtcbn1cbiJdLCJuYW1lcyI6WyJ1bmlmeU1ldGF2YXJpYWJsZVdpdGhTdGF0ZW1lbnRHaXZlblN1YnN0aXR1dGlvbiIsIm1ldGF2YXJpYWJsZU5vZGVBIiwic3RhdGVtZW50Tm9kZUIiLCJzdWJzdGl0dXRpb25Ob2RlQSIsInN1YnN0aXR1dGlvbnMiLCJsb2NhbENvbnRleHRBIiwibG9jYWxDb250ZXh0QiIsIm1ldGF2YXJpYWJsZVVuaWZpZWRXaXRoU3RhdGVtZW50R2l2ZW5TdWJzdGl0dXRpb24iLCJjb21wbGV4U3Vic3RpdHV0aW9uIiwiZmluZENvbXBsZXhTdWJzdGl0dXRpb25CeU1ldGF2YXJpYWJsZU5vZGVBbmRTdWJzdGl0dXRpb25Ob2RlIiwic3Vic3RpdHV0aW9uIiwic3RhdGVtZW50Tm9kZU1hdGNoZXMiLCJtYXRjaFN0YXRlbWVudE5vZGUiLCJtZXRhdmFyaWFibGVOYW1lQSIsIm1ldGF2YXJpYWJsZU5hbWVGcm9tTWV0YXZhcmlhYmxlTm9kZSIsIm1ldGF2YXJpYWJsZUEiLCJmaW5kTWV0YXZhcmlhYmxlQnlNZXRhdmFyaWFibGVOYW1lIiwibWV0YXZhcmlhYmxlQiIsIm1ldGF2YXJpYWJsZUZyb21TdGF0ZW1lbnROb2RlIiwic3RhdGVtZW50Tm9kZSIsInN1YnN0aXR1dGlvbk5vZGUiLCJtZXRhdmFyaWFibGVOb2RlIiwic3RhdGVtZW50Rm9yTWV0YXZhcmlhYmxlU3Vic3RpdHV0aW9uIiwiU3RhdGVtZW50Rm9yTWV0YXZhcmlhYmxlU3Vic3RpdHV0aW9uIiwiZnJvbVN0YXRlbWVudE5vZGVNZXRhdmFyaWFibGVOb2RlQW5kU3Vic3RpdHV0aW9uTm9kZSIsImFkZFN1YnN0aXR1dGlvbiJdLCJtYXBwaW5ncyI6IkFBQUE7Ozs7K0JBT0E7OztlQUF3QkE7OzsrRUFMeUI7cUJBRUg7b0JBQ087Ozs7OztBQUV0QyxTQUFTQSxnREFBZ0RDLGlCQUFpQixFQUFFQyxjQUFjLEVBQUVDLGlCQUFpQixFQUFFQyxhQUFhLEVBQUVDLGFBQWEsRUFBRUMsYUFBYTtJQUN2SyxJQUFJQyxvREFBb0Q7SUFFeEQsSUFBTUMsc0JBQXNCSixjQUFjSyw0REFBNEQsQ0FBQ1IsbUJBQW1CRSxvQkFDcEhPLGVBQWVGLHFCQUFxQixHQUFHO0lBRTdDLElBQUlFLGlCQUFpQixNQUFNO1FBQ3pCLElBQU1DLHVCQUF1QkQsYUFBYUUsa0JBQWtCLENBQUNWO1FBRTdELElBQUlTLHNCQUFzQjtZQUN4Qkosb0RBQW9EO1FBQ3REO0lBQ0YsT0FBTztRQUNMLElBQU1NLG9CQUFvQkMsSUFBQUEsMENBQW9DLEVBQUNiLG9CQUN6RGMsZ0JBQWdCVixjQUFjVyxrQ0FBa0MsQ0FBQ0gsb0JBQ2pFSSxnQkFBZ0JDLElBQUFBLG9DQUE2QixFQUFDaEIsZ0JBQWdCSTtRQUVwRSxJQUFJUyxrQkFBa0JFLGVBQWU7WUFDbkNWLG9EQUFvRCxPQUFRLEdBQUc7UUFDakUsT0FBTztZQUNMLElBQU1ZLGdCQUFnQmpCLGdCQUNoQmtCLG1CQUFtQmpCLG1CQUNuQmtCLG1CQUFtQnBCLG1CQUNuQnFCLHVDQUF1Q0MsaUNBQW9DLENBQUNDLG9EQUFvRCxDQUFDTCxlQUFlRSxrQkFBa0JELGtCQUFrQmYsZUFBZUMsZ0JBQ25NSSxnQkFBZVksc0NBQXVDLEdBQUc7WUFFL0RsQixjQUFjcUIsZUFBZSxDQUFDZixlQUFjTCxlQUFlQztZQUUzREMsb0RBQW9EO1FBQ3REO0lBQ0Y7SUFFQSxPQUFPQTtBQUNUIn0=

package/src/unify/metavariableWithStatementGivenSubstitution.js

@@ -1,41 +0,0 @@
-"use strict";
-
-import StatementForMetavariableSubstitution from "../substitution/statementForMetavariable";
-
-import { metavariableFromStatementNode } from "../utilities/unify";
-import { metavariableNameFromMetavariableNode } from "../utilities/name";
-
-export default function unifyMetavariableWithStatementGivenSubstitution(metavariableNodeA, statementNodeB, substitutionNodeA, substitutions, localContextA, localContextB) {
-  let metavariableUnifiedWithStatementGivenSubstitution = false;
-
-  const complexSubstitution = substitutions.findComplexSubstitutionByMetavariableNodeAndSubstitutionNode(metavariableNodeA, substitutionNodeA),
-        substitution = complexSubstitution; ///
-
-  if (substitution !== null) {
-    const statementNodeMatches = substitution.matchStatementNode(statementNodeB);
-
-    if (statementNodeMatches) {
-      metavariableUnifiedWithStatementGivenSubstitution = true;
-    }
-  } else {
-    const metavariableNameA = metavariableNameFromMetavariableNode(metavariableNodeA),
-          metavariableA = localContextA.findMetavariableByMetavariableName(metavariableNameA),
-          metavariableB = metavariableFromStatementNode(statementNodeB, localContextB);
-
-    if (metavariableA === metavariableB) {
-      metavariableUnifiedWithStatementGivenSubstitution = false;  ///
-    } else {
-      const statementNode = statementNodeB, ///
-            substitutionNode = substitutionNodeA, ///
-            metavariableNode = metavariableNodeA, ///
-            statementForMetavariableSubstitution = StatementForMetavariableSubstitution.fromStatementNodeMetavariableNodeAndSubstitutionNode(statementNode, metavariableNode, substitutionNode, localContextA, localContextB),
-            substitution = statementForMetavariableSubstitution;  ///
-
-      substitutions.addSubstitution(substitution, localContextA, localContextB);
-
-      metavariableUnifiedWithStatementGivenSubstitution = true;
-    }
-  }
-
-  return metavariableUnifiedWithStatementGivenSubstitution;
-}