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