diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-28 14:41:46 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-28 14:41:46 +0000 |
| commit | a38d0b898b0d4e4c6535c4f583b4e3a56b3199b3 (patch) | |
| tree | 11c9f32ace94624c6f39caee400528506ac5a80b /interp | |
| parent | fceb1fb1a115837ad83b5e456516fdb11c9412f5 (diff) | |
Passage a un 'if-then-else' ou ne sont mentionnes que les membres droits qui sont supposes sans dependances en les arguments des constructeurs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5589 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrextern.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index 0c9d9a66c..7657ce445 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -1825,6 +1825,7 @@ let rec raw_of_pat tenv env = function let avoid = List.fold_right (name_fold (fun x l -> x::l)) env [] in let k = (snd (lookup_mind_specif (Global.env()) ind)).Declarations.mind_nrealargs in Detyping.detype_case false (raw_of_pat tenv env)(raw_of_eqn tenv env) + (fun _ _ -> false (* lazy: don't try to display pattern with "if" *)) tenv avoid ind cs typopt k tm bv | PCase _ -> error "Unsupported case-analysis while printing pattern" | PFix f -> Detyping.detype (false,tenv) [] env (mkFix f) |