diff options
| author | Son Ho | 2023-05-10 19:22:32 +0200 |
|---|---|---|
| committer | Son HO | 2023-06-04 21:54:38 +0200 |
| commit | 73fd1921f90824e481c0f8e0c52003d37af5a2e5 (patch) | |
| tree | 50b41e59e25588f6652e3cd89b84737e9add72f7 /backends/hol4/divDefProtoTheory.sig | |
| parent | 191e8f1b2393e108da38470d7e22f0574567eb25 (diff) | |
Cleanup divDefProtoScript
Diffstat (limited to 'backends/hol4/divDefProtoTheory.sig')
| -rw-r--r-- | backends/hol4/divDefProtoTheory.sig | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/backends/hol4/divDefProtoTheory.sig b/backends/hol4/divDefProtoTheory.sig index 6e4e5950..e74c2fd4 100644 --- a/backends/hol4/divDefProtoTheory.sig +++ b/backends/hol4/divDefProtoTheory.sig @@ -18,6 +18,7 @@ sig val fix_fixed_eq : thm val fix_fixed_terminates : thm val fix_fixed_termination_rec_case : thm + val fix_fixed_termination_rec_case_aux : thm val fix_fuel_compute : thm val fix_fuel_mono : thm val fix_fuel_mono_least : thm @@ -128,6 +129,15 @@ sig fix_fuel ($LEAST (fix_fuel_P f x)) f x = fix_fuel ($LEAST (fix_fuel_P f y)) f y + [fix_fixed_termination_rec_case_aux] Theorem + + ⊢ ∀x y n m. + is_valid_fp_body f ⇒ + (∀g. f g x = g y) ⇒ + fix_fuel_P f x n ⇒ + fix_fuel_P f y m ⇒ + fix_fuel n f x = fix_fuel m f y + [fix_fuel_compute] Theorem ⊢ (∀f x. fix_fuel 0 f x = Diverge) ∧ |