Why3: Доказательство с индукцией

У меня есть следующие леммы:

      lemma compile_correct_aux : forall a : aexp, s: state, st : stack, p : prog.
  execute s st (compile a ++ p) = execute s (Cons (aeval s a) st) p

lemma compile_correct: forall a : aexp, s: state. 
  execute s Nil (compile a) = Cons (aeval s a) Nil

Но по какой-то причине я не могу доказать compile_correct_aux... Я пробовал это пока .