blob: b52140de110addac66738e5fbb5d588424b8b4c2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
Set Universe Polymorphism.
Record Type_Over (X : Type)
:= { Domain :> Type;
proj : Domain -> X }.
Definition Self_Over (X : Type)
:= {| Domain := X; proj := (fun x => x) |}.
Canonical Structure Self_Over. (* fails with Anomaly: Mismatched instance and context when building universe substitution. Please report. for polymorphic structures *)
(* if monomorphic, Warning: No global reference exists for projection
valuefun x : _UNBOUND_REL_1 => x in instance Self_Over of proj, ignoring it. *)
|