diff options
author | 2016-07-19 13:19:34 +0200 | |
---|---|---|
committer | 2016-07-19 13:45:23 +0200 | |
commit | f7ae4e6433e44a0b3a838847c58ab72ffffa3d48 (patch) | |
tree | f05d58a6f51c77ce890452ff00babd8cadf2e990 /interp/notation_ops.ml | |
parent | a67bd7f93224c61b6a59459ea1114a6670daa857 (diff) |
Some extra fixes in printing patterns in binders.
- typo in notation_ops.ml
- factorization of patterns in ppconstr.ml
- update of test-suite
- printing of cast of a binding pattern if in mode "printing all"
The question of whether or not to print the type of a binding pattern
by default seems open to me.
Diffstat (limited to 'interp/notation_ops.ml')
-rw-r--r-- | interp/notation_ops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/notation_ops.ml b/interp/notation_ops.ml index 12da34462..6478ade61 100644 --- a/interp/notation_ops.ml +++ b/interp/notation_ops.ml @@ -869,7 +869,7 @@ let rec match_iterated_binders islambda decls = function match_iterated_binders islambda ((Inr cp,bk,None,t)::decls) b | GLambda (_,na,bk,t,b) when islambda -> match_iterated_binders islambda ((Inl na,bk,None,t)::decls) b - | GLambda (_,Name p,bk,t,GCases (_,LetPatternStyle,None,[(GVar(_,e),_)],[(_,_,[cp],b)])) + | GProd (_,Name p,bk,t,GCases (_,LetPatternStyle,None,[(GVar(_,e),_)],[(_,_,[cp],b)])) when not islambda && Id.equal p e -> match_iterated_binders islambda ((Inr cp,bk,None,t)::decls) b | GProd (_,(Name _ as na),bk,t,b) when not islambda -> |