blob: fd394ddbc35a04fc9dc67cc75ae2eabd7b7631b4 (
plain)
1
2
3
4
|
(* Was failing while building the _rect scheme, due to wrong computation of *)
(* the number of non recursively uniform parameters in the presence of let-ins*)
Inductive list (A : Type) (T := A) : Type :=
nil : list A | cons : T -> list T -> list A.
|