let get_induction p =
  match p.p_kind with
    | PKProp|PKVarDecr|PKVarPos|PKEstablished|PKAFctOut|PKAFctExit -> None
    | PKPreserved|PKPropLoop -> get_stmt p.p_prop