mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-13 22:40:54 -05:00
20 lines
593 B
OCaml
20 lines
593 B
OCaml
open Sidekick_core
|
|
|
|
type term = Term.t
|
|
type lit = Lit.t
|
|
|
|
val lemma_bool_tauto : lit list -> Proof_term.t
|
|
(** Boolean tautology lemma (clause) *)
|
|
|
|
val lemma_bool_c : string -> term list -> Proof_term.t
|
|
(** Basic boolean logic lemma for a clause [|- c].
|
|
[proof_bool_c b name cs] is the Proof_term.t designated by [name]. *)
|
|
|
|
val lemma_bool_equiv : term -> term -> Proof_term.t
|
|
(** Boolean tautology lemma (equivalence) *)
|
|
|
|
val lemma_ite_true : ite:term -> Proof_term.t
|
|
(** lemma [a ==> ite a b c = b] *)
|
|
|
|
val lemma_ite_false : ite:term -> Proof_term.t
|
|
(** lemma [¬a ==> ite a b c = c] *)
|