File: bug_19299.v

package info (click to toggle)
coq 9.1.0%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 35,964 kB
  • sloc: ml: 239,908; sh: 4,355; python: 2,985; ansic: 2,644; makefile: 874; lisp: 171; javascript: 63; xml: 24; sed: 2
file content (13 lines) | stat: -rw-r--r-- 397 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Require Import ListDef.

Class MBind (M : Type -> Type) :=
  mbind : forall {A B}, (A -> M B) -> M A -> M B.
#[global] Instance list_bind : MBind list.
exact (fun A B f =>
  fix go (l : list A) :=
    match l with nil => nil | cons x l => f x ++ go l end%list).
Defined.

Polymorphic Record dyn := Dyn { type : Type; elem : type }.

Definition fails : list dyn := (Dyn _ (@Datatypes.app)) :: nil.