blob: 71c7070f2b81f7c6faf10b9827959a86bd12199f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
compose (C:=nat) S
: (nat -> nat) -> nat -> nat
ex_intro (P:=fun _ : nat => True) (x:=0) I
: ex (fun _ : nat => True)
Monomorphic d2 =
fun x : nat => d1 (y:=x)
: forall x x0 : nat, x0 = x -> x0 = x
d2 is not universe polymorphic
Arguments x, x0 are implicit
Argument scopes are [nat_scope nat_scope _]
map id (1 :: nil)
: list nat
map id' (1 :: nil)
: list nat
map (id'' (A:=nat)) (1 :: nil)
: list nat
|
