blob: 877bc84d141e73cd1ad84403a4d475cd2b37fd54 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(* coq-prog-args: ("-top" "qualification") *)
Module Type T1.
Parameter t : Type.
End T1.
Module Type T2.
Declare Module M : T1.
Parameter t : Type.
Parameter test : t = M.t.
End T2.
Module M1 <: T1.
Definition t : Type := bool.
End M1.
Module M2 <: T2.
Module M := M1.
Definition t : Type := nat.
Lemma test : t = t. Proof. reflexivity. Qed.
End M2.
|
