src/HOL/Tools/Function/pat_completeness.ML
changeset 33099 b8cdd3d73022
parent 33083 1fad3160d873
child 36945 9bec62c10714
equal deleted inserted replaced
33098:3e9ae9032273 33099:b8cdd3d73022
    15 end
    15 end
    16 
    16 
    17 structure Pat_Completeness : PAT_COMPLETENESS =
    17 structure Pat_Completeness : PAT_COMPLETENESS =
    18 struct
    18 struct
    19 
    19 
    20 open FundefLib
    20 open Function_Lib
    21 open FundefCommon
    21 open Function_Common
    22 
    22 
    23 
    23 
    24 fun mk_argvar i T = Free ("_av" ^ (string_of_int i), T)
    24 fun mk_argvar i T = Free ("_av" ^ (string_of_int i), T)
    25 fun mk_patvar i T = Free ("_pv" ^ (string_of_int i), T)
    25 fun mk_patvar i T = Free ("_pv" ^ (string_of_int i), T)
    26 
    26