File: bug_17663.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 (18 lines) | stat: -rw-r--r-- 289 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Require Import PrimInt63.

Module Type T.
  Parameter eq : int -> int -> bool.
End T.

Module M (S : T).
  Definition do x y := S.eq x y.
End M.

Module N.
  Definition eq := eqb.
End N.

Module P := M N.

Check (eq_refl true <: P.do 0 0 = true).
Check (eq_refl true <<: P.do 0 0 = true).