mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-11 13:38:43 -05:00
13 lines
247 B
OCaml
13 lines
247 B
OCaml
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
|