gapt.proofs.lk.rules.macros.ContractionRightMacroRule.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.lk.rules.macros

import gapt.expr.formula.Formula
import gapt.proofs.SequentConnector
import gapt.proofs.SequentIndex
import gapt.proofs.lk.LKProof
import gapt.proofs.lk.rules.ContractionRightRule

/**
 * This macro rule simulates a series of contractions in the succedent.
 *
 */
object ContractionRightMacroRule {

  /**
   *
   * @param p A proof.
   * @param occs A list of occurrences of a formula in the succedent of s1.
   * @return A proof ending with as many contraction rules as necessary to contract occs into a single occurrence.
   */
  def apply(p: LKProof, occs: Seq[SequentIndex]): LKProof = withSequentConnector(p, occs)._1

  /**
   *
   * @param p A proof.
   * @param occs A list of occurrences of a formula in the succedent of s1.
   * @return A proof ending with as many contraction rules as necessary to contract occs
   *         into a single occurrence and an SequentConnector.
   */
  def withSequentConnector(p: LKProof, occs: Seq[SequentIndex]): (LKProof, SequentConnector) =
    occs.sorted.reverse match {
      case Seq() | _ +: Seq() => (p, SequentConnector(p.endSequent))
      case occ1 +: rest =>
        val occ2 = rest.head
        val (subProof, subConnector) = withSequentConnector(p, rest)
        val proof = ContractionRightRule(subProof, subConnector.child(occ1), subConnector.child(occ2))
        (proof, proof.getSequentConnector * subConnector)
    }

  /**
   * Contracts one formula in the succedent down to n occurrences. Use with care!
   *
   * @param p A proof.
   * @param form A formula.
   * @param n Maximum number of occurrences of form in the succedent of the end sequent.
   *          Defaults to 1, i.e. all occurrences are contracted.
   * @return
   */
  def apply(p: LKProof, form: Formula, n: Int = 1): LKProof = withSequentConnector(p, form, n)._1

  /**
   * Contracts one formula in the succedent down to n occurrences. Use with care!
   *
   * @param p A proof.
   * @param form A formula.
   * @param n Maximum number of occurrences of form in the succedent of the end sequent.
   *          Defaults to 1, i.e. all occurrences are contracted.
   * @return A proof and an SequentConnector connecting its end sequent with the end sequent of p.
   */
  def withSequentConnector(p: LKProof, form: Formula, n: Int = 1): (LKProof, SequentConnector) = {
    if (n < 1) throw new IllegalArgumentException("n must be >= 1.")
    val list = p.endSequent.indicesWhere(_ == form).filter(_.isSuc).drop(n - 1)

    withSequentConnector(p, list)
  }
}