aboutsummaryrefslogtreecommitdiff
path: root/test-suite/bugs/closed/bug_3037.v
blob: 40d1bfde53a880d6c5501dcab6eaccce256f127e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
(* Anomaly before 4a8950ec7a0d9f2b216e67e69b446c064590a8e9 *)

Require Import Recdef.

Function f_R (a: nat) {wf (fun x y: nat => False)  a}:Prop:=
  match a:nat with
    | 0 => True
    | (S y') => f_R y'
  end.
(* Anomaly: File "plugins/funind/recdef.ml", line 916, characters 13-19: Assertion failed.
Please report. *)
Abort.