File: unimported_irrelevant_class.v

package info (click to toggle)
coq-hierarchy-builder 1.8.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,988 kB
  • sloc: makefile: 109
file content (18 lines) | stat: -rw-r--r-- 417 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
From HB Require Import structures.

Module A.
HB.mixin Record isA T := {}.
HB.structure Definition A := {T of isA T}.
End A.

HB.mixin Record isB T := {}.
HB.structure Definition B := {T of isB T}.

Module Export C.
Import A.
HB.mixin Record isC T of A T & B T := {}.
HB.structure Definition C := {T of isB T & isA T & isC T}.
End C.

(* Should not fail: A is irrelevant *)
HB.instance Definition _ := isB.Build unit.