File: bug_6129.v

package info (click to toggle)
coq-doc 8.20.0-2
  • links: PTS, VCS
  • area: non-free
  • in suites: forky, sid, trixie
  • size: 46,708 kB
  • sloc: ml: 234,429; sh: 4,686; python: 3,359; ansic: 2,644; makefile: 842; lisp: 172; javascript: 87; xml: 24; sed: 2
file content (9 lines) | stat: -rw-r--r-- 355 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
 
(* Make definition of coercions compatible with local definitions. *)

Record foo (x : Type) (y:=1) := { foo_nat :> nat }.
Record foo2 (x : Type) (y:=1) (z t: Type) := { foo_nat2 :> nat }.
Record foo3 (y:=1) (z t: Type) := { foo_nat3 :> nat }.

Check fun x : foo nat => x + 1.
Check fun x : foo2 nat nat nat => x + 1.
Check fun x : foo3 nat nat => x + 1.