Closed DmxLarchey closed 5 years ago
If you look at how case_eq is implemented, it is something like
match l as l' return l = l' -> P l' with
| nil => fun E => _
| x::l' => fun E => _
end eq_refl
case_eq l
is shorter to write if you know what it extracts to ...
At last I finished the correctness proof of
bfn_level
which corresponds tobfnum'
andbfnum
in Okasaki's paper. Could you review the filebfn_level.v
in branchbfn_forest
before I merge it intocleanup
? I spend a lot of time for the proof ofbfn_level_spec_1
until I found it derived fromforest_rebuild_id
,forest_rebuild_lt
and the existence of a breadth-first numbering ...