diff options
| author | herbelin | 2005-12-26 14:06:51 +0000 |
|---|---|---|
| committer | herbelin | 2005-12-26 14:06:51 +0000 |
| commit | 1061eb505a223ac7cbcec0c5ae9354cd24d9b054 (patch) | |
| tree | a13186a5cb22e178f8e9915899be06b5ab1fe736 /contrib/recdef | |
| parent | f6e1acbbe00aeb479fde229c3941e3a6a2d53068 (diff) | |
Suppression des parseurs et printeurs v7; suppression du traducteur (mcanismes de renommage des noms de constantes, de module, de ltac et de certaines variables lies de lemmes et de tactiques, mcanisme d'ajout d'arguments implicites, etc.)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7734 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/recdef')
| -rw-r--r-- | contrib/recdef/recdef.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/recdef/recdef.ml4 b/contrib/recdef/recdef.ml4 index 4121580ff5..e67dc1fa02 100644 --- a/contrib/recdef/recdef.ml4 +++ b/contrib/recdef/recdef.ml4 @@ -533,8 +533,8 @@ let (value_f:constr -> global_reference -> constr) = RLambda (d0, Name x_id, RDynamic(d0, constr_in a), RCases - (d0,(None,ref None), - [RApp(d0, RRef(d0,fterm), [RVar(d0, x_id)]),ref (Anonymous,None)], + (d0,None, + [RApp(d0, RRef(d0,fterm), [RVar(d0, x_id)]),(Anonymous,None)], [d0, [v_id], [PatCstr(d0,(ind_of_ref (Lazy.force coq_sig_ref),1), [PatVar(d0, Name v_id); |