equal
deleted
inserted
replaced
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 |