DEFINITION G_ind()
TYPE =
       P:GProp
         .(f:natnat.H:n:nat.(lt n (f n)).(P (mk_G f H)))g:G.(P g)
BODY =
        assume PGProp
        suppose Hf:natnat.H:n:nat.(lt n (f n)).(P (mk_G f H))
        assume gG
          by cases on g we prove P g
             case mk_G f:natnat H1:n:nat.(lt n (f n)) 
                the thesis becomes P (mk_G f H1)
                by (H . H1)
P (mk_G f H1)
          we proved P g
       we proved 
          P:GProp
            .(f:natnat.H:n:nat.(lt n (f n)).(P (mk_G f H)))g:G.(P g)