diff options
| author | Emilio Jesus Gallego Arias | 2019-12-05 23:38:43 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-12-05 23:38:43 +0100 |
| commit | 0e694678eddaede188335df139ce17d649c013e6 (patch) | |
| tree | 94e9a58fe461603d5befa14543a8789a6907a09e /plugins | |
| parent | a78165d9fb333f2c50ab5ae52c32507429859c89 (diff) | |
| parent | eff360695af18476bfca0edfdea467cbf9203984 (diff) | |
Merge PR #11241: Unfortunate Coq 8.10 bug with "cofix with" tactic syntax
Reviewed-by: Zimmi48
Reviewed-by: ejgallego
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ltac/g_tactic.mlg | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/g_tactic.mlg b/plugins/ltac/g_tactic.mlg index d82eadcfc7..f0d6258cd1 100644 --- a/plugins/ltac/g_tactic.mlg +++ b/plugins/ltac/g_tactic.mlg @@ -135,7 +135,7 @@ let mk_cofix_tac (loc,id,bl,ann,ty) = ~hdr:"Constr:mk_cofix_tac" (Pp.str"Annotation forbidden in cofix expression.")) ann in let bl = List.map (fun (nal,bk,t) -> CLocalAssum (nal,bk,t)) bl in - (id,CAst.make ~loc @@ CProdN(bl,ty)) + (id,if bl = [] then ty else CAst.make ~loc @@ CProdN(bl,ty)) (* Functions overloaded by quotifier *) let destruction_arg_of_constr (c,lbind as clbind) = match lbind with |