mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-06 11:15:43 -05:00
wip: adapt CC to new proofs
This commit is contained in:
parent
df40b5a5c1
commit
04f1ba063d
2 changed files with 4 additions and 1 deletions
|
|
@ -16,6 +16,7 @@ module Make (A: CC_ARG)
|
||||||
: S with module T = A.T
|
: S with module T = A.T
|
||||||
and module Lit = A.Lit
|
and module Lit = A.Lit
|
||||||
and type proof = A.proof
|
and type proof = A.proof
|
||||||
|
and type step_id = A.step_id
|
||||||
and module Actions = A.Actions
|
and module Actions = A.Actions
|
||||||
= struct
|
= struct
|
||||||
module T = A.T
|
module T = A.T
|
||||||
|
|
@ -27,7 +28,8 @@ module Make (A: CC_ARG)
|
||||||
type lit = Lit.t
|
type lit = Lit.t
|
||||||
type fun_ = T.Fun.t
|
type fun_ = T.Fun.t
|
||||||
type proof = A.proof
|
type proof = A.proof
|
||||||
type dproof = proof -> unit
|
type step_id = A.step_id
|
||||||
|
type pstep = proof -> step_id
|
||||||
type actions = Actions.t
|
type actions = Actions.t
|
||||||
|
|
||||||
module Term = T.Term
|
module Term = T.Term
|
||||||
|
|
|
||||||
|
|
@ -7,4 +7,5 @@ module Make (A: CC_ARG)
|
||||||
: S with module T = A.T
|
: S with module T = A.T
|
||||||
and module Lit = A.Lit
|
and module Lit = A.Lit
|
||||||
and type proof = A.proof
|
and type proof = A.proof
|
||||||
|
and type step_id = A.step_id
|
||||||
and module Actions = A.Actions
|
and module Actions = A.Actions
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue