mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-11 21:48:50 -05:00
17 lines
334 B
Standard ML
17 lines
334 B
Standard ML
type clause_premise =
|
|
| Hyp | Local | Lemma of lemma
|
|
| History of clause list
|
|
|
|
type proof = clause
|
|
and proof_node = {
|
|
conclusion : clause;
|
|
step : step;
|
|
}
|
|
and step =
|
|
| Hypothesis
|
|
| Assumption
|
|
| Lemma of lemma
|
|
| Duplicate of proof * atom list
|
|
| Resolution of proof * proof * atom
|
|
|
|
val expand : proof -> proof_node
|