blob: 26563e6747f9c0ec1936096427371360c2764927 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Require Import Program.
Set Implicit Arguments.
Unset Strict Implicit.
Definition def (a : nat) := a = a.
Structure record {a : nat} {D : def a} :=
inR { prop : Prop }.
Program
Canonical Structure ins (a : nat) (rec : @record a _) :=
@inR a _ (prop rec).
Next Obligation.
exact eq_refl.
Defined.
Next Obligation.
exact eq_refl.
Defined.
|
