diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-20 10:56:51 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-20 10:56:51 +0000 |
| commit | 9e7dc5fd80af6be487813a1ad1a79115b082a343 (patch) | |
| tree | 978350425194d38219997a9a3b8db17293051d52 /proofs | |
| parent | 92a8fb3ab4af7febbb5e4c01916649d39c896ed0 (diff) | |
Ajout set_lc
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1162 85f007b7-540e-0410-9357-904b9bb8a0f7
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) |