diff options
| author | Alasdair Armstrong | 2018-02-05 22:58:22 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2018-02-05 22:58:22 +0000 |
| commit | 17265a95407c62e78bb850c0e6ffb0876c85c5cb (patch) | |
| tree | 91eb1aba10472c88aefc45c1e62f19250626ddcb /src/pretty_print_lem.ml | |
| parent | 61290ddac2c50e5e0888c555eb7e355326b86d17 (diff) | |
Add typ patterns for destructuring existentials
Diffstat (limited to 'src/pretty_print_lem.ml')
| -rw-r--r-- | src/pretty_print_lem.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pretty_print_lem.ml b/src/pretty_print_lem.ml index 48825540..40d373b2 100644 --- a/src/pretty_print_lem.ml +++ b/src/pretty_print_lem.ml @@ -449,7 +449,7 @@ let rec doc_pat_lem ctxt apat_needed (P_aux (p,(l,annot)) as pa) = match p with begin match id with | Id_aux (Id "None",_) -> string "Nothing" (* workaround temporary issue *) | _ -> doc_id_lem id end - | P_var(p,kid) -> doc_pat_lem ctxt true p + | P_var(p,_) -> doc_pat_lem ctxt true p | P_as(p,id) -> parens (separate space [doc_pat_lem ctxt true p; string "as"; doc_id_lem id]) | P_typ(Typ_aux (Typ_tup typs, _), P_aux (P_tup pats, _)) -> (* Isabelle does not seem to like type-annotated tuple patterns; |