diff options
| author | letouzey | 2010-01-28 17:27:46 +0000 |
|---|---|---|
| committer | letouzey | 2010-01-28 17:27:46 +0000 |
| commit | 5ae4b17ab09b81ba133f13e383106a4f9620d5d4 (patch) | |
| tree | 7c3ce6f1d8c607a01a891f43ac4872a8b5fdfd4b /plugins | |
| 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 'plugins')
| -rw-r--r-- | plugins/setoid_ring/newring.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/setoid_ring/newring.ml4 b/plugins/setoid_ring/newring.ml4 index e85c12c591..cd9137fd08 100644 --- a/plugins/setoid_ring/newring.ml4 +++ b/plugins/setoid_ring/newring.ml4 @@ -878,7 +878,7 @@ let _ = add_map "field_cond" (* (function -1|8|10->Eval|9->Rec|_->Prot)]);;*) -let _ = Redexpr.declare_red_expr "simpl_field_expr" +let _ = Redexpr.declare_reduction "simpl_field_expr" (protect_red "field") |