data Arg' : Type -> TypeunArg : Arg' nm -> PTerm' nmgetFnArgs : (Name -> nm) -> PTerm' nm -> (PTerm' nm, List (Arg' nm))underPis : PTerm' nm -> (List (Maybe Name, Binder (PTerm' nm)), PTerm' nm)underLams : PTerm' nm -> (List (PTerm' nm, Binder (PTerm' nm)), PTerm' nm)