>> A
f: A
f: A
>>
>>
>>
x:
>> g in A
>> a in
>> g in A
>> A
.
H,r:ind(z,x¯.T;a) >> G
a
g
ggggggby ind r over A
¯[EXT foobar]¯[EXT foobar] H >>
in A
>
B by intro at
>
B in
>
B , x:A >> b
in
>
B , x:A, b
>> b in B
.
H,r:ind(z,x¯.T;a) >> G
a
g
ggggggby ind r over A
¯[EXT foobar]¯[EXT foobar] H >>
=
in A
>
B by intro at
in A
>
B
in A
>
B
{
x:A | dom()(x)
}
=
{
x:A | dom()(x)
}
in
{
x:A | dom()(x)
}
>> [x] =
[x] in B
.
H,r:ind(z,x¯.T;a) >> G
a
g
ggggggby ind r over A
¯[EXT foobar]¯[EXT foobar] H >> g[a] in B by intro using A
>
B
>
B
{
x:A | dom(g)(x)}
.
H,r:ind(z,x¯.T;a) >> G
a
g
ggggggby ind r over A
¯[EXT foobar]¯[EXT foobar] H >> dom(g) in A->
by intro using A
>
B
>
B
>
B in