)     \\ drule (compile_decs_correct |> INST_TYPE [``:'c``|->``:'a``])     \\ `state_rel (initial_state ffi k T)          (initial_state ffi max_app FEMPTY co cc k)` by        (match_mp_tac state_rel_initial_state \\ fs [])     \\ disch_then drule     \\ impl_tac THEN0 (fs [] \\ CCONTR_TAC \\ fs [])     \\ strip_tac \\ fs []     \\ 