uTake2 tt cons N uLength tt s length L and tt T T isNatIList isNatList isNat tt isNat isNat isNat isNatList isNatIList tt isNatIList and isNat isNatIList isNatList tt isNatList and isNat isNatList isNatList and isNat isNatIList zeros cons 0 take 0 IL uTake1 isNatIList uTake1 tt nil take s M cons N uTake2 and isNat and isNat isNatIList length cons N uLength and isNat isNatList uTake2 1 tt 0 cons 1 uLength 1 s 1 length 1 and 2 isNatIList 0 isNatList 0 isNat 0 zeros 0 0 0 take 2 uTake1 1 nil 0 FULL ./TRS/TRCSR/Ex4_DLMMU04_L.trs