gapt.proofs.resolution.expansionProofFromInstances.scala Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of gapt_3 Show documentation

General Architecture for Proof Theory

The newest version!

package gapt.proofs.resolution

import gapt.expr._
import gapt.expr.subst.Substitution
import gapt.proofs._
import gapt.proofs.context.Context
import gapt.proofs.context.mutable.MutableContext
import gapt.proofs.expansion._
import gapt.utils.Maybe

object expansionProofFromInstances {
  def apply[S <: Substitution](
      substitutions: Map[HOLClause, Set[S]],
      justifications: Set[ResolutionProof],
      pureFOLwithoutEquality: Boolean = false
  )(implicit ctx: Maybe[Context]): ExpansionProof = {
    require(substitutions.keySet.toSet[HOLSequent] subsetOf justifications.map(_.conclusion))

    val proofs = for {
      (clause, substs) <- substitutions
      just <- justifications
      if just.conclusion == clause
      subst <- substs
    } yield Subst(just, subst)

    implicit val ctx1: Context = ctx.getOrElse(MutableContext.guess(proofs))

    val expansionWithDefs = ExpansionProof(ETMerge(proofs.flatMapS(ResolutionToExpansionProof.withDefs(
      _,
      ResolutionToExpansionProof.inputsAsExpansionSequent,
      addConclusion = false
    ).expansionSequent)))

    eliminateCutsET(eliminateDefsET(eliminateCutsET(eliminateMerges(expansionWithDefs)), pureFOLwithoutEquality))
  }
}