gapt.prooftool.ListViewer.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.prooftool

import os._

import gapt.formats.tptp.TptpFOLExporter
import gapt.proofs.{HOLSequent, Sequent, RichFormulaSequent}

import gapt.expr.formula.hol.existentialClosure

import scala.swing.{Action, FileChooser, Menu, Separator}

class ListViewer(name: String, list: List[HOLSequent]) extends ScrollableProofToolViewer[List[HOLSequent]](name, list) with Savable[List[HOLSequent]] {
  override type MainComponentType = DrawList
  override def createMainComponent = new DrawList(this, list)

  def saveFormats = Map(
    ".tptp" -> {
      (ls: List[HOLSequent]) => TptpFOLExporter(existentialClosure(ls.map(_.toImplication) ++: Sequent())).toString
    }
  )

}