src/HOL/SPARK/Manual/Proc2.thy

record sort constraints unconditionally: minimal performance implications;

theory Proc2
imports "HOL-SPARK.SPARK"
begin

spark_open \<open>loop_invariant/proc2\<close>

spark_vc procedure_proc2_7
  by (simp add: ring_distribs mod_simps)

spark_end

end