>>  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