blob: cc926b2167edb6e515d53a943d75604701db9d75 (
plain)
1
2
3
4
5
6
7
8
|
Set Primitive Projections.
Record foo := { foom :> Type }.
Canonical Structure default_foo := fun T => {| foom := T |}.
Record bar T := { bar1 : T }.
Goal forall (s : foo) (x : foom s), True.
Proof.
intros.
Timeout 1 pose (x : bar _) as x'.
|
