[Agda] +-mono arguments
Sergei Meshveliani
mechvel at botik.ru
Sun Mar 22 13:39:27 CET 2015
Who knows, please,
is it possible to cancel below explicit signatures for 1≤sm and sm≤sm
and to use their values directly as arguments for _+-mono_
?
(see attachment)
Thanks,
------
Sergei
-------------- next part --------------
aux : (m n : ℕ) → m + m ≡ 2 + n → m < 2 + n
aux 0 _ ()
aux (suc m) n sm+sm≡2+n with (2 + m) ≤? (2 + n)
... | yes res = res
... | no ssm≰2+n = ⊥-elim $ sm+sm≢2+n sm+sm≡2+n
where
sm = suc m
2+n<ssm = ≰→> ssm≰2+n
sn≤m = pred-mono $ pred-mono 2+n<ssm
1≤sm : 1 ≤ sm
1≤sm = s≤s z≤n
sm≤sm : sm ≤ sm
sm≤sm = ≤refl PE.refl
2+n<sm+sm : 3 + n ≤ sm + sm
2+n<sm+sm = ≤begin 3 + n ≤[ 2+n<ssm ]
1 + sm ≤[ 1≤sm +-mono sm≤sm ]
sm + sm
≤end
sm+sm≢2+n : sm + sm ≢ 2 + n
sm+sm≢2+n = <→≢ 2+n<sm+sm ∘ PE.sym
More information about the Agda
mailing list