diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proof_trees.ml | 2 | ||||
| -rw-r--r-- | proofs/proof_trees.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/proofs/proof_trees.ml b/proofs/proof_trees.ml index dabe5cb00..909787074 100644 --- a/proofs/proof_trees.ml +++ b/proofs/proof_trees.ml @@ -38,6 +38,8 @@ let set_pgm pgm ctxt = { ctxt with pgm = pgm } let get_lc gl = (out_some gl.evar_info).lc +let set_lc lc ctxt = { ctxt with lc = lc } + (* Functions on proof trees *) let ref_of_proof pf = diff --git a/proofs/proof_trees.mli b/proofs/proof_trees.mli index 043e39170..a76eba1cb 100644 --- a/proofs/proof_trees.mli +++ b/proofs/proof_trees.mli @@ -22,6 +22,7 @@ val get_ctxt : goal -> ctxtty val get_pgm : goal -> constr option val set_pgm : constr option -> ctxtty -> ctxtty val get_lc : goal -> local_constraints +val set_lc : local_constraints -> ctxtty -> ctxtty val rule_of_proof : proof_tree -> rule val ref_of_proof : proof_tree -> (rule * proof_tree list) |