At:
length less2
1.
T: Type
2.
A: T List
3.
B: T List
4.
no_repeats(T;A)
5.
x:T. (x A) (x B)
6.
x: T
7.
(x A)
8.
i:
9.
i < ||B||
10.
x = B[i]
11.
k:||A||. j:||B||. A[k] = B[j] & j = i
||A|| < ||B||
By:
Assert (||A||||B||-1)
THEN
BackThru
Thm*k,m:. (f:(km). Inj(k; m; f)) km
Generated subgoal: