diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-28 17:27:46 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-28 17:27:46 +0000 |
| commit | 5ae4b17ab09b81ba133f13e383106a4f9620d5d4 (patch) | |
| tree | 7c3ce6f1d8c607a01a891f43ac4872a8b5fdfd4b /proofs/redexpr.mli | |
| parent | 9c4e7796bc2634c4aeb1f046129b4c558115ca76 (diff) | |
New command Declare Reduction <id> := <conv_expr>.
Let's avoid writing huge "Eval ... in ..." lines :-)
Will be used in particular soon in NMake for defining function via
Definition ... := Eval ... in ...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12699 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/redexpr.mli')
| -rw-r--r-- | proofs/redexpr.mli | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/proofs/redexpr.mli b/proofs/redexpr.mli index 63237aa20..03d97ce35 100644 --- a/proofs/redexpr.mli +++ b/proofs/redexpr.mli @@ -24,7 +24,13 @@ val out_with_occurrences : 'a with_occurrences -> occurrences * 'a val reduction_of_red_expr : red_expr -> reduction_function * cast_kind (* [true] if we should use the vm to verify the reduction *) -val declare_red_expr : string -> reduction_function -> unit +(* Adding a custom reduction (function to be use at the ML level) + NB: the effect is permanent. *) +val declare_reduction : string -> reduction_function -> unit + +(* Adding a custom reduction (function to be called a vernac command). + The boolean flag is the locality. *) +val declare_red_expr : bool -> string -> red_expr -> unit (* Opaque and Transparent commands. *) |