diff options
| author | Hugo Herbelin | 2014-09-30 09:50:07 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-09-30 10:02:47 +0200 |
| commit | a1be9ce30ed0c59d3cd8651ff0c624a24a6d3fc9 (patch) | |
| tree | a2d0ce66634899dd71d5abb8e525cf1a7ebad7cb /printing | |
| parent | 538b77dbb3b7799dc4d2e18033fc4fbf2eb26f7f (diff) | |
Seeing IntroWildcard as an action intro pattern rather than as a naming pattern
(the action is "clear").
Added subst_intropattern which was missing since the introduction of
ApplyOn intro patterns.
Still to do: make "intros _ ?id" working without interferences when
"id" is precisely the internal name used for hypotheses to discard.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/miscprint.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/miscprint.ml b/printing/miscprint.ml index 682cc3abe7..b47deab0fa 100644 --- a/printing/miscprint.ml +++ b/printing/miscprint.ml @@ -18,12 +18,12 @@ let rec pr_intro_pattern prc (_,pat) = match pat with | IntroAction p -> pr_intro_pattern_action prc p and pr_intro_pattern_naming = function - | IntroWildcard -> str "_" | IntroIdentifier id -> Nameops.pr_id id | IntroFresh id -> str "?" ++ Nameops.pr_id id | IntroAnonymous -> str "?" and pr_intro_pattern_action prc = function + | IntroWildcard -> str "_" | IntroOrAndPattern pll -> pr_or_and_intro_pattern prc pll | IntroInjection pl -> str "[=" ++ hv 0 (prlist_with_sep spc (pr_intro_pattern prc) pl) ++ |